Отправлено: 19.12.13 18:16. Заголовок: TsBrowse в Минигуи (продолжение)

TsBrows определяется в виде строки ПАРМЕТРОВ объекта и их значений
К примеру

цитата:

DEFINE TBROWSE oBrw2 ; AT 60,450 ; ALIAS cAlias ; OF Form1 ; WIDTH 330 ; HEIGHT 340 ; FONT "Verdana" ; SIZE 9 ; ON DBLCLICK CopyRec(); ON GOTFOCUS fModelo_Hab(2) ; AUTOFILTER ; CELLED EDIT; VALUE nRec; GRID

Здесь я собрал параметры из разных tBrows
Можно или нет и какие парметры заменить
выражением ( и каким) ?
oBrw2:....
oBrw2:....

 Отправлено: 13.07.16 09:41. Заголовок: Порча с бровсом , эт..

Порча с бровсом , это из примера SAMPLES\Advanced\Tsb_seek_2\
Едем вниз или колесом или стрелкой вниз и бац записи стали дублироваться.
Тоже самое происходит и у меня в программе на компе заказчика (у меня норм)
В примере правда происходит расчет HOLE и дальнейшие действия , у меня
в коде ни чего подобного нет.
Куда копать ?

 Отправлено: 13.07.16 10:28. Заголовок: Видео заказчика http..

Видео заказчика
http://files.icq.net/get/8uYhqlxRMUWAVpabMnphKX5785d4af1ad
Его лучше скачать так как в ONLINE показывает его перевернутым.

 Отправлено: 13.07.16 10:28. Заголовок: Dima пишет: Куда ко..

Dima пишет:

цитата:

Куда копать ?

Это лечится в примере добавлением всего одной строки в функцию TBrw_Show()

*----------------------------------- 
 Function TBrw_Show( oBrw, nDelta )    
 *----------------------------------- 
  
    _EndTBrowse() 
  
    If hb_IsObject(oBrw) 
       TBrw_NoHoles( oBrw, nDelta ) 
       oBrw:nHeightHead -= 1 
    EndIf 
 

Идея лечения состоит в том, чтобы уйти от точного соответствия высоты строк в гриде и общей высоты TBrowse

 Отправлено: 13.07.16 10:30. Заголовок: Да в примере это ест..

Да в примере это есть НО в нем тоже ломается я же выложил скрин.
Упс строки то я и не заметил ))

 Отправлено: 09.08.16 23:09. Заголовок: Привет всем , я тоже пытаюсь разобратся с TSBROWS ом

Привет всем !
Я тоже пытаюсь разобратся с TSBROWS-ом

у меня возникла следучщая проблема :

имеется столбец

ADD COLUMN TO BROWSE_1;
HEADER "Код" ;
SIZE 80 ;
DATA aFld[1] ;
ALIGN DT_LEFT, nMakeLong( DT_CENTER, DT_CENTER ) ;
3DLOOK FALSE, TRUE, TRUE ;
EDITABLE //MOVE DT_MOVE_RIGHT

BROWSE_1:aColumns[ 1 ]:bHLClicked := {||artikuli->(dbseek(prihod->kod)),artikuli( .f. )}
BROWSE_1:aColumns[ 1 ]:cToolTip := "Кликнете върху хедера за да редактирате номенклатура АРТИКУЛИ."
BROWSE_1:aColumns[ 1 ]:bValid:= { | uVar | FindArt( uVar ) } ;

функция FindArt ищет в таблицу с артикулами есть или нет такой код .
если не находит хочу показать список в другом окне и сделать правильный выбор

А КАК НОВЫЙ КОД ОБРАТНО В ЯЧЕЙКУ ЗАПЕХНУТЬ НИКАК НЕ СООБРАЖУ

 Отправлено: 09.08.16 23:43. Заголовок: sashaBG пишет: А КА..

sashaBG пишет:

цитата:

А КАК НОВЫЙ КОД ОБРАТНО В ЯЧЕЙКУ ЗАПЕХНУТЬ НИКАК НЕ СООБРАЖУ

не совсем понятно применение :bValid , это блок который разрешает или нет GET объекту покинуть редактирование , если Т то редактирование завершается , если F то не выпускает. То есть что бы закончить редактирование нужно по любому вернуть T
В TsBrowse есть еще блоки завязанные на редакцию, это bPostEdit , bEditEnd которые выполняются после редактирования и в них можно делать проверки.
Присвоить значение в ячейку можно прямым присвоением oBrw:aArray[oBrw:nAt][ 1 ] := Kod // для колонки 1 или выполнив блок выборки/записи Eval( oBrw:aColumns[1]:bData, Kod ), в результате чего значение Kod будет записано в ячейку . останется только перерисовать строку для отображения нового значения . Перерисовку делает или :Refresh( F ) или :DrawSelect() - этот предпочтительнее

PS соответственно прочитать значение ячейки можно как Kod := oBrw:aArray[oBrw:nAt][ 1 ] или Kod := Eval( oBrw:aColumns[1]:bData)
мне кажется это проще чем пытаться управлять буфером Get объекта через Valid

 Отправлено: 10.08.16 15:12. Заголовок: Да Вы правы

Да Вы правы .
Я сделел то що хотел через bPostEdit

А вот интересно при bValid Вы говорите що не должно выпускать из контрола , на самом деле ПИКАЕТ и выходит из редактирования не меняя ячейку.

 Отправлено: 10.08.16 20:21. Заголовок: sashaBG пишет: на ..

sashaBG пишет:

цитата:

на самом деле ПИКАЕТ и выходит из редактирования не меняя ячейку.

Да, так и есть. Если я не ошибаюсь в Clipper Valid не выпускал из редактирования пока не вернет T, думал так же и в TS

Посмотрел исходники TS, в них Vald обрабатывается в методе bPostEdit т.е. после редактирования. Видимо это особенность которую автор заложил в метод :Edit()
По мне как это ошибка логики, будет время попробую предложить исправление. Сейчас ушел совершенно в другой процесс, и хобби в виде программирования пока пришлось отложить

 Отправлено: 10.08.16 21:59. Заголовок: Haz пишет По мне как..

Haz пишет

цитата:

По мне как это ошибка логики, будет время попробую предложить исправление

Возможно ошибки логики нет:
1. можно сделать postmessage на enter при valid .F., .т.е. вкл. edit
2. можно подвесить (организовать сообщение), как в примере BASIC\COM_2, используя ф-ю ShowGetValid( hWnd, cTxt, 'Information', 'I' ),
после закрытия поля edit после валид, положив в ячейку (visible .t.) узкий GetBox (контол cNam) и ... как в примере
SetProperty(ThisWindow.Name, cNam, 'Visible', .T.)
DoMethod(ThisWindow.Name, cNam, 'SetFocus')
InkeyGui(10) // otherwise it does not have time to respond
ShowGetValid( hWnd, cTxt, 'Information', 'I' )
InkeyGui(3000) // 3 sec.
SetProperty(ThisWindow.Name, cNam, 'Visible', .F.)
3. потом п. 1

 Отправлено: 10.08.16 22:38. Заголовок: SergKis пишет: Возм..

SergKis пишет:

цитата:

Возможно ошибки логики нет: 1. можно сделать

Сергей, то что ты предлагаешь и есть "выпрямление" логики
Ведь что говорил букварь по clipper -

If the VALID clause is specified and <lValid> evaluates to it logical true (.T.)  
 condition the current GET will be considered valid and the get operation will continue  
 onto the next active GET object. If not, the cursor will remain on this GET object until  
 aborted or until the condition in <lValid> evaluates to true (.T.).  
 

То есть в "классике" не завершать GET при lValid == .F. было "из коробки" и не нужно было ничего доделывать.

 Отправлено: 10.08.16 23:24. Заголовок: Haz пишет То есть в ..

Haz пишет

цитата:

То есть в "классике" не завершать GET при lValid == .F. было "из коробки" и не нужно было ничего доделывать

При клацаньи мышой где хочу "классик" уходит на 2-ой план.
Как при замороженом GET validом (.F.), переключить курсор на "нужную" ячейку , не записав введенные данные ("неправильные") в поле ?
Потому и говорю, что "возможно ..."

 Отправлено: 10.08.16 23:29. Заголовок: SergKis пишет: Пото..

SergKis пишет:

цитата:

Потому и говорю, что "возможно ..."

Мысль понял , логично но "осадочек остался"

 Отправлено: 01.09.16 23:00. Заголовок: Использую стандартну..

Использую стандартную функцию загрузки настроек \MiniGUI\SOURCE\TsBrowse\h_tbrowse.prg
LoadFields( "oBrw1", cForm, .T.) // все поля редактируемые

Поля типа: "+", "=", "^", "@" - неправильно отображаются в TBROWSE, да и в добавок редактировать разрешены.

Можно там подправить в исходнике эту функцию ?

 Отправлено: 02.09.16 09:46. Заголовок: Andrey пишет: Можно ..

Andrey пишет:

цитата:

Можно там подправить в исходнике эту функцию ?

1. Отображение идет блоком кода, через стандартный FieldWBlock(cFiled, nWorkArea), Что тут менять ?
2. Ты сам ставишь все поля редактируемые .T. или нет .F.
3. Есть расчет ширины колонки, если не задано, но как правило (для красоты) ставишь под себя (свое понимание красоты)
Выход - взять метод
METHOD LoadFields( lEditable ) CLASS TSBrowse
преобразовать в функцию, подправить под свое понимание ситуации и предложть в использование, если будент хорошо,
можно поправить старый или сделать новый метод LoadField2(...) в TsBrowse

 Отправлено: 02.09.16 10:10. Заголовок: Andrey пишет: подп..

Andrey пишет:

цитата:

подправить

подправить надо не в исходнике. Задай нужным полям соответствующий шаблон вывода и запрети редактирование.
Делов то на один выэов aEval.
Если идти дорогой правки исходников, то под все RDD.
Я к примеру на ADS сижу, там расширенных типов полей куча, и что тоже все туда пихать?
И кому этот мусор в исходниках нужен будет ?

 Отправлено: 02.09.16 12:31. Заголовок: Принял к сведению ва..

Принял к сведению ваши предложения. Спасибо !

Haz пишет:

цитата:

Делов то на один выэов aEval.

Если нетрудно, дай пожалуйста как это сделать.

 Отправлено: 02.09.16 12:58. Заголовок: Andrey Пройдись по ..

Andrey
Пройдись по массиву полей (или как там у тебя устроено) и в зависимости от типа поля присвой свой :cPicture ,
возможно придется поиграться и с :bdata

 Отправлено: 03.09.16 10:39. Заголовок: Andrey пишет: Если ..

Andrey пишет:

цитата:

Если нетрудно, дай пожалуйста как это сделать.

для запрета редактирования к примеру
aEval( oBrw:aColumns, {|oCol| If( oCol:cDataType == чему_надо, oCol:lEdit := .F., NIL } )

 Отправлено: 03.09.16 15:02. Заголовок: Haz пишет: для запр..

Haz пишет:

цитата:

для запрета редактирования к примеру

Не работает...
LoadFields( "oBrw1", cForm, .T.) // все поля редактируемые

// запрет редактирования полей типа: "+", "=", "^"
aEval( oBrw1:aColumns, {|oCol| If( oCol:cDataType == "+", oCol:lEdit := .F., NIL) } )
aEval( oBrw1:aColumns, {|oCol| If( oCol:cDataType == "=", oCol:lEdit := .F., NIL) } )
aEval( oBrw1:aColumns, {|oCol| If( oCol:cDataType == "^", oCol:lEdit := .F., NIL) } )

// формат вывода полей типа: "+", "=", "@"
aEval( oBrw1:aColumns, {|oCol| If( oCol:cDataType == "+", oCol:cPicture := REPL("9",10), NIL) } )
aEval( oBrw1:aColumns, {|oCol| If( oCol:cDataType == "=", oCol:cPicture := REPL("x",20), NIL) } )
aEval( oBrw1:aColumns, {|oCol| If( oCol:cDataType == "@", oCol:cPicture := REPL("x",20), NIL) } )

 Отправлено: 03.09.16 15:17. Заголовок: Andrey пишет: oCol:..

Andrey пишет:

цитата:

oCol:cDataType == "+"

Уверен что cDataType возвращается тот что надо ?

 Отправлено: 03.09.16 15:41. Заголовок: Dima пишет: Уверен ..

Dima пишет:

цитата:

Уверен что cDataType возвращается тот что надо ?

Даже не задумывался...
Блин опять исходники Tsbrowse не то возвращают...
Или не они виноваты ?

Точно, проверил не работает, вернее возвращает U oBrw1:aColumns[nJ]:cDataType -> "U"

 Отправлено: 03.09.16 16:15. Заголовок: Из сырца ::cDataType..

Из сырца ::cDataType = ValType( Eval( ::bData ) ) , может наведет на какие мысли

 Отправлено: 03.09.16 16:26. Заголовок: Да какие тут мысли....

Да какие тут мысли... Править надо исходник бровса и всё тут !

 Отправлено: 03.09.16 16:43. Заголовок: Andrey пишет: Да к..

Andrey пишет:

цитата:

Да какие тут мысли... Править надо исходник бровса и всё тут !

Ну вообще то нет
Считывать и проверять нужно не тип а ФЛАГ (тип поля).
Примерно так
? dbFieldInfo( DBS_TYPE, FieldPos( "t" ) )
? dbFieldInfo( DBS_TYPE, FieldPos( "t2" ) )

ЗЫ
По ходу Петр разжевал для тебя этот вопрос в теме , Новые типы переменных , но ты снова фСё забыл

 Отправлено: 03.09.16 16:51. Заголовок: Dima пишет Уверен чт..

Dima пишет

цитата:

Уверен что cDataType возвращается тот что надо ?

Вот формирование cDataType
::cDataType = ValType( Eval( ::bData ) )
Привязываться надо к именам колонок
aEval( oBrw:aColumns, {|oCol| oCol:lEdit := ! ','+oCol:cName+ ',' $ ",ID,DTM,DTM2," } )

 Отправлено: 03.09.16 17:10. Заголовок: SergKis пишет: Прив..

SergKis пишет:

цитата:

Привязываться надо к именам колонок aEval( oBrw:aColumns, {|oCol| oCol:lEdit := ! ','+oCol:cName+ ',' $ ",ID,DTM,DTM2," } )

Не согласен. Берём чужую базу и тупо её открываем. Я откуда знаю какие имена колонок типа: "+", "=", "^", "@" ?

 Отправлено: 03.09.16 17:13. Заголовок: Andrey пишет Не согл..

Andrey пишет

цитата:

Не согласен.

повторяю

цитата:

Выход - взять метод METHOD LoadFields( lEditable ) CLASS TSBrowse преобразовать в функцию, подправить под свое понимание ситуации и предложть в использование, если будет хорошо, можно поправить старый или сделать новый метод LoadField2(...) в TsBrowse

 Отправлено: 03.09.16 17:17. Заголовок: PS У себя так и сдел..

PS
У себя так и сделал, по аналогии с ::SetArrayTo(...), написал ::SetFieldTo(...)

 Отправлено: 03.09.16 17:33. Заголовок: Andrey пишет Берём ..

Andrey пишет

цитата:

Берём чужую базу и тупо её открываем. Я откуда знаю какие имена колонок типа: "+", "=", "^","@

Для этого надо исп. утилиту DbEdit
TsBrowse предполагает программируемую работу над таблицей. А следить за всеми новыми полями и как их обрабатывать, не уверен что надо, к примеру поле @ - TimeStamp корректировать можно, его, вроде самому заполнять надо (често подзабыл уже)

 Отправлено: 03.09.16 18:25. Заголовок: SergKis пишет: @ - ..

SergKis пишет:

цитата:

@ - TimeStamp корректировать можно, его, вроде самому заполнять надо (често подзабыл уже)

Да, это поле нормально редактируется. Из-за этого и не включил его в запрет редактирования.

SergKis пишет:

цитата:

Выход - взять метод METHOD LoadFields( lEditable ) CLASS TSBrowse преобразовать в функцию, подправить под свое понимание ситуации и предложть в использование, если будет хорошо, можно поправить старый или сделать новый метод LoadField2(...) в TsBrowse

Ну не согласен с этим.
Есть нормальная функция, которая сделана для Харбора !!! Это же типы уже есть в Харборе.
Чуток отредактировать и будет служить 100 лет ещё...

 Отправлено: 03.09.16 19:07. Заголовок: Andrey если по всей..

Andrey
если по всей базе то вполне сработает такой код
дарю

 
 #include "dbstruct.ch" 
 ..... 
 Local Hfldtype:=hb_hash("=",nil,"+",nil,"^",nil) 
  
  
  
   for i := 1 To oBrw:nColCount() 
              if hb_hhaskey(Hfldtype,dbFieldInfo( DBS_TYPE, i )) 
         oBrw:aColumns[ i ]:lEdit := FALSE 
              endif  
   next                                               
  
 

Или можно в AEVAL все сделать

PS
Не проверял :)


Andrey пишет:

цитата:

// запрет редактирования полей типа: "+", "=", "^" aEval( oBrw1:aColumns, {|oCol| If( oCol:cDataType == "+", oCol:lEdit := .F., NIL) } ) aEval( oBrw1:aColumns, {|oCol| If( oCol:cDataType == "=", oCol:lEdit := .F., NIL) } ) aEval( oBrw1:aColumns, {|oCol| If( oCol:cDataType == "^", oCol:lEdit := .F., NIL) } )

Это по ходу бредосный подход :) Все надо делать за один подход в одном AEVAL , потому как
следующий AEVAL похерит результат предыдущего

 Отправлено: 03.09.16 20:22. Заголовок: Dima пишет: дарю ..

Dima пишет:

цитата:

дарю

Спасибо !
Хотел без цикла обойтись, но наверное лучше с ним.

 Отправлено: 03.09.16 20:47. Заголовок: Andrey пишет Ну не с..

Andrey пишет

цитата:

Ну не согласен с этим.

Взял бы текст h_tbrowse.prg и просканировал на cDataType, думаю многие вопросы отпали.
В основе лежит bData отображения, как задал, так и будет работать.
Если надо тебе спец. обработки, надо писать и спец. блок, т.е. TimeStamp превращать как надо для конкретного отображения, то же и по lEdit, ну или перелопатить весь TsBrowse.

 Отправлено: 03.09.16 20:51. Заголовок: Andrey пишет: TsBro..

SergKis пишет:

цитата:

TsBrowse предполагает программируемую работу над таблицей. А следить за всеми новыми полями и как их обрабатывать,

я за, проще самому определить как ТСБровс будет работать с базой в каждом конкретном, чем каждый раз переопределять то что почему то сделано стандартом.

 Отправлено: 03.09.16 20:53. Заголовок: PS Метод SetFields (..

PS
Метод SetFields (совместро с заданым\нет списком указанных полей) служит для первоначального заполнения\формирования колонок (вместо исп. ADD COLUMN ...), а дальше все ручками, меняешь bData, lEdit, Size, Color, ....

 Отправлено: 03.09.16 21:06. Заголовок: SergKis пишет: а да..

SergKis пишет:

цитата:

а дальше все ручками, меняешь bData, lEdit, Size, Color, ....

Нет в мире совершенства ...
Понял ! Спасибо !

 Отправлено: 03.09.16 21:52. Заголовок: Andrey пишет Нет в м..

Andrey пишет

цитата:

Нет в мире совершенства ...

Правильнее "Лучшее - враг хорошего"

 Отправлено: 12.09.16 16:38. Заголовок: Что то я снова в вид..

Что то я снова в виду того что долго не юзал Tsbrowse , торможу.
Есть бровс и в нем стоит фильтр по полю WB , строка фильтра WB==1.
На одной из записей меняю значение WB. Эта запись из фильтра должна уйти.
Что нужно корректно сказать бровсу что бы правильно его обновить ?
Было показано скажем 5 записей и после того как я сменил на одной из них значение WB ,
осталось 4 записи.
Reset() юзать не хочется.

 Отправлено: 12.09.16 20:44. Заголовок: Dima пишет: reset н..

Dima пишет:

цитата:

reset не хочется

Дима, пишу с мобилки и поэтому коротко и по пямяти ).
Глянь код в методе ::Delete (). Последовательность должна быть такой же как после dbDelete ()
в этом методе.

 Отправлено: 12.09.16 21:25. Заголовок: Haz пишет: Глянь ко..

Haz пишет:

цитата:

Глянь код в методе ::Delete ()

Ты в смысле про DeleteRow() ?
Покопаю завтра , спасибо.

 Отправлено: 12.09.16 21:54. Заголовок: Dima пишет: Что нуж..

Dima пишет:

цитата:

Что нужно корректно сказать бровсу что бы правильно его обновить ?

См. в примере ниже использование функции myUpdate() для обновления первой колонки, которая находится под фильтром

цитата:

/* * MINIGUI - Harbour Win32 GUI library Demo * */ #include "minigui.ch" #include "tsbrowse.ch" #include "Dbstruct.ch" REQUEST DBFCDX FUNCTION Main() LOCAL cDbf := GetStartupFolder() + '\Test.dbf' LOCAL i, cAlias LOCAL oBrw_1 SET CENTURY ON SET DELETED ON IF ! File( cDbf ) CreateTable() ENDIF rddSetDefault( 'DBFCDX' ) cAlias := cFileNoExt( cDbf ) USE ( cDbf ) Alias ( cAlias ) SHARED NEW set filter to code > 90 go top Test->( ordSetFocus( 1 ) ) DEFINE WINDOW Form_1 ; At 0, 0 ; WIDTH 600 ; HEIGHT 470 ; TITLE 'TsBrowse sample: Order' ; MAIN ; NOMAXIMIZE ; NOSIZE END WINDOW oBrw_1 := CreateBrowse( "oBrw_1", 'Form_1', 2, 2, Form_1.Width - 10, ; Form_1.Height - GetTitleHeight() - iif( IsThemed(), 1, 2 ) * GetBorderHeight() - 2, cAlias ) // modify the default settings oBrw_1:aColumns[ 1 ]:cHeading := "Number" oBrw_1:SetColSize( 1, 94 ) oBrw_1:aColumns[ 1 ]:nAlign := DT_RIGHT // editing is available for ALL columns FOR i := 1 TO Test->( Fcount() ) - 1 oBrw_1:aColumns[ i ]:lEdit := TRUE NEXT oBrw_1:aColumns[ 1 ]:nEditMove := DT_DONT_MOVE oBrw_1:aColumns[ 5 ]:cHeading := "Birthday" oBrw_1:SetColSize( 5, 120 ) // hide the last column oBrw_1:HideColumns( 6, .T. ) CENTER WINDOW Form_1 ACTIVATE WINDOW Form_1 RETURN NIL FUNCTION CreateBrowse( cBrw, cParent, nRow, nCol, nWidth, nHeight, cAlias ) LOCAL oBrw DEFINE TBROWSE &cBrw ; AT nRow, nCol ; ALIAS cAlias ; OF &cParent ; WIDTH nWidth ; HEIGHT nHeight ; COLORS { CLR_BLACK, CLR_BLUE } ; FONT "MS Sans Serif" ; SIZE 9 :SetAppendMode( .F. ) :SetDeleteMode( .F. ) :lNoHScroll := .T. :lCellBrw := .T. :nSelWidth := 16 END TBROWSE // loading the ALL database fields LoadFields( cBrw, cParent ) oBrw := TBrw_Obj( cBrw, cParent ) WITH OBJECT oBrw :nHeightCell += 2 :nHeightHead += 18 :nWheelLines := 1 :lNoChangeOrd := TRUE :hBrush := CreateSolidBrush( 230, 240, 255 ) :SetColor( { 16 }, { RGB( 43, 149, 168 ) } ) // SyperHeader backcolor :SetColor( { 3 }, { RGB( 255, 255, 255 ) } ) // Header font color :SetColor( { 4 }, { {|| { RGB( 43, 149, 168 ), RGB( 0, 54, 94 ) } } } ) // Header backcolor :SetColor( { 17 }, { RGB( 255, 255, 255 ) } ) // Font color in SyperHeader :SetColor( { 6 }, { {|| { RGB( 255, 255, 74 ), RGB( 240, 240, 0 ) } } } ) // Cursor backcolor :SetColor( { 12 }, { {|| { RGB( 128, 128, 128 ), RGB( 250, 250, 250 ) } } } ) // Inactive cursor backcolor :SetColor( { 2 }, { {|| RGB( 230, 240, 255 ) } } ) // Grid backcolor :SetColor( { 1 }, { {|| RGB( 0, 0, 0 ) } } ) // Text color in grid :SetColor( { 5 }, { {|| RGB( 0, 0, 255 ) } } ) // Text color of cursor in grid :SetColor( { 11 }, { {|| RGB( 0, 0, 0 ) } } ) // Text color of inactive cursor in grid :nClrLine := COLOR_GRID :aColumns[1]:bPostEdit := { | uVal, oBr | myUpdate(uVal, oBr) } :ResetVScroll() END OBJECT RETURN oBrw Static Function myUpdate(Val, oBrw) local lRefresh oBrw:nLen := ( oBrw:cAlias )->( Eval( oBrw:bLogicLen ) ) ( oBrw:cAlias )->( DbSkip() ) lRefresh := ( oBrw:cAlias )->( EOF() ) ( oBrw:cAlias )->( DbSkip( -1 ) ) oBrw:nRowPos -= If( lRefresh .and. ; ! ( oBrw:cAlias )->( BOF() ), 1, 0 ) oBrw:Refresh( .T. ) Return nil Static Function TBrw_Obj( cBrw, cParent ) Local oBrw, i If ( i := GetControlIndex( cBrw, cParent ) ) > 0 oBrw := _HMG_aControlIds [ i ] EndIf Return oBrw Procedure CreateTable Local aDbf[6][4], i aDbf[1][ DBS_NAME ] := "Code" aDbf[1][ DBS_TYPE ] := "Numeric" aDbf[1][ DBS_LEN ] := 10 aDbf[1][ DBS_DEC ] := 0 // aDbf[2][ DBS_NAME ] := "First" aDbf[2][ DBS_TYPE ] := "Character" aDbf[2][ DBS_LEN ] := 25 aDbf[2][ DBS_DEC ] := 0 // aDbf[3][ DBS_NAME ] := "Last" aDbf[3][ DBS_TYPE ] := "Character" aDbf[3][ DBS_LEN ] := 25 aDbf[3][ DBS_DEC ] := 0 // aDbf[4][ DBS_NAME ] := "Married" aDbf[4][ DBS_TYPE ] := "Logical" aDbf[4][ DBS_LEN ] := 1 aDbf[4][ DBS_DEC ] := 0 // aDbf[5][ DBS_NAME ] := "Birth" aDbf[5][ DBS_TYPE ] := "Date" aDbf[5][ DBS_LEN ] := 8 aDbf[5][ DBS_DEC ] := 0 // aDbf[6][ DBS_NAME ] := "Bio" aDbf[6][ DBS_TYPE ] := "Memo" aDbf[6][ DBS_LEN ] := 10 aDbf[6][ DBS_DEC ] := 0 DBCREATE("Test", aDbf, "DBFCDX") Use test Via "DBFCDX" For i:= 1 To 100 append blank Replace code with i Replace First With 'First Name '+ Ltrim(Str(i)) Replace Last With 'Last Name '+ Ltrim(Str(i)) Replace Married With ( i/2 == int(i/2) ) replace birth with date()-Max(10000, Random(20000))+Random(LastRec()) Next i Index On field->code Tag code Use Return

 Отправлено: 13.09.16 07:56. Заголовок: Haz gfilatov2002 Сп..

Haz
gfilatov2002
Спасибо !
Работает.

 Отправлено: 13.09.16 10:17. Заголовок: Dima пишет: Спасибо..

Dima пишет:

цитата:

Спасибо ! Работает.

Не за что
вот этот кусок из метода DeleteRow и из примера Григория все делает

 
 oBrw:nLen := ( oBrw:cAlias )->( Eval( oBrw:bLogicLen ) )  
 ( oBrw:cAlias )->( DbSkip() )  
 lRefresh := ( oBrw:cAlias )->( EOF() )  
 ( oBrw:cAlias )->( DbSkip( -1 ) )  
 oBrw:nRowPos -= If( lRefresh .and. ;  
 ! ( oBrw:cAlias )->( BOF() ), 1, 0 )  
 oBrw:Refresh( .T. )  
 

 Отправлено: 18.10.16 00:29. Заголовок: Всем привет. Делал т..

Всем привет.
Делал таблицу и полдня бился с глухим зависанием программы.
Пока не стал отключал построчно создание Tsbrowse.

Вот такой код вешает программу наглухо:
Add Super Header To oBrw1 From Column 1 To Column 1 ;
Color CLR_WHITE, { nBackForm, nHeadColor1 } ;
Title "" 3DLook BITMAP LoadImage("WMenu") HORZ DT_LEFT

Я тоже не понимал почему, а потом дошло... В ресурсы забыл добавить "WMenu" ...
Там в сами исходники поставить проверку на наличие BITMAP можно ?

 Отправлено: 18.10.16 11:45. Заголовок: Andrey пишет: Там в..

Andrey пишет:

цитата:

Там в сами исходники поставить проверку на наличие BITMAP можно ?

Да, это возможно, в таком случае будет генерироваться минигуи-ошибка, как при отсутствии формы или контрола

 Отправлено: 18.10.16 14:12. Заголовок: gfilatov2002 пишет: ..

gfilatov2002 пишет:

цитата:

Да, это возможно, в таком случае будет генерироваться минигуи-ошибка, как при отсутствии формы или контрола

Отлично !

 Отправлено: 18.10.16 20:32. Заголовок: Всем привет ! Вывож..

Всем привет !

Вывожу пустую таблицу. Потом открываю нужную базу и пытаюсь заново показать в уже построенном Tsbrowse.
Скрытый текст

cAlias := ALIAS() // старая база cNewAlias := "NewBase" // удалить колонки старой базы nJ := oBrw1:nColCount() FOR nI := 1 TO nJ oBrw1:DelColumn( nI ) NEXT (cAlias)->(DbCloseArea()) // закрыть старую базу SELECT(cNewAlias) oBrw1:cAlias := cNewAlias oBrw1:Reset() LoadFields( "oBrw1", cForm, .F.) // все поля не редактируемые oBrw1:Refresh(.T.)

Фигня получается... Первая колонка от старой таблицы остаётся.
Цвета в таблице тоже пропадают. Курсор собранный в один - тоже пропадает.

Как правильно сделать мне - открытие базы в уже построенном Tsbrowse ?

 Отправлено: 19.10.16 03:55. Заголовок: Andrey пишет: oBrw1:..

Andrey пишет:

цитата:

oBrw1:cAlias := cNewAlias oBrw1:Reset() LoadFields( "oBrw1", cForm, .F.)... Фигня получается...

Получается все правильно, как заказывал:
- LoadFields() ставит FieldWBlock(..., Select(cAlias)), привязка к области
- cNewAlias это др. область
- вывод, открывать cNewAlias в той же области или переписать на свой вариант FieldWBlock(...),
пример FieldABlock(bBlock, cAlias):

 
 FUNCTION FIELDABLOCK( cFieldName, cAlias ) 
  
    IF cAlias == NIL; cAlias := Alias(); ENDIF 
  
    IF ISCHARACTER( cFieldName ) .AND. ISCHARACTER( cAlias ) 
       RETURN &( "{| x | iif( x == NIL, "+ ; 
                 "(["+cAlias+"])->( FieldGet( FieldPos( ["+cFieldName+"] ) ) )"+ ; 
                 "(["+cAlias+"])->( FieldPut( FieldPos( ["+cFieldName+"] ) ) ) }" ) 
    ENDIF 
  
    RETURN NIL 
 

 Отправлено: 19.10.16 04:00. Заголовок: PS чуток пропустил &..

PS
чуток пропустил
"(["+cAlias+"])->( FieldPut( FieldPos( ["+cFieldName+"] ), x ) ) }" )

 Отправлено: 19.10.16 14:05. Заголовок: SergKis пишет: Полу..

SergKis пишет:

цитата:

Получается все правильно, как заказывал: - LoadFields() ставит FieldWBlock(..., Select(cAlias)), привязка к области - cNewAlias это др. область

Не совсем понял ?
Я же делаю перед этим переключение на новый алиас:
SELECT(cNewAlias)
oBrw1:cAlias := cNewAlias

Попробую со старым... потом напишу.

 Отправлено: 19.10.16 14:33. Заголовок: Переделал на открыти..

Переделал на открытие старого алиаса.
Всё равно фигня получается.
1) Остаётся первая колонка из предыдущей базы, причём дублирует информацию с другой колонки.
2) Цвета определённые ранее теряются полностью.

Вот скрин:


Как правильно сделать мне - открытие базы в уже построенном Tsbrowse ?

 Отправлено: 19.10.16 15:02. Заголовок: Andrey Переоткрывае..

Andrey
Переоткрываешь так ?
dbSelectArea(cAlias)
dbCloseArea()
dbUseArea( .F., , cFileDbf, cAlias, ...)

 Отправлено: 19.10.16 15:50. Заголовок: SergKis пишет: Пере..

SergKis пишет:

цитата:

Переоткрываешь так ?

Нет, не так. Но база под старым алиасом нормально открывается.
Попробовал как предложил, та же самая фигня.
База открыта нормально, а в таблице бардак.

 Отправлено: 19.10.16 16:15. Заголовок: Andrey пишет: oBrw1..

Andrey пишет:

цитата:

oBrw1:Reset() LoadFields( "oBrw1", cForm, .F.) // все поля не редактируемые oBrw1:Refresh(.T.)

А если так
LoadFields( "oBrw1", cForm, .F.) // все поля не редактируемые
oBrw1:Reset()
Рефреш не нужен

 Отправлено: 19.10.16 16:44. Заголовок: Dima пишет: А если ..

Dima пишет:

цитата:

А если так

База открывается нормально. Поля показываются тоже, НО:
Andrey пишет:

цитата:

Всё равно фигня получается. 1) Остаётся первая колонка из предыдущей базы, причём дублирует информацию с другой колонки. 2) Цвета определённые ранее теряются полностью. Вот скрин: (см. выше)

Нужно удалить колонку из старой базы и восстановить все цвета и состояние сборного курсора из предыдущей базы.
Если нельзя так, то скажите пожалуйста как можно.

 Отправлено: 19.10.16 16:58. Заголовок: Andrey пишет: 1) Ос..

Andrey пишет:

цитата:

1) Остаётся первая колонка из предыдущей базы, причём дублирует информацию с другой колонки. 2) Цвета определённые ранее теряются полностью.

Все по феншую. см. код метода DelColumn
А что мешает после добавления новых столбов удалить столбец №1?

Перед манипуляциями с oBrw1 cохраните цвета
aColors := oBrw1:aColors
и восстановите в нужный момент
oBrw1:aColors := aColors

Перерисуйте oBrw1

 Отправлено: 19.10.16 17:06. Заголовок: Andrey пишет База от..

Andrey пишет

цитата:

База открыта нормально, а в таблице бардак

Так oBrw:LoadFields(...) создает колонки

 
       cBlock := 'FieldWBlock("' + aStru[ nE, 1 ] + '",Select("' + ::cAlias + '"))' 
       ::AddColumn( TSColumn():New( cHeading, FieldWBlock( aStru[ nE, 1 ], Select( ::cAlias ) ),cPicture, ; 
                                    { ::nClrText, ::nClrPane }, { nAlign, DT_CENTER }, nSize,, lEditable,,, cOrder,,,, ; 
                                    5,,,, Self, cBlock ) ) 
 

т.е. aStru от старой базы.
Структуры соответствут в базах (пустой и нормальной) ?
На простом примере показал бы.

 Отправлено: 19.10.16 17:25. Заголовок: Andrey еще METHOD D..

Andrey еще

 
 METHOD DelColumn( nPos ) CLASS TSBrowse 
  
    Local oCol, nMin, nMax, nI, ; 
          nLen := Len( ::aSuperHead ) 
  
    Default nPos := 1 
  
    If Len( ::aColumns ) == 1                     // cannot delete last column 
       Return Nil                                 // ... or Nil if last column 
    EndIf  
 ... 
 

 Отправлено: 19.10.16 18:46. Заголовок: SergKis пишет: т.е...

SergKis пишет:

цитата:

т.е. aStru от старой базы.

С какой радости, если

SELECT(cNewAlias)  
 oBrw1:cAlias := cNewAlias 
 ... 
  
 METHOD LoadFields( lEditable ) CLASS TSBrowse 
 ... 
          aStru  := ( ::cAlias )->( DbStruct() ) 
  
 

 Отправлено: 19.10.16 20:59. Заголовок: Петр :sm36: Тольк..

Петр

Только во всей этой катавасии со сменой структуры и колонок (SuperHeader, Footer, цветов), большого смысла не вижу.
Сначала показалось, что речь идет о смене с пустого файла на нормальный, а тут ...
Проще удалить контрол Tsb и пересоздать новый, чем сохранять цвета, удалять колонки (первую сделать одинаковой и удалять со второй и дальше), создавать снова колонки после первой..., заголовки, восстанавливать цвета ....
По мне, больше головной боли.

 Отправлено: 19.10.16 21:08. Заголовок: SergKis пишет: Прощ..

SergKis пишет:

цитата:

Проще удалить контрол Tsb и пересоздать новый

Совершенно с Вами согласен. Если уже создан контрол, то оформить его создание (удаление) в виде отдельной функции и использовать ее столько раз, сколько будет нужно - выглядит совершенно естественно.
Но хозяин - барин, и время и нервы его..

 Отправлено: 20.10.16 01:34. Заголовок: SergKis пишет: Толь..

SergKis пишет:

цитата:

Только во всей этой катавасии со сменой структуры и колонок (SuperHeader, Footer, цветов), большого смысла не вижу. Сначала показалось, что речь идет о смене с пустого файла на нормальный, а тут ... Проще удалить контрол Tsb и пересоздать новый, чем сохранять цвета, удалять колонки

Петр пишет:

цитата:

Если уже создан контрол, то оформить его создание (удаление) в виде отдельной функции и использовать ее столько раз, сколько будет нужно - выглядит совершенно естественно. Но хозяин - барин, и время и нервы его..

Ну теперь понятно как делать !
Спасибо за подсказку.

 Отправлено: 24.10.16 10:04. Заголовок: Как можно сделать фу..

Как можно сделать функцию чтения текущего цвета, чтобы его (цвет) потом передавать для другого условия ?
Например, если поставить два условия:

 
      // --- меняем цвета текста в ячейках таблицы --( oCol:nClrFore = oBrw:SetColor({1}...)--- 
      AEval(oBrw:aColumns, {|oCol,nCol| oCol:nClrFore := { |a,b,o| ; 
                              iif( (o:cAlias)->ERR_4 == -1 , CLR_HRED, CLR_BLACK ) } }) 
      AEval(oBrw:aColumns, {|oCol,nCol| oCol:nClrFore := { |a,b,o| ; 
                              iif( (o:cAlias)->ERR_4 == 1 , CLR_HBLUE, CLR_BLACK ) } })

то последнее условие будет всегда исполнятся, первое условие будет игнорироваться.

Можно ли как то сделать типа так: ???

  
      AEval(oBrw:aColumns, {|oCol,nCol| oCol:nClrFore := { |a,b,o| ; 
                              iif( (o:cAlias)->ERR_4 == -1 , CLR_HRED, MyCLR() ) } }) 
      AEval(oBrw:aColumns, {|oCol,nCol| oCol:nClrFore := { |a,b,o| ; 
                              iif( (o:cAlias)->ERR_4 == 1 , CLR_HBLUE, MyCLR() ) } })

Ну может ещё параметр передавать в MyCLR() нужно...

 Отправлено: 24.10.16 17:05. Заголовок: Блин, что то я ступи..

Блин, что то я ступил... Решение то простое. Совсем заработался...
AEval(oBrw:aColumns, {|oCol,nCol| oCol:nClrFore := { |a,b,o| MyTsbColorText( (o:cAlias)->ERR_4 ) } } )
..............
////////////////////////////////////////////////////////////
STATIC FUNCTION MyTsbColorText(nVal)
LOCAL nColor

IF nVal == -1
nColor := CLR_HRED
ELSEIF nVal == 1
nColor := CLR_HBLUE
ELSE
nColor := CLR_BLACK
ENDIF

RETURN nColor

 Отправлено: 25.10.16 23:17. Заголовок: А вы знаете, что в М..

А вы знаете, что в МиниГуи 16.09 содержится 5796 файлов - размером 85,5 Мб ?
А в папке Include 90 файлов занимают 1,01 Мб ?
А папка исходников SAMPLES с *.prg весит 8,85 Мб и кол-во файлов 1003 и самые первые исходники датированы 2003 годом ?
Все эти сведения смотрите в новом примере Tsbrowse у Григория !

 Отправлено: 26.10.16 13:52. Заголовок: Andrey При чем тут ..

Andrey
При чем тут твое сообщение и название темы ?
О каком примере речь ?

PS
Хорошая трава у тебя однако

 Отправлено: 26.10.16 14:14. Заголовок: Dima пишет: При чем..

Dima пишет:

цитата:

При чем тут твое сообщение и название темы ? О каком примере речь ?

Скорее всего, Андрей написал новый пример на тему использование Tsbrowse в MiniGUI и надеется, что Григорий его опубликует в новом релизе.

 Отправлено: 26.10.16 14:46. Заголовок: Петр пишет: Андрей ..

Петр пишет:

цитата:

Андрей написал новый пример на тему использование Tsbrowse в MiniGUI

Так и есть

Петр пишет:

цитата:

Григорий его опубликует в новом релизе

Да, я включил этот пример после небольшой чистки в 4-ю бету.

Петр
Выложил 4-ю бета-сборку на ftp по прежнему адресу

 Отправлено: 26.10.16 15:02. Заголовок: Обратил внимание h_t..

Обратил внимание h_tbrowse.prg в методе Excel2 если выводит цифровые данные по шаблону
допустим 999999.99 -> то результат будет с одним знаком после запятой и меньшим в 10 раз.
Раньше не обращал внимание - все работало.
Крутил блок со строки 4374: if "@Z " $ ::aColumns[ nCol ]:cPicture .or. LEN(cPic) > 3
пока результата не добился...

 Отправлено: 26.10.16 20:12. Заголовок: Петр пишет: Скорее ..

Петр пишет:

цитата:

Скорее всего, Андрей написал новый пример на тему использование Tsbrowse в MiniGUI

Нет, не я написал. SergKis сделал.

 Отправлено: 01.11.16 12:00. Заголовок: Всем привет. Вопрос ..

Всем привет.
Вопрос возник по бровсу.

На окне имею Tsbrowse с вертикальной линией скролинга и подвалом.
Делаю - oBrw:Enabled( .F. ) // отключить показ TBROWSE
Шапка таблицы становится серой, сама таблица пропадает, а подвал и скролинг остаются.
Это должно быть так или это глюк ?
Как убрать скролинг и подвал ?

 Отправлено: 01.11.16 16:05. Заголовок: Andrey сделай SetP..

Andrey
сделай
SetProperty(oBrw:cParentWnd, oBrw:cControlName, "Enabled", .F.)

 Отправлено: 01.11.16 16:09. Заголовок: Andrey Если хочешь ..

Andrey
Если хочешь скрыть tsb, делай oBrw:Hide()

 Отправлено: 01.11.16 16:43. Заголовок: krutoff пишет: Обра..

krutoff пишет:

цитата:

Обратил внимание h_tbrowse.prg в методе Excel2 если выводит цифровые данные по шаблону допустим 999999.99 -> то результат будет с одним знаком после запятой и меньшим в 10 раз. Раньше не обращал внимание - все работало. Крутил блок со строки 4374: if "@Z " $ ::aColumns[ nCol ]:cPicture .or. LEN(cPic) > 3 пока результата не добился...

Неужели у всех цифровые поля с копейками нормально в Excel выводятся?
Или никто в XLS TSBrowse не выводит?

 Отправлено: 01.11.16 17:05. Заголовок: SergKis пишет: сдел..

SergKis пишет:

цитата:

сделай SetProperty(oBrw:cParentWnd, oBrw:cControlName, "Enabled", .F.)

Не помогает ! Остаётся так же: со скролингом и подвалом таблицы. Версия 16.09 !

SergKis пишет:

цитата:

Если хочешь скрыть tsb, делай oBrw:Hide()

Это получше.... Пока пойдёт !
Но я хотел бы на дальнем фоне оставить таблицу заблокированную, на будущее...

 Отправлено: 01.11.16 17:10. Заголовок: krutoff пишет: Неуж..

krutoff пишет:

цитата:

Неужели у всех цифровые поля с копейками нормально в Excel выводятся?

У меня тоже нет второго 0. выводит только 0.0, вторую цифру после нуля обрезает.

 Отправлено: 01.11.16 17:25. Заголовок: Andrey пишет Не помо..

Andrey пишет

цитата:

Не помогает ! Остаётся так же: со скролингом и подвалом таблицы. Версия 16.09 !

версия 2.07. oBrw:Enabled(.F.) - как утебя, SetProperty(...) - все хорошо, таблица блокирована, отображение норма

 Отправлено: 04.11.16 18:25. Заголовок: Опять глюк поймал.....

Опять глюк поймал...
Сделал меню (2 колонки) из Tsbrowse, назначил только блок кода на обработку:

oBrw:aColumns[1]:bPrevEdit := {|| MenuRun(), FALSE }   
 oBrw:aColumns[2]:bPrevEdit := {|| MenuRun(), FALSE }   
 ..... 
 STATIC FUNCTION MenuRun() 
 .... 
          SetProperty(oBrw:cParentWnd, oBrw:cControlName, "Enabled", .F.) 
          oBrw:Hide()    // отключить показ Tsbrowse 
          Menu2Start("RUN new function", oBrw:nAt )  
          oBrw:Show()  // включить показ Tsbrowse 
          SetProperty(oBrw:cParentWnd, oBrw:cControlName, "Enabled", .T.)  
          oBrw:Refresh(.T.) 
          Form_2.oBrw.Setfocus 
  
  RETURN Nil

Функцию обработки при изменении позиции маркера не использую.
//oBrw:bChange := { |oBrw| ChangeTable(oBrw) }

В функции Menu2Start("RUN new function", oBrw:nAt ) - всё равно происходит показ таблицы oBrw ! Почему ?
Мышкой по клацаешь (или стрелками с Enter используешь) и таблица вся появляется...
Что нужно добавить чтобы таблица не появлялась в функции Menu2Start() ?

 Отправлено: 05.11.16 18:42. Заголовок: Andrey пишет: В фун..

Andrey пишет:

цитата:

В функции Menu2Start("RUN new function", oBrw:nAt )

Ты ведь покажешь что в ней живет ?
Телепаты в отпуске.

PS
Только не надо мне ее на мыло слать , сюда пиши.

 Отправлено: 05.11.16 19:32. Заголовок: Dima пишет: Ты ведь..

Dima пишет:

цитата:

Ты ведь покажешь что в ней живет ? Телепаты в отпуске.

Да в той функции нет обращений к объектам таблицы. Только кнопочки и смена фона.
Я разобрался с этим. Оказывается всё просто, нужно

SetProperty(oBrw:cParentWnd, oBrw:cControlName, "Enabled", .F.)  
           oBrw:Hide()    // отключить показ Tsbrowse 

поместить в саму функцию Menu2Start(), а

oBrw:Show()  // включить показ Tsbrowse  
           SetProperty(oBrw:cParentWnd, oBrw:cControlName, "Enabled", .T.)   
           oBrw:Refresh(.T.)  
           Form_2.oBrw.Setfocus 

поставить перед выходом из функции Menu2Start() ! И глюк пропал...
Замена мест слагаемых - меняет действие глюка.

 Отправлено: 06.11.16 12:25. Заголовок: Пример на эту тему: ..

Пример на эту тему: http://my-files.ru/catj99

 Отправлено: 07.11.16 14:22. Заголовок: Тот же пример, с поп..

Тот же пример, с попыткой заменить метод Enabled: http://my-files.ru/w3b3nf

 Отправлено: 08.11.16 17:01. Заголовок: Ездили ездили колесо..

Ездили ездили колесом на вынь XP и бах таблица стала ломаться
Скрытый текст

Перезашли в прогу , 10 минут все хорошо , потом снова такая же ерунда.
У себя на вынь 7 такого не наблюдаю.
Что за напасть ?

PS
Задача сетевая

 Отправлено: 08.11.16 17:40. Заголовок: Вот и я доездился в ..

Вот и я доездился в семерке
В начале пропали все иконки , с кнопок и бровса
Затем начал глючить скрол ........и понеслась
После закрытия окна с бровсом в главном окне пропали картинки и иконки включая главное меню.
При повторном запуске бровса ни чего изменилось , картинок и иконок нет.
После закрытия , главное окно полностью потеряло все контролы и все закрасилось серым цветом.
PS
MiniGui 16.06 + Mingw 4.9.2 не тот что был в поставке + Harbour свой от 2016-03-10

Скрытый текст

 Отправлено: 08.11.16 18:45. Заголовок: Dima пишет Ездили ез..

Dima пишет

цитата:

Ездили ездили колесом на вынь XP и бах таблица стала ломаться

стрелками вверх\вниз, такая же ерунда ?
1. Убери горизонт. скролл, пробни
2. Уменьши высоту заголовка на 1, 2 рх

 Отправлено: 08.11.16 19:16. Заголовок: SergKis Так он норм..

SergKis
Так он нормально работает минут 15 и потом бац
Попробую пересобрать с тем Mingw что шел в поставке Минигуи + Harbour от него

 Отправлено: 08.11.16 20:21. Заголовок: Дима, если происходи..

Дима, если происходит сбой на 1 рх, то прорисовка может сломаться, потому проверить не мешает.
от стрелок вверх\вниз через 15 мин. ломается?

 Отправлено: 08.11.16 22:55. Заголовок: Dima пишет: Попробу..

Dima пишет:

цитата:

Попробую пересобрать с тем Mingw что шел в поставке Минигуи + Harbour от него

Пытаюсь пересобрать с 16.06 на 16.10
Получаю
hbmk2: Error: Referenced, missing, but unrecognized Harbour function(s): HB_LANG_RUWIN()
В сырце стоит так
REQUEST HB_CODEPAGE_RU1251, HB_CODEPAGE_RU866 , HB_LANG_RUWIN
Что то я потерялся , да еще и файл ресурсов не собирается и валит ошибку
C:/MINIGUI_MG/hmg/mingw32/bin/../lib/gcc/i686-w64-mingw32/6.2.0/../../../../i686-w64-mingw32/bin/ld.exe: .rsrc merge failure: dupl
icate leaf: type: 2 (BITMAP) name: BOX16 lang: 409

 Отправлено: 09.11.16 10:13. Заголовок: И все таки какая то ..

И все таки какая то порча с Минигуи 16.10 под MINGW
Взял пример minigui\Samples\MAINDEMO\ и собрал его с помощью Build.bat , все нормально
После добавил в сырец примера строку REQUEST HB_LANG_RUWIN и снова пробнул собрать ,
не собирается.
Куда копать ?

И до кучи , UPX3.91w не жмет исполняемые файлы Minigui (16.10)+Mingw и выдает
CantPackException: superfluous data between sections

 Отправлено: 09.11.16 11:03. Заголовок: SergKis пишет: стре..

SergKis пишет:

цитата:

стрелками вверх\вниз, такая же ерунда ? 1. Убери горизонт. скролл, пробни 2. Уменьши высоту заголовка на 1, 2 рх

Да со стрелками та же ерунда , но не сразу. Минут 5 полет нормальный
Заголовок уменьшил на 2 px , не помогло
Г скролл выключил но после этого пропали 2 крайние колонки

 Отправлено: 09.11.16 11:46. Заголовок: Dima пишет Да со стр..

Dima пишет

цитата:

Да со стрелками та же ерунда , но не сразу.

Попробуй, нажимая стрелку вниз\вверх, перемежать нажатием PgDn\PgUp
У меня была похожая ситуевина (через 100 строк вставлял Pg... и помогло)

 Отправлено: 09.11.16 11:55. Заголовок: PS Г скролл у меня о..

PS
Г скролл у меня отключен совсем, дело в том, что GetHScrollBarHeight() дает разные данные,
а в расчетах тсб по другому и возникает дисбаланс рх.
еще отключи noholes - без нее пробни.

 Отправлено: 09.11.16 12:18. Заголовок: SergKis пишет: еще ..

SergKis пишет:

цитата:

еще отключи noholes - без нее пробни.

выключил , снова поездил мышкой.....минут через 5 сломались хидеры в обоих бровсах , после пропали
все картинки в таблицах , цвет грида (сетки) сбросился сам на дефолтный ,
при нажатии на кнопку вызова справочника , получил серое окно ....после путем нажатия ESC добрался
до главного окна в котором главное меню уже было сломано , но если мышкой поводить там где оно должно жить ,
то оно появляется.
Барабашки что ли завелись....не знаю что делать.
Может ну его в лес MINGW и взять старый добрый BCC55 , вот только не уверен что это поможет.

PS
Ведь если "загулял" где то пиксель то глючить начало бы сразу. А так в течении 5-10 минут я успеваю "объезжать"
всю таблицу вдоль и поперек и ни каких глюков нет.
Ни чего не понимаю


PS2
В одном окне живет 2 бровса , главный и подчиненный , двигаясь по главному , меняется содержимое подчиненного бровса.
Такое впечатление что где то утечка памяти.......

 Отправлено: 09.11.16 13:30. Заголовок: Dima пишет Ведь если..

Dima пишет

цитата:

Ведь если "загулял" где то пиксель то глючить начало бы сразу.

В том и дело, что не сразу. Стрелками жмем (колесо мыши) одна прорисовка, PgDn\Up другая Мне вставка Pg..., между нажатями стрелок, помогла. Если тебе, при нажатии стрелки вниз, через 50 строк пробега, отпускать и жать PgDn и снова стрелку вниз на ~50 строк и т.д. в течении 15-20 мин. не сломает, ... было бы не плохо - бороться можно.
На твоей картинке видно как развалилась прорисовка, на заголовке линия и строки смещены, наложены.
А когда тсб сломался, то происходит полная фигня и с др. окнами (правда не всегда), причем полная.
Программа большая (много окон) без тсб (browse), работает месяцами без перезагрузки, с тсб большой нет, пока использую прогу как утилиту со многими входами (и тсб) - совмещаю с wvt. Но все время в ожидании ситуации, как у тебя выползла.
Виноват ли тут MinGw ? Поможет Bcc ? я на mvc.

 Отправлено: 09.11.16 13:35. Заголовок: Dima пишет Такое впе..

Dima пишет

цитата:

Такое впечатление что где то утечка памяти.......

Это вполне возможно с памятью, вся база минигуи это public переменные, мусоросборщик может их таскать и ...
В VO это было большой проблеммой

 Отправлено: 09.11.16 13:42. Заголовок: Сергей , стрелки ни ..

Сергей , стрелки ни кто и не использует для движения , как правило это мышь.
А конкретно где и как ты предлагаешь вставить PG....?
Сейчас тупо гоняю тест в своей проге где в одном окне всего один бровс и пока глюков нет.
Такое впечатление что заглючить может тогда ,когда в одном окне 2 бровса , но пока еще
потестю и отпишу.

 Отправлено: 09.11.16 13:48. Заголовок: Dima пишет В одном о..

Dima пишет

цитата:

В одном окне живет 2 бровса

От 2-х тсб, я пока отказался (нет уверенности в нормальной\надежной работе), планирую browse+tsb или tsb+browse, в зависимости от сложных header\footer -> tsb и простых > browse.

 Отправлено: 09.11.16 13:53. Заголовок: SergKis пишет: От 2..

SergKis пишет:

цитата:

От 2-х тсб, я пока отказался

Меня только что посетила мысль.
Вместо того что бы помещать 2 бровса в одно окно , можно сделать иначе.
Окно , на нем еще 2 окна под размеры бровсов и уже в каждом из этих окон будет жить свой бровс.
Возможно глючить не будет , но уверенности нет...........

 Отправлено: 09.11.16 13:53. Заголовок: Dima пишет стрелки ..

Dima пишет

цитата:

стрелки ни кто и не использует для движения , как правило это мышь

Крутя колесико - посылается сообщение, в исполнение которого лежит типа нажали стрелку.
Прудлагаю ручками (имитация колесика) проделать, как описал выше, стрелка нажата, пробежали 50-100 записей, PgDn ...
Если поможет, покажу где что вставить.

 Отправлено: 09.11.16 14:01. Заголовок: Dima пишет Окно , на..

Dima пишет

цитата:

Окно , на нем еще 2 окна под размеры бровсов и уже в каждом из этих окон будет жить свой бровс.

Окна с тсб без заголовков и всего, так можно пробнуть, отпишись, что выйдет.

 Отправлено: 09.11.16 14:05. Заголовок: SergKis пишет: Окна..

SergKis пишет:

цитата:

Окна с тсб без заголовков и всего, так можно пробнуть, отпишись, что выйдет.

конечно

 Отправлено: 09.11.16 15:45. Заголовок: Dima пишет: Такое в..

Dima пишет:

цитата:

Такое впечатление что где то утечка памяти.

Да, такое впечатление. Под FW с TsBrows ом у меня такие проблемы были. Отследи утечку, потом можно будет пободаться.
Например убрать все фонты ....

 Отправлено: 09.11.16 16:13. Заголовок: ММК в Xбровсе FW та..

ММК
в Xбровсе FW такого нет ?

 Отправлено: 09.11.16 16:20. Заголовок: Dima пишет: в Xбров..

Dima пишет:

цитата:

в Xбровсе FW такого нет ?

Нет. Xбровс это уже другой уровень, другие возможности.

 Отправлено: 09.11.16 16:43. Заголовок: ММК То есть ни чего..

ММК
То есть ни чего в нем само не ломается если сам ошибок не сделал , так ?

 Отправлено: 09.11.16 16:53. Заголовок: SergKis Значит сдел..

SergKis
Значит сделал я в отдельном окне.
Одно окно STANDART большое на весь экран , под главный бровс внутри этого окна сделал окно WINDOWTYPE PANEL
и в нем поселил главный бровс.
Поездил и глюки повторились (не сразу) .
Печаль......

 Отправлено: 09.11.16 17:51. Заголовок: Dima А если не пане..

Dima
А если не панель (там вроде не все ок), а child на каждый тсб, а сверху standart ?

 Отправлено: 09.11.16 18:00. Заголовок: SergKis Да что то я..

SergKis
Да что то я сразу не допер , так как смутил первый вылет когда я просто внутри окна определил другое окно
и когда запустил , выпала месага что внутри окна можно создать только окно типа Panel
Я пока что делаю чистый эксперимент , езжу только клавишами......о снова все сломалось при чем
в обоих бровсах сразу.
Хрен знает что делать.......а клиент уже лютует

ЗЫ
Чем больше ездим по бровсу , не важно как , мышка или клава , тем он быстрее дурнеет и дурнеет......
Может ему какую оздоравливающую процедуру делать по таймеру ?
Вопрос в том какую...
Говорю о двух бровсах в одном окне.
Когда один то такого не происходит , мне не удалось это сделать.

 Отправлено: 09.11.16 18:29. Заголовок: Dima пишет: Хрен зн..

Dima пишет:

цитата:

Хрен знает что делать.......а клиент уже лютует

Сочувствую... Аналогично бывает...
Я только один бровс в окне использую.

SergKis пишет:

цитата:

А если не панель (там вроде не все ок), а child на каждый тсб, а сверху standart ?

Вот это интересное решение, но столько проблем начинается при перетаскивании окна.
Если каждое окно - само за себя то это классное решение.