Отправлено: 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:....

 Отправлено: 28.04.19 13:24. Заголовок: Haz пишет Может обра..

Haz пишет

цитата:

Может обработку bEditLog поднять перед этой подготовкой?

По мне, не стоит. Это в If ... else ... min 2 раза вставлять.
Не пробовал, но если :nEditMove := 0, то :nCell и nCol должны быть равными.
Достаточно, по мне, сохранить, установить и восстановить :nCell, как показал выше

 Отправлено: 28.04.19 13:36. Заголовок: PS Но если :nEditMod..

PS
Но если :nEditMode будет с перескоком на другую строку тсб, то RecNo(), (:cAlias)->ID, ... будут неверными.
И поэтому, Игорь, твое предложение будет, наверно, правильнее.

 Отправлено: 28.04.19 13:56. Заголовок: Haz пишет Может обра..

Haz пишет

цитата:

Может обработку bEditLog поднять перед этой подготовкой?

Поднял

 
 METHOD PostEdit( uTemp, nCol, bValid ) CLASS TSBrowse 
 ... 
          ( cAlias )->( DbSkip( 0 ) )  // refresh relations just in case that a relation field changes 
  
          xNewEditValue := ::bDataEval( ::aColumns[ nCol ], , nCol ) //Igor Nazarov 
  
          If hb_isBlock( ::bEditLog ) .and. ::aColumns[ nCol ]:xOldEditValue != xNewEditValue 
             Eval( ::bEditLog, ::aColumns[ nCol ]:xOldEditValue, xNewEditValue, Self ) 
          EndIf 
  
          ::SetFocus() 
  
          If nLastKey == VK_UP .and. ::lPostEditGo 
 ... 
       If lAppend .and. ::bChange != Nil 
          Eval( ::bChange, Self, ::oWnd:nLastKey ) 
       EndIf 
  
       xNewEditValue := ::bDataEval( ::aColumns[ nCol ], , nCol ) //Igor Nazarov 
  
       If hb_isBlock( ::bEditLog ) .and. ::aColumns[ nCol ]:xOldEditValue != xNewEditValue 
          Eval( ::bEditLog, ::aColumns[ nCol ]:xOldEditValue, xNewEditValue, Self ) 
       EndIf 
  
       ::SetFocus() 
  
       If nLastKey == VK_UP .and. ::lPostEditGo 
 ... 
 //   xNewEditValue := ::bDataEval( ::aColumns[ nCol ], , nCol ) //Igor Nazarov 
    
 //   If hb_isBlock( ::bEditLog ) .and. ::aColumns[ nCol ]:xOldEditValue != xNewEditValue 
 //      Eval( ::bEditLog, ::aColumns[ nCol ]:xOldEditValue, xNewEditValue, Self ) 
 //   EndIf 
  
 Return Nil 
 ... 
 

Пример отработал нормально

 Отправлено: 28.04.19 14:09. Заголовок: SergKis пишет: Прим..

SergKis пишет:

цитата:

Пример отработал нормально

Сергей, спасибо за помощь.

 Отправлено: 28.04.19 14:26. Заголовок: Наверное всё таки жу..

Наверное всё таки журнал правки лучше держать в виде базы ?
А то за несколько лет текстовый лог разрастётся непомерно и поиск в нем будет идти долго.

 Отправлено: 28.04.19 15:50. Заголовок: А то за несколько ле..

цитата:

А то за несколько лет текстовый лог разрастётся

Веди в разрезе года. Новый год, новый файл

 Отправлено: 05.07.19 18:22. Заголовок: Искал, искал и не на..

Искал, искал и не нашёл.
Как убрать в таблице в колонках дата пустые даты - ". ." ?

 Отправлено: 05.07.19 20:05. Заголовок: Andrey пишет Как убр..

Andrey пишет

цитата:

Как убрать в таблице в колонках дата пустые даты - ". ." ?

oCol:lEmptyValToChar := .T.
нули тоже убирает

 Отправлено: 05.07.19 20:35. Заголовок: SergKis пишет: oCol..

SergKis пишет:

цитата:

oCol:lEmptyValToChar := .T. нули тоже убирает

Не совсем понял... Это по колонкам нужно пробежаться ?
А сразу на всю таблицу нет команды ?

Как например oBrw:lPickerMode := .F.

P.S. Да проверил, нужно самому пробежаться по колонкам.

      For nI := 1 To :nColCount() 
          oCol            := :aColumns[ nI ] 
          // центровка подвала таблицы 
          oCol:nFAlign    := DT_CENTER 
          If oCol:cName == 'Name_1' 
             oCol:nAlign  := DT_CENTER  // центровка колонки 'Name_1' 
          EndIf 
          // фонты для строк таблицы 
          oCol:hFont      := {|nr,nc,ob| TsbFont(nr, nc, ob)}  
          // убрать пустую дату и 0 в колонках 
          oCol:lEmptyValToChar := .T.       
       Next

СПАСИБО БОЛЬШОЕ !

 Отправлено: 05.07.19 20:44. Заголовок: Andrey пишет Это по ..

Andrey пишет

цитата:

Это по колонкам нужно пробежаться ?

Да.

цитата:

А сразу на всю таблицу нет команды ?

AEval(oBrw:aColumns, {|oc| oc:lEmptyValToChar := .T. })
У меня в tscolumns.prg стоит
DATA lEmptyValToChar AS LOGICAL INIT .T. // .F. True if show of empty string for empty values of D,N,T,L types

 Отправлено: 17.07.19 10:06. Заголовок: Очередная непонятка ..

Очередная непонятка с SetArrayTo()
Создаю массив для него, создается 9 элементов.
Когда считываю его размер oBrw:nLen, пишет что 8.
Как такое может быть ? Что неправильно делаю ?

Вот код:
Скрытый текст

? "-----------------", cBrw , cForm ?v aArray aMassiv := aArray // переопределяем массив на сокращённый ? "LEN(aMassiv)=",LEN(aMassiv) oBrw:DeleteRow( .T. ) // Delete All oBrw:aArray := {} // очистить массив oBrw:reset() FOR nI := 1 TO LEN(aMassiv) // нужно сделать массив на +1 больше aRows := Array(1, 13) aRows[1][1] := 0 aRows[1][2] := 0 aRows[1][3] := CTOD("") aRows[1][4] := 0 aRows[1][5] := CTOD("") aRows[1][6] := SPACE(20) aRows[1][7] := 0 aRows[1][8] := 0 aRows[1][9] := CTOD("") aRows[1][10] := 0 aRows[1][11] := "" aRows[1][12] := "" aRows[1][13] := "" oBrw:AddItem( aRows[1] ) ? "-AddItem-", nI, HB_ValToExp(aRows[1]) NEXT oBrw:Reset() oBrw:Refresh(.T.) ? " oBrw:nLen=", oBrw:nLen, " LEN(aMassiv)=", LEN(LEN(aMassiv))

Вот лог-файл:
Скрытый текст

----------------- Set_Columns1 Form_AYC 1 {40.00, 0d20190331, 120.00, 0d20190130, ... } 2 {40.00, 0d20190331, 0.00, 0d20190131, ... } 3 {40.00, 0d20190331, 0.00, 0d20190228, ... } 4 {40.00, 0d20190331, 40.00, 0d20190322, ... } 5 {40.00, 0d20190331, 0.00, 0d20190331, ... } 6 {40.00, 0d20190831, 40.00, 0d20190416, ... } 7 {40.00, 0d20190831, 0.00, 0d20190430, ... } 8 {40.00, 0d20190831, 0.00, 0d20190531, ... } 9 {40.00, 0d20190831, 0.00, 0d20190630, ... } LEN(aMassiv)= 9 -AddItem-1 {0, 0, 0d00000000, 0, 0d00000000, "", ...} -AddItem-2 {0, 0, 0d00000000, 0, 0d00000000, "", ...} -AddItem-3 {0, 0, 0d00000000, 0, 0d00000000, "", ...} -AddItem-4 {0, 0, 0d00000000, 0, 0d00000000, "", ...} -AddItem-5 {0, 0, 0d00000000, 0, 0d00000000, "", ...} -AddItem-6 {0, 0, 0d00000000, 0, 0d00000000, "", ...} -AddItem-7 {0, 0, 0d00000000, 0, 0d00000000, "", ...} -AddItem-8 {0, 0, 0d00000000, 0, 0d00000000, "", ...} -AddItem-9 {0, 0, 0d00000000, 0, 0d00000000, "", ...} oBrw:nLen= 8 LEN(aMassiv)= 9

 Отправлено: 17.07.19 16:07. Заголовок: Andrey пишет Очередн..

Andrey пишет

цитата:

Очередная непонятка с SetArrayTo()

Что то ты мутишь с массивами.
Вот пример https://TransFiles.ru/bq2op
Работает

 Отправлено: 17.07.19 19:45. Заголовок: SergKis пишет: Что ..

SergKis пишет:

цитата:

Что то ты мутишь с массивами. Вот пример Работает

Что то в коде у тебя не наблюдаю:

  oBrw:DeleteRow( .T. )           // Delete All         

И нет конструкции создания массива...
У меня не пойдёт - oBrw:AddItem(aDim), нужно увеличить на 1 элемент массив.

 Отправлено: 17.07.19 20:13. Заголовок: Andrey пишет Что то ..

Andrey пишет

цитата:

Что то в коде у тебя не наблюдаю: oBrw:DeleteRow( .T. ) // Delete All

Как бы и не надо, заново массив создаем

цитата:

У меня не пойдёт - oBrw:AddItem(aDim), нужно увеличить на 1 элемент массив.

1. Можно иметь больше колонок и не нужным сделать oCol:Visible := .F. или :nWidth := 1 или 2 пикселя
2. Можно попробовать использовать вместо :AddItem(...) метод:SetArray( aArray, lAutoCols, aHead, aSizes )

 Отправлено: 18.07.19 10:19. Заголовок: Andrey пишет У меня ..

Andrey пишет

цитата:

У меня не пойдёт - oBrw:AddItem(aDim), нужно увеличить на 1 элемент массив

Немного модифицировал пример https://TransFiles.ru/5zbz9
На кнопке All на 1 колонку больше, чем на др. кнопках
Вместо :AddItem использовал :SetArray

 Отправлено: 18.07.19 13:01. Заголовок: Andrey Забыл про :H..

Andrey
Забыл про :HideColumns(...).
С ним еще проще и можно на несколько колонок распространить Скрытый текст

*-----------------------------------------------------------------------------* STATIC FUNC Report( oWnd, nEvent, aSelect ) *-----------------------------------------------------------------------------* LOCAL aDatos, aArray, aHead, aSize, oCol, nCol, nLen LOCAL cCapt := 'All' oWnd:Action := .F. oWnd:StatusBar:Say('W A I T') If aSelect[1] != Nil cCapt := hb_ntos(aSelect[1])+'-'+hb_ntos(aSelect[2]) EndIf This.E0.Caption := cCapt DO EVENTS aDatos := AgeSelect( aSelect[1], aSelect[2] ) aArray := aDatos[1] aHead := aDatos[2] aSize := aDatos[3] WITH OBJECT oWnd:GetObj('Report'):Tsb // oBrw :Hide() ; nCol := :nColumn('STREET') ; oCol := :GetColumn(nCol) AEval(:aColumns, {|oc,nc| oc:nWidth := aSize[ nc ], ; oc:cHeading := aHead[ nc ] }) :HideColumns( nCol, ! 'All' $ cCapt ) :Display() ; :AdjColumns() ; DO EVENTS :SetArray(aArray, .T.) :Reset() ; :GetColumn('AGE'):cFooting := hb_ntos(:nLen) :ResetVScroll( .T. ) ; :oHScroll:SetRange( 0, 0 ) :Show() ; DO EVENTS ; :SetFocus() END WITH oWnd:StatusBar:Say('') oWnd:Action := .T. RETURN Nil

 Отправлено: 20.07.19 19:36. Заголовок: SergKis пишет: 2. М..

SergKis пишет:

цитата:

2. Можно попробовать использовать вместо :AddItem(...) метод:SetArray( aArray, lAutoCols, aHead, aSizes )

Дошли руки разбираться дальше.
Не понял как в моём случае это поможет.
Куда в мой код это вставить, что заменить и т.д.
Код примера Tsb_ReportAge.7z трудно читаемый для меня.
Пока у себя сделал просто (работает однако):

FOR nI := 1 TO LEN(aMassiv) + 1  
         // нужно сделать массив на +1 больше  
         aRows := Array(1, 13) 

 Отправлено: 25.07.19 15:14. Заголовок: Всем привет ! Делаю ..

Всем привет !
Делаю новый пример на базе примера MiniGUI\SAMPLES\Advanced\Tsb_Basic\demo2.prg
Поймал вот такой косяк с таймером (2 окна одной и той же программы):


Т.е. таймер не пашет и Refresh по таймеру не происходит.
Перезапустил, пропало.
А частенько так таймер работает в МиниГуи ?

 Отправлено: 25.07.19 16:21. Заголовок: Andrey пишет Код при..

Andrey пишет

цитата:

Код примера Tsb_ReportAge.7z трудно читаемый для меня.

Что конкретно (какое место) трудно читается ?
Хочется знать, что бы пояснить.

цитата:

Куда в мой код это вставить, что заменить и т.д.

Формируй тсб с max кол-вом колонок (чтобы не делать Insert\Add\Delete columns) и массивы в мах кол-ве колонок (нужны надписи Header, Footer для колонок) и лишние колонки делай :HideColumns(...) в примере см. AgeReport() ф-ю, там

 
 ... 
    :SetArray(aArray, .T.) // замена предыдущего массива в тсб массивом aArray 
    :Reset() 
    :GetColumn('AGE'):cFooting := hb_ntos(:nLen) // последнюю колонку убираем 
    :ResetVScroll( .T. ) 
    :oHScroll:SetRange(0,0) 
 ... 
 

 Отправлено: 25.07.19 16:47. Заголовок: PS Извини с HidColum..

PS
Извини с HidColumns др. кусок кода

 
     nCol := :nCell 
     AEval(:aColumns, {|oc,nc| oc:nWidth := aSize[ nc ] }) // восстанавливаем размеры колонок базовые 
    :HideColumns( 'STREET', ! 'All' $ cCapt ) // убираем колонку не нужную 
 //   :cTextSupHdSet( 1, This.ToolBar_1.Caption + '  ' + cCapt ) 
    :aSuperHead[1][3] := This.ToolBar_1.Caption + '  ' + cCapt // навание в superheader 
    :Display() 
    :AdjColumns() // растягиваем колонки до размеров тсб 
 

 Отправлено: 25.07.19 17:07. Заголовок: SergKis пишет: Что ..

SergKis пишет:

цитата:

Что конкретно (какое место) трудно читается ? Хочется знать, что бы пояснить.

Не могу использовать его для своего случая.
Свой код привел выше.
Как его модифицировать ?

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

Andrey пишет

цитата:

Не могу использовать его для своего случая

Ты даже не попробовал разобраться.

цитата:

Как его модифицировать ?

Сделай 2а массива
1-ый используй при создании тсб
2-ой на замену (без изм. nWidth колонок), у меня он aArray в AgeReport

 Отправлено: 05.09.19 23:23. Заголовок: Правлю свои таблицы...

Правлю свои таблицы. До этого сделал временно и оставил.
Как сделать авторасширение всех столбцов таблицы чтобы справа фантомного столбца не было видно ?
Что-то ранее видел, но не успел попробовать.
Читал про oBrw:lAdjColumn := .T. и oBrw:AdjColumns()
Не совсем понял как их применять ?

 Отправлено: 05.09.19 23:40. Заголовок: Andrey С тек. верси..

Andrey
С тек. версии hmg стало 2а алгоритма по растягиванию колонок
- :AdjColumns() // если ширина всех колонок < ширины тсб,
- :lAdjColumn := .F.\.T. // если есть горизонтальный скролинг колонок, при .T. предпоследняя колонка растягивается до конца ширины тсб, если последняя не вмещается

 Отправлено: 05.09.19 23:55. Заголовок: Спасибо ! :sm36: :..

Спасибо !
:AdjColumns() - отработал очень хорошо.
:lAdjColumn := .F.\.T. - никак не отработал, хотя версия 19.08 (Update 1)

 Отправлено: 17.01.20 15:42. Заголовок: Всем привет ! Что т..

Всем привет !
Что то опять бровс чудит.
Вот такая ошибка:

Error BASE/1004 Message not found: NIL:GOTO 
 --------------------------------- Stack Trace --------------------------------- 
 Called from __ERRRT_SBASE(0) 
 Called from NIL:ERROR(0) 
 Called from (b)HBOBJECT(0) 
 Called from NIL:MSGNOTFOUND(0) 
 Called from NIL:GOTO(0) 
 Called from LOADSITEPASSDIM(236) in module: Source\form_transferM1pass.prg 
 Called from MYINITM1SITEPASS(129) in module: Source\form_transferM1pass.prg 

Куда копать ?

 Отправлено: 17.01.20 19:30. Заголовок: Andrey пишет Error ..

Andrey пишет

цитата:

Error BASE/1004 Message not found: NIL:GOTO

Ты потерял объект oBrw в переменной
NIL:GOTO

 Отправлено: 09.02.20 00:00. Заголовок: Всем привет ! А мож..

Всем привет !

А можно сделать выгрузку всего объекта бровса на диск в файл,
а потом в другой программе просто загрузить этот файл ?
Именно весь, с цветами, полями, значениями и т.д.
Это нужно для небольших таблиц.

Типа такого:

 
 TsbrowseSave( M->oBrw3, "fileBrw3.obrw" ) 
 TsbrowseRestore( "fileBrw3.obrw", M->oBrw3 )

P.S. Можно и без цветов для начала.

 Отправлено: 09.02.20 00:13. Заголовок: Andrey пишет Именно ..

Andrey пишет

цитата:

Именно весь, с цветами, полями, значениями и т.д.

Поиграйся ф-ями объкта ( А.Кресин http://www.kresin.ru/hrbfaq_3.html#Doc3 )
Далее следует список функций для манипуляции классами и объектами:
смотрим и пробуем
+ ф-ии сохранения\восстановления блоков кода (забыл названия в ночи, но тема была где то)
или организовывать их строковое представление для сохранения\восстановления

 Отправлено: 09.02.20 00:26. Заголовок: SergKis пишет: смот..

SergKis пишет:

цитата:

смотрим и пробуем

Я до сих пор так и не пользуюсь классами...
Раньше считал что не особо нужно, потом уже мозги не те, не понимаю как ими пользоваться.
Начинал с твоей помощью, так и забросил.

 Отправлено: 09.02.20 00:28. Заголовок: PS При исп. :SetArra..

PS
При исп. :SetArrayTo(...) сохраняй\восстанавливай массивы - уже практичечки все готово, делай
В примере о курсах валют от ЦБ РФ (во флайме) у меня сделано

 
        DEFINE TBROWSE oBrw AT nY, nX ALIAS cAlias WIDTH nW HEIGHT nH GRID ;  
               FONT       { "Normal", "Header", "Footer" } ;  
               COLORS     { CLR_BLACK, CLR_BLUE }  ;  
               HEADERS    { "Char;Code", "Num;Code", "Name"             , "Nominal", "Value"   } ;  
               COLSIZES   { 40         , 40        , 250                , 50       , 50        } ;  
               PICTURE    {            ,           , "@R  "+Repl('X',50),          ,           } ;  
               JUSTIFY    { DT_CENTER  , DT_CENTER , DT_LEFT            , DT_CENTER, DT_CENTER } ;  
               COLUMNS    { "CHARCODE" , "NUMCODE" , "NAME"             , "NOMINAL", "VALUE"   } ;  
               COLNAMES   { "CHAR"     , "NUM"     , "NAME"             , "NOM"    , "VAL"     } ;  
               FOOTERS    { "Char;Code", "Num;Code", "Name"             , "Nominal", "Value"   } ;  
               BRUSH      { 255, 255, 240 } ;  
               LOADFIELDS FIXED  
              :InsColumn( 1, oColsData( cAlias ):Get('OrdKeyNo') )  // колонку # добавили  
              :GetColumn( 1 ):nWidth := 30  
              :nCell        := 2  
              :nFreeze      := 1  
              :lLockFreeze  := .T.  
              :nHeightFoot  := :nHeightCell  
              :nHeightCell  += 4  
              :nClrLine     := RGB(180,180,180) // COLOR_GRID  
  //          :SetColor( { 11 }, { { || RGB( 255, 255, 255  )  } } )  
              :SetColor( { 11 }, { { || RGB(0,0,0) } } )  
              :SetColor( {  2 }, { { || RGB(255,255,240) } } )  
              :SetColor( {  5 }, { { || RGB(0,0,0) } } )  
              :SetColor( {  6 }, { { |a,b,c| iif( c:nCell == b,  -CLR_HRED        , -RGB(128,225,225) ) } } )  
              :SetColor( { 12 }, { { |a,b,c| iif( c:nCell == b,  -RGB(128,225,225), -RGB(128,225,225) ) } } )  
              :AdjColumns()  
        END TBROWSE  
 

Тоже практически все готово для save\restore (кроме блоков кода цветов)
Цветом выделена строка (как пример), которая есть в ch файле, но нет в программе из флайма

 Отправлено: 22.04.20 22:14. Заголовок: Дали задачку, создат..

Дали задачку, создать таблицу и экспортировать его в Эксель.
Вопрос возник, как делать ?
Писать в Dbf-файл, а потом показывать в бровсе или сразу делать через массив с помощью SetArrayTo().
Что будет быстрей по скорости для Экспорта ?
База небольшая, 2500-3000 записей, кол-во столбцов примерно 50 штук.

 Отправлено: 23.04.20 17:23. Заголовок: Andrey пишет: Что б..

Andrey пишет:

цитата:

Что будет быстрей по скорости

Само собой чтение массива быстрее чем чтение файла dbf. Но это ничтожная разница по сравнению с самим экспортом.

 Отправлено: 23.04.20 19:01. Заголовок: Спасибо ! А какая ра..

Спасибо !
А какая разница будет по времени по экспорту из DBF и SetArrayTo() ?
Всё равно данные уже в бровсе.
Я думаю что в SetArrayTo() быстрей будет строится (так всегда делаю).
Но интересно знать бы насколько быстрей...

 Отправлено: 23.04.20 19:13. Заголовок: А как отсортировать ..

А как отсортировать SetArrayTo() по колонке дата только в обратном порядке ?
В обычном знаю:

 
    // --------- функции сортировки колонок --------- 
    oBrw:nColOrder := oBrw:nColumn("FDATE")

 Отправлено: 23.04.20 21:22. Заголовок: Andrey Добавь или п..

Andrey
Добавь или поправь (Advanced\Tsb_array_2\demo.prg)

 
 ... 
       oBrw:lNoChangeOrd := .F. 
  
    END TBROWSE 
 

Делай двойной click на заголовке колонки, сортировка будет тудой-сюдой

 Отправлено: 23.04.20 21:28. Заголовок: SergKis пишет: Дела..

SergKis пишет:

цитата:

Делай двойной click на заголовке колонки, сортировка будет тудой-сюдой

Нельзя, нужно сразу юзеру таблицу предоставить отсортированной по дате в обратном порядке.
Спасибо !

 Отправлено: 23.04.20 22:50. Заголовок: А как в SetArrayTo()..

А как в SetArrayTo() удалять строки в таблице.
На отдельную кнопку повесил функцию удаления TsbDeleteMemo() , не работает.

      IF MG_YesNo( cMsg, , "Удаление записи" ) 
          oStatBrw:DeleteRow( )         // Delete selected row 
          oStatBrw:Reset() 
          oStatBrw:SetOrder(3, , .T. )  // сортировка по столбцу 
          ItogoNN(oStatBrw)         // GetColumn("NN") 
          oStatBrw:Refresh(.T.) 
       ENDIF

Если подключить следующий код:

 
    // --------- блок удаления записи --------- 
    bDelete := { | nAt, oBrw | nAt:=nil, ItogoNN(oBrw) }  // отрабатыват после DEL !!! 
    oBrw:SetDeleteMode( .T., .F., bDelete )                        // так включаем клавишу DEL !!!

То удаление работает, но у меня отдельные проверки в TsbDeleteMemo(), при некоторых условиях удалять запись НЕЛЬЗЯ !
Как запретить удаление по клавише DEL и оставить отдельную кнопку удаления ?

 Отправлено: 23.04.20 23:01. Заголовок: Andrey пишет Как зап..

Andrey пишет

цитата:

Как запретить удаление по клавише DEL и оставить отдельную кнопку удаления ?

Делай массив (строка) на несколько элементов больше (по потребности). К примеру 2 доп. элемента
1 .T.\.F. - можно ли удалять
2 RecNo() в таблице dbf из которой создавался массив (для внесения изменений из массива в dbf)
Тогда в массиве Head пишешь только нужные колонки без 2х последних
На кнопку и в bDelete пишешь ф-ю, которая контролирует можно ли удалять (предпоследний элемент строки\записи массива) и
далее удаляешь или нет

 Отправлено: 23.04.20 23:06. Заголовок: SergKis пишет: 2 Re..

SergKis пишет:

цитата:

2 RecNo() в таблице dbf из которой создавался массив (для внесения изменений из массива в dbf) Тогда в массиве Head пишешь только нужные колонки без 2х последних На кнопку и в bDelete пишешь ф-ю, которая контролирует можно ли удалять (предпоследний элемент строки\записи массива) и далее удаляешь или нет

Нет вообще DBF, чистый массив из мемо-поля.

Допустим написал отдельную функцию проверки - CheckDel(), возвращает T.\.F. - можно ли удалять
Как её использовать в коде ?

 
     // --------- блок удаления записи ---------  
     bDelete := { | nAt, oBrw | nAt:=nil, ItogoNN(oBrw) }  // отрабатыват после DEL !!!  
     oBrw:SetDeleteMode( .T., .F., bDelete )                        // так включаем клавишу DEL !!!

 Отправлено: 23.04.20 23:22. Заголовок: Andrey смотри METHO..

Andrey
смотри
METHOD DeleteRow( lAll ) CLASS TSBrowse
там для dbf, array удаление, как работает :bDelete

цитата:

Нет вообще DBF, чистый массив из мемо-поля.

2е колонки я давал для примера, добавляй одну для .T.\.F. и читай ее в bDelete,
если .T., к примеру, удалять можно,
если .F., то нельзя. Т.е. возвращай это значение из блока bDelete

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

SergKis пишет:

цитата:

если .F., то нельзя. Т.е. возвращай это значение из блока bDelete

Спасибо ! Получилось методом тыка !

   // --------- блок удаления записи --------- 
    bDelete := { | nAt, oBrw, lDel | nAt:=nil, lDel := TsbDostupMemo(oBrw), ItogoNN(oBrw), lDel }   
    oBrw:SetDeleteMode( .T., .F., bDelete ) // так включаем клавишу DEL !!! 
 

 Отправлено: 24.04.20 08:42. Заголовок: Всем доброго утра ! ..

Всем доброго утра !
Сделал рабочий код для SetArrayTo():

   oBrw:aColumns[2]:bPostEdit := {|xVal | xVal := oBrw:aArray[oBrw:nAt][oBrw:nCell] ,; 
                                           xVal := CharRepl( "|\", xVal, "  " )      ,; 
                                           oBrw:aArray[oBrw:nAt][oBrw:nCell] := xVal    } 

А по другому написать можно это действие ?
И как сделать такое же действие для Dbf

 Отправлено: 24.04.20 11:30. Заголовок: Andrey пишет А по др..

Andrey пишет

цитата:

А по другому написать можно это действие ?

oBrw:aColumns[2]:bPostEdit := {|xv,ob,ncol| xv := CharRepl("|\", xv, " "), ob:SetValue(ncol,xv) }

цитата:

И как сделать такое же действие для Dbf

Есть методы и ты их использовал в своих примерах, но подзабыл
xVal := oBrw:GetValue(nCol)
oBrw:SetValue(nCol, xVal)

 Отправлено: 24.04.20 12:55. Заголовок: PS В качестве nCol (..

PS
В качестве nCol (номера колонки) могут быть и имена колонок, т.е.
xVal := oBrw:GetValue("FDATE")
oBrw:SetValue("FDATE", xVal)

 Отправлено: 25.04.20 07:18. Заголовок: Фонты не работаю в S..

Фонты не работаю в SetArrayTo()
Нашёл по хелпу типов таблицы: [ CELL | CELLED | GRID ] - а разница в чём между ними...

Как тогда для SetArrayTo() использовать фонты чтобы всегда работало ?
Фонты использую так:

 
       cTbrName      := "oBrwTxt"    
       DEFINE TBROWSE &cTbrName  ;  
            AT nY, nX            ;  
            WIDTH  nW            ;   
            HEIGHT nH            ; 
            GRID                 ; // это oBrw:lCellBrw := TRUE 
            EDIT                   // все колонки с lEdit := .T. 
  
       END TBROWSE   
  
        //                cell,                    head,                   foot 
       aFont    := { GetFontHandle("Italic"), GetFontHandle("Bold"), GetFontHandle("Norm") } 
  
       // создаём таблицу из массива 
       oBrw := SetArrayTo( cTbrName, "test", aArray, aFont, aHead,; 
                                           aSize, aFoot, aPict, aAlign, aName )

Можно на лету изменять типы таблицы ?

 Отправлено: 25.04.20 08:32. Заголовок: Andrey Может повним..

Andrey
Может повнимательнее посмотришь на исп. SetArrayTo() с фонтами Tsb_array_2\demo.prg

 
    // hFontHead := aFont[1]                // normal Header 
    // hFontFoot := aFont[2]                //  bold  Footer 
    // aFontHF   := { hFontHead, hFontFoot } 
  
    // aFontHF   := aFont[1]                // normal Header, Footer 
       aFontHF   := aFont[2]                //  bold  Header, Footer 
  
       oBrw := SetArrayTo( "oBrw", "test", aArray, aFontHF, aHead, aSize, aFoot, aPict, aAlign, aName ) 
 

в aFontHF мах 2а элемента, если задан не массивом, то это один handle font для Header и Footer
1 handle font Header
2 habdle font Footer
Для строк в DEFINE TBROWSE ... есть FONT cFontName SIZE nFontSize
Если вместо имени хочешь исп. handle font, то это переносится после DEFINE TBROWSE ... в уст. свойства объекта
oBrw:hFont := GetFontHandle(cFontName)

 Отправлено: 25.04.20 09:03. Заголовок: PS Твой вариант долж..

PS
Твой вариант должен выглядеть, к примеру так

 
    DEFINE FONT Italic FONTNAME "DejaVu Sans Mono" SIZE 11 BOLD ITALIC 
    DEFINE FONT Norm FONTNAME _HMG_DefaultFontName SIZE _HMG_DefaultFontSize  
    DEFINE FONT Bold FONTNAME _HMG_DefaultFontName SIZE _HMG_DefaultFontSize BOLD 
 ... 
       aFont    := { GetFontHandle("Bold"), GetFontHandle("Norm") } 
 ... 
       cTbrName      := "oBrwTxt"    
       DEFINE TBROWSE &cTbrName OBJ oBrw  ;  
            AT nY, nX            ;  
            WIDTH  nW            ;   
            HEIGHT nH            ; 
            FONT "Italic"        ; 
            CELL /*GRID*/        ; // это oBrw:lCellBrw := TRUE 
            EDIT                   // все колонки с lEdit := .T. 
  
            mySetTsb(oBrw) 
  
       :SetArrayTo( aArray, aFont, aHead, aSize, aFoot, aPict, aAlign, aName ) 
  
       :AdjColumns() 
  
       END TBROWSE  ON END {|obr| obr:SetNoHoles(), obr:SetFocus() } 
 ... 
 

 Отправлено: 25.04.20 12:29. Заголовок: SergKis пишет: Твой..

SergKis пишет:

цитата:

Твой вариант должен выглядеть, к примеру так

Спасибо ! Дошло наконец то до меня...
Может в примере demo3.prg показать под комментариями:

 
       /*  1 вариант написания  
         aFont    := { "Italic", "Bold", "Norm" }  // cell, head, foot 
         DEFINE TBROWSE oBrw                                   ; 
              AT nY, nX ALIAS aArray WIDTH nW HEIGHT nH CELL ; 
              FONT       aFont                               ; 
              BRUSH      { 255, 255, 240 }                   ; 
              HEADERS    aHead                               ; 
              COLSIZES   aSize                               ; 
              PICTURE    aPict                               ; 
              JUSTIFY    aAlign                              ; 
              COLNAMES   aName                               ; 
              COLNUMBER  { 1, 40 }                           ; 
              COLUMNS    aField                              ; 
              FOOTERS    aFoot                               ; 
              FIXED ADJUST COLEMPTY                          ;  
              ENUMERATOR                                     ; 
              EDIT GOTFOCUSSELECT 
  
              mySetTsb( oBrw ) 
              myColorTsb( oBrw ) 
      
       END TBROWSE ON END {|ob| ob:SetNoHoles(), ob:SetFocus() } */ 
  
       //  2 вариант написания  
        aFont    := { GetFontHandle("Bold"), GetFontHandle("Norm") } // head, foot 
        cTbrName := "oBrwTxt"     
        DEFINE TBROWSE &cTbrName OBJ oBrw  ;   
             AT nY, nX            ;   
             WIDTH  nW            ;    
             HEIGHT nH            ;  
             FONT "Italic"        ; // cell 
             CELL /*GRID CELLED */ ;   
             EDIT                   // все колонки с lEdit := .T.  
    
             mySetTsb(oBrw)  
    
        :SetArrayTo( aArray, aFont, aHead, aSize, aFoot, aPict, aAlign, aName )  
    
        :AdjColumns()  
    
        END TBROWSE  ON END {|obr| obr:SetNoHoles(), obr:SetFocus() } 

Попробовал компилировать пример demo3.prg с
CELL /*GRID CELLED */ ;
Не увидел разницы. На внешний вид таблицы одинаковые.
Зачем такое разнообразие ?

 Отправлено: 25.04.20 22:23. Заголовок: Andrey пишет: А как..

Andrey пишет:

цитата:

А какая разница будет по времени по экспорту из DBF и SetArrayTo() ? Всё равно данные уже в бровсе.

Не хотел отвечать, но надо для всех.
Что значит данные в бровсе? Если это бровс по массиву, то да, массив передаётся в бровс. Если по базе, то рабочая область передаётся в бровс. Следует изучить наконеец исходники бровса, чтобы понять - бровс только рисует на экране окно данных и все. И сам бровс через свои методы может читать только текущую запись или строку массива, при этом выполняя очень много технических операций ( прорисовка, скрытые столбцы, блоки выборки данных и пр.) Если говорить о том., что данные получаем средствами бровса, то это значит что тратиться время на все эти операции и это в разы дольше прямой выборки из источника. Всё примеры типа tsb_export показавают только возможность работы с источником данных методами бровса, но ценой производительности. Разница в скорости между массивом и дбф в разнице доступа к элементу массива и полю базы, дальше математика, сколько запросов во столько раз умножение. И на закуску, SetArrayTo это всего лишь метод, позволяющий удобно инициализировать бровс по МАССИВУ. Это как что быстрее работает с дбф МиниГуи или харбур? Андрей, Вами проделана огромная работа по подготовке примеров новичкам, но такие речевые обороты сносят мозг тем же новичкам напрочь. Будьте внимательнее, хотя-бы на правах ветерана этого форума

 Отправлено: 25.04.20 22:31. Заголовок: Спасибо за пояснения..

Спасибо за пояснения. Я это и хотел услышать и для других тоже !

 Отправлено: 05.05.20 16:18. Заголовок: видишь суслика нет и..

видишь суслика нет и я не вижу а он есть

Использую последнюю версию МиниГуи 20.04
Сделал отдельный модуль .prg - работает отлично.
Таблица просто загляденье, столбики цветом подсвечены, шапка и подвал есть.
Добавляю его к себе в большой проект, просто его копирую в папку проекта и добавляю его в МуПроект.hbp
После сборки тестирую эту менюшку.
Таблица есть, шапка есть, а подвала НЕТ !!!
Вместо него дырка и всё...
Кто шаманский бубен продаст ?

 Отправлено: 11.05.20 15:14. Заголовок: Andrey пишет: Табли..

Andrey пишет:

цитата:

Таблица есть, шапка есть, а подвала НЕТ !!!

Разобрался я с этой загадкой. Как сделать это научился, а как исправить нет !
По коду это происходит так:

   .... 
    aRet := myMenu(...) // отдельный prg, в нём 2 тсб, где указываю :nHeightFoot  := 0  // высота подвала таблицы  
    .... 
     // работа с базой 
    .... 
    myTsb(...) // отдельный prg, в нём тсб, где указываю :nHeightFoot  := 30 
    ...

Вот так подвал в myTsb(...) не показывается.
Если в myMenu(...) поставить :nHeightFoot := 10, то и в myTsb(...) будет 10 и больше не делается.
Почему ?

 Отправлено: 11.05.20 15:56. Заголовок: Andrey пишет: Почем..

Andrey пишет:

цитата:

Почему ?

Объект тсб по разному хоть называется ?

 Отправлено: 11.05.20 16:31. Заголовок: Andrey пишет:Почему ..

Andrey пишет:

цитата:

Почему ?

Видимость переменной тсб Public ?

 Отправлено: 11.05.20 17:52. Заголовок: Dima пишет: Объект ..

Dima пишет:

цитата:

Объект тсб по разному хоть называется ?

SergKis пишет:

цитата:

Видимость переменной тсб Public ?

 
 Для myMenu(...) 
    LOCAL oBrw1, oBrw2, cTbrName1, cTbrName2 
 ... 
       ///////////////////// первая таблица //////////////////////////////// 
       aDatos   := CreateDatosAdres() 
       aArray   := aDatos[ 1 ] 
       ..... 
       cTbrName1 := "oBrwTxt1"     
       DEFINE TBROWSE &cTbrName1 OBJ oBrw1  ;   
 ... 
       :SetArrayTo( aArray, aFontHF, aHead, aSize, aFoot, aPict, aAlign, aName )  
       :AddSuperHead(1, 2, "Выбор адреса" ) // суперхидер 
       :aColumns[2]:lEdit := .F.            // НЕ редактировать 
  
        mySetTsb( oBrw1 ) 
        TsbColor( oBrw1, , , , , ) 
 ...    
       ///////////////////// вторая таблица //////////////////////////////// 
       aDatos   := CreateMonthYears() 
       aArray   := aDatos[ 1 ] 
       ..... 
       cTbrName2 := "oBrwTxt2"     
       DEFINE TBROWSE &cTbrName2 OBJ oBrw2  ;   
 .... 
       :SetArrayTo( aArray, aFontHF, aHead, aSize, aFoot, aPict, aAlign, aName )  
       :AddSuperHead(1, 3, "Выбор месяца/года" ) // суперхидер 
        mySetTsb( oBrw2 ) 
        TsbColor( oBrw2, , , , , ) 
 .... 
 Для myTsb(...) 
    LOCAL oBrw,  
 .... 
       DEFINE TBROWSE oBrw ;   
       ... 
          mySetTsb( oBrw )                  // настройки таблицы 
          myColorTsb( oBrw )               // цвета на таблицу 
          mySumTsb( oBrw )                // суммирование колонок таблицы 
          myColorTsbElect( oBrw )        // цвета избранные 

 Отправлено: 11.05.20 18:10. Заголовок: Andrey Поставь знач..

Andrey
Поставь значения в myMenu()
oBrw1:lFooting := .F. и oBrw1:lDrawFooters := .F.
oBrw2:lFooting := .F. и oBrw2:lDrawFooters := .F.
в myTsb()
oBrw:lFooting := .T. и oBrw:lDrawFooters := .T.
oBrw:nHeightFoot := 30
Что получишь ?

 Отправлено: 11.05.20 18:52. Заголовок: SergKis пишет: Что ..

SergKis пишет:

цитата:

Что получишь ?

Нет подвала !
Наверное нужно отдельный пример делать...

 Отправлено: 12.05.20 20:32. Заголовок: Разобрался я с этой ..

Разобрался я с этой загадкой !!!
Опять моя ошибка.

  aRet := myMenu(...) // отдельный prg, в нём 2 тсб, где указываю :nHeightFoot  := 0  // высота подвала таблицы   
   myTsb(...) // отдельный prg, в нём тсб, где указываю :nHeightFoot  := 30 

В обоих отдельных prg есть одинаковая функция.

FUNCTION mySetTsb() 
 .......

Забыл сделать в обоих случаях
STATIC FUNCTION mySetTsb()
А при сборке проекта линковщик-зараза, ошибку не выдавал !
Сейчас заработало !

 Отправлено: 12.05.20 20:43. Заголовок: Andrey пишет В обоих..

Andrey пишет

цитата:

В обоих отдельных prg есть одинаковая функция. FUNCTION mySetTsb()

Эта функция + myColorTsb() были специально оставлены FUNCTION, чтобы применять во всех тсб.
mySetTsb() - задание общих переменных для всех тсб
myColorTsb() - задание общих цветов тсб, что бы выглядели одинаково на всех окнах
Все частные установки для тсб конкретного окна, делаешь в STATIC FUNCTION своего prg файла
К примеру
mySet_Tsb() - задание значений переменных для конкретного тсб
myColor_Tsb() - задание значений цветов для конкретного тсб

 Отправлено: 14.05.20 19:07. Заголовок: А зачем в demo7.prg ..

А зачем в demo7.prg в конце функций my0(oBrw) и my1(oBrw)
ставится вот этот код:

   :lDrawLine := .T. 
    :Reset() 
     AEval( :aColumns ,{|oc| oc:oCell := NIL, ; 
                             oc:oCellHead := NIL, ; 
                             oc:oCellEnum := NIL, ; 
                             oc:oCellFoot := NIL } )

 Отправлено: 14.05.20 19:18. Заголовок: Andrey пишет А зачем..

Andrey пишет

цитата:

А зачем в demo7.prg в конце функций my0(oBrw) и my1(oBrw) ставится вот этот код:

Эти переменные, после :DarawLine(, .F.), :DrawHeader(, .F.), DrawFooters(, .F.) хранят данные, которые можно убрать, что и делается в AEval(), т.к. с тсб можно работать еще долго. Если этого не делать, ничего страшного, повисят до окончания работы этого тсб.

 Отправлено: 16.05.20 15:18. Заголовок: Всем привет ! Нашёл ..

Всем привет !
Нашёл тут большую непонятку в примере.
Если кол-во колонок равно 45 и стрелками вправо-влево до конца и начала таблицы, то всё, таблица ломается и
пример вешается.
Если сделать 44 или 46 колонок, то всё нормально.
Почему так ?
Цифру 45 нашёл в mySet2Tsb(), может из-за этого ?

 Отправлено: 16.05.20 18:25. Заголовок: Andrey пишет Почему ..

Andrey пишет

цитата:

Почему так ?

Ты пропустил, почитай http://clipper.borda.ru/?1-1-0-00000559-000-60-0 Пост 1 Отправлено: 29.11.19 10:25
и далее
ChangeLog.txt

цитата:

2019/12/12: HMG Extended Edition version 19.12. ... * Updated: Adaptation FiveWin Class TSBrowse 9.0 in HMG: - added the new variable :lMoreFields in the TSBrowse class; - added the new method MoreFields( nMsg, nWParam ). ...

Надо подбирать кол-во полей или переменную
DATA nMaxKeysLR AS NUMERIC INIT 3
Значение для MySet2Tsb() взял (see demo in folder \Utils\mgDBU)
У меня с такими значениями работает норм.

 Отправлено: 16.05.20 20:12. Заголовок: SergKis пишет: Ты п..

SergKis пишет:

цитата:

Ты пропустил, почитай

А как тогда сделать этот пример чтобы всегда работал ?
Сломал на 34 колонках...
Проект положил к тебе.

 Отправлено: 16.05.20 20:51. Заголовок: Andrey пишет Уменьш..

Andrey пишет [quote]`
Уменьшил 45 на 30 и у меня работает, т.е.
:lMoreFields := ( :nColCount() > 30 )

 Отправлено: 16.05.20 21:17. Заголовок: SergKis пишет: Умен..

SergKis пишет:

цитата:

Уменьшил 45 на 30 и у меня работает, т.е.

Да, так заработало !
Спасибо !

 Отправлено: 16.05.20 21:51. Заголовок: Если делать цвета че..

Если делать цвета через контейнер:

 
 FUNCTION mySetTsb( oBrw ) 
    WITH OBJECT oBrw 
       :Cargo         := oKeyData()  // создает объект без переменных (условно пустой) используем ниже по коду 
       ..... 
 FUNCTION myColorTsb( oBrw ) 
    LOCAL O 
    WITH OBJECT oBrw:Cargo 
       :nText      :=  GetSysColor( COLOR_WINDOWTEXT ) 
       :nPane      :=  GetSysColor( COLOR_WINDOW ) 
       ....

то начинает ломаться экспорт в эксель.
Выдаёт такую ошибку:

Error BASE/1004 Метод не экспортирован: CARGO Args: [1] = N 10 
 --------------------------------- Stack Trace --------------------------------- 
 Called from CARGO(0) 
 Called from MYTSBCOLORBACKFOOT(552) in module: demo7.prg 
 Called from (b)MYCOLORTSBELECT(278) in module: demo7.prg 
 Called from MYCOLORN(785) in module: Tsb5xlsOle1.prg 
 Called from EXCELOLE4EXTERN(706) in module: Tsb5xlsOle1.prg 
 Called from (b)TOEXCEL5(86) in module: Excel5.prg 
 Called from BRW4XLSOLE(357) in module: Tsb5xlsOle1.prg 

И как теперь быть ?

 Отправлено: 16.05.20 22:00. Заголовок: Andrey пишет Да, так..

Andrey пишет

цитата:

Да, так заработало !

Если бы ты вставил команду

 
          :lNoHScroll  := .F.             // добавить\вкл. ползунок горизонтальный 
 ? procname(), :nColCount() 
 ? 
          :lMoreFields := ( :nColCount() > 45 )  
 

то по результату все увидел бы сам
MYSET2TSB 44

 Отправлено: 16.05.20 22:13. Заголовок: Andrey пишет И как т..

Andrey пишет

цитата:

И как теперь быть ?

Переделать на oCol:oСell ( :DrawLine(, .F.) ), все брать оттуда и :hFont, цвета, :cValue, :uValue, valtype(:uValue)
Там все готовые данные к выводу, бери нужные, формат excel от них ...

 Отправлено: 16.05.20 22:16. Заголовок: SergKis пишет: Пере..

SergKis пишет:

цитата:

Переделать на

Понял...

 Отправлено: 22.05.20 10:44. Заголовок: Всем доброго утра ! ..

Всем доброго утра !
Возникли вопросы по tsbrowse

1) Почему при создании тсб нельзя сразу задать все фонты ? вот так:

   aFont  := { "TsbCellNorm", "TsbHeadBold", "TsbFootBold", "TsbSpHd" }  
  
    DEFINE TBROWSE oBrw ; 
     AT nY, nX ALIAS aArray WIDTH nWTsb HEIGHT nHTsb CELL ; 
     FONT       aFont                                     ; 
     .....

Сейчас 3 фонта работают. Добавить 4 фонт возможно ?

2) Сейчас в тсб можно добавить первую виртуальную колонку для tsbrowse-Dbf и tsbrowse-Array
А можно ещё сделать добавление своих доп.колонок ?
Для tsbrowse-Array понятно, что делать этого не нужно.
А вот для tsbrowse-Dbf иногда нужно, допустим когда нельзя править структуры базы.
Можно создавать свое поле в базе, но иногда этого делать нельзя, допустим при работе с чужой базой.
Если это сложно сделать, то вопрос можно пропустить.

 Отправлено: 22.05.20 13:00. Заголовок: Andrey пишет А можно..

Andrey пишет

цитата:

А можно ещё сделать добавление своих доп.колонок ?

Сколько угодно

 
   LOCAL oCol 
   DEFINE COLUMN oCol ... 
 ... 
   oBrw:InsColumn( nPos, oCol )  // nPos номер перед которой вставить 
 ... 
 Для dbf в списке полей одно имя поля повторяешь 2 раза (можешь 3 и ...), потом для колонки по номеру меняешь 
 oCol:bData или oCol:bValue и даешь новое имя oCol:cName := "...". можно поправить oCol:cField и т.д. если надо 
 
 цитата:
Сейчас 3 фонта работают. Добавить 4 фонт возможно ?

 
 Куда ?    
 Есть oBrw:hFont, oBrw:hFontHead, oBrw:hFontFoot. Для колонок, SuperHead, SpecHd есть переменные в своих местах 
  
 

 Отправлено: 22.05.20 13:26. Заголовок: PS Если ты говоришь ..

PS
Если ты говоришь о заполнении, выделенное цветом
DATA hFontEdit AS NUMERIC // edition font
DATA hFontHead AS NUMERIC // header font
DATA hFontFoot AS NUMERIC // footer font
DATA hFontSpcHd AS NUMERIC // special header font

то надо добавлять в массив в каком то порядке и присваивать в _DefineTBrowse ()

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

SergKis пишет:

цитата:

то надо добавлять в массив в каком то порядке и присваивать в _DefineTBrowse ()

Ну да, я про это.
При создании ТСБ задать сразу все фонты 4 штуки, таблица же из 4 секций состоит.
Для основных задач будет простое и понятное заполнение.
Ну а потом, кто хочет делает фонты какие сам захочет.

 Отправлено: 22.05.20 19:57. Заголовок: Andrey пишет При соз..

Andrey пишет

цитата:

При создании ТСБ задать сразу все фонты 4 штуки, таблица же из 4 секций состоит.

Для этого поправить немного надо

 
 FUNCTION _DefineTBrowse( ControlName, ParentFormName, nCol, nRow, nWidth, nHeight, ; 
 ... 
 	IF ! Empty( FontName ) .and. HB_ISARRAY( FontName ) 
 		AEval( FontName, { |cf| AAdd( aFonts, cf ) } ) 
 		aFont	  := ASize( aFonts, 4 ) 
 		FontName  := aFont[1] 
 ... 
 		oBrw := TSBrowse():New( ControlName, nRow, nCol, nWidth, nHeight, ; 
 			bFields, aHeaders, aWidths, ParentFormName, ; 
 			change, bDblClick, bRClick, fontname, fontsize, ; 
 			hCursor, aTmpColor, aBmp, cMsg, update, uAlias, uWhen, value, cell, ; 
 			nStyle, bLClick, aFlds, aHeadClick, nLineStyle, lRePaint, ; 
 			Delete, aJust, lock, appendable, lEnum, ; 
 			lAutoSearch, uUserSearch, lAutoFilter, uUserFilter, aPicture, ; 
 			lTransparent, uSelector, lEditable, lAutoCol, aColSel, tooltip ) 
  
 		IF HB_ISARRAY( aFont ) .and. Len(aFont) > 3 .and. HB_ISCHAR(aFont[ 4 ]) 
 			oBrw:hFontSpcHd := GetFontHandle(aFont[ 4 ]) 
 		ENDIF 
 ... 
 

Проверил, работает

 Отправлено: 22.05.20 20:04. Заголовок: SergKis пишет: Ты,..

SergKis пишет:

цитата:

Ты, наверно, путаешь SpecHeader (ENUMERATOR) и SuperHeader - это две разницы

Да, я наверное путаю.
Имеется таблица, в ней 4 части: ячейки, подвал, шапка и та часть над шапкой.
Я её называю суперхидером. Или я неправ ?
Вот для неё и нужно сразу задавать фонт.
Хотя идея автора наверное была что суперхидер имеет одинаковый шрифт как у шапки таблицы.
Но это для юзера не наглядно !
Заголовок таблицы нужно делать крупней для юзера, чтобы в глаза бросалась.
Из-за этого и возник вопрос.

 Отправлено: 22.05.20 20:57. Заголовок: SergKis пишет: Пров..

SergKis пишет:

цитата:

Проверил, работает

Да я тоже проверил.
Так лучше !

Но тогда напрашивается вопрос размещения 5 фонта.

      aFont  := { "TsbNorm", "TsbBold", "TsbBold", "TsbSpecH", "TsbSuperH" } 

Можно ли это реализовать ?

 Отправлено: 22.05.20 20:59. Заголовок: Andrey пишет Я её на..

Andrey пишет

цитата:

Я её называю суперхидером.

Это специальный заголовок, для нумерации колонок
SuperHeader это над Header, объединяет колонки.
Используй для фонта для него команду
#command ADD [ SUPER ] HEADER TO <oBrw> ;
...
[ FONT <uFont> ] ;
...
или метод с параметрами
:AddSuperHead( nFromCol, nToCol, uHead, nHeight, aColors, l3dLook, uFont, uBitMap, lAdjust, lTransp, ...)

 Отправлено: 22.05.20 21:04. Заголовок: SergKis пишет: Supe..

SergKis пишет:

цитата:

SuperHeader это над Header, объединяет колонки.

Ну да, я так и пишу - "шапка и та часть над шапкой."

SergKis пишет:

цитата:

или метод с параметрами или после :AddSuperHead(...) :hFontSupHdSet( nCol, hFontSuper )

А как можно отдельно задать фонт для суперхидера, сразу.
Пробовал так:
:hFontSupHdSet := GetFontHandle("CardSuperH") // 5-доп.фонт
Прога вылетает с ошибкой:

 
 Error BASE/1005 Message not found: TSBROWSE:_HFONTSUPHDSET Args: [1] = O TSBROWSE 
 --------------------------------- Stack Trace --------------------------------- 
 Called from __ERRRT_SBASE(0) 
 Called from TSBROWSE:ERROR(0) 
 Called from (b)HBOBJECT(0) 
 Called from TSBROWSE:MSGNOTFOUND(0) 
 Called from TSBROWSE:_HFONTSUPHDSET(0) 
 Called from MYSUPERHEADER(595) in module: cardcomp.prg 
 Called from MAIN(159) in module: cardcomp.prg 

Там 2 параметра в METHOD hFontSupHdSet( nCol, uFont )
А как правильно задать мне в :hFontSupHdSet := ???????

 Отправлено: 22.05.20 21:08. Заголовок: Andrey пишет А как м..

Andrey пишет

цитата:

А как можно отдельно задать фонт для суперхидера, сразу. Пробовал так: :hFontSupHdSet := GetFontHandle("CardSuperH") // 5-доп.фонт Прога вылетает с ошибкой:

У тебя богатая фантазия
Делай так как написал выше, команда и метод

 Отправлено: 22.05.20 21:14. Заголовок: SergKis пишет: У те..

SergKis пишет:

цитата:

У тебя богатая фантазия

Да не фантазия, а простая невнимательность. Слишком тороплюсь сделать.
Понял в чём дело, нужно так:

  :hFontSupHdSet( , GetFontHandle("TsbSuperH") )   // 5-доп.фонт 

Спасибо !

 Отправлено: 22.05.20 21:32. Заголовок: Andrey Это будет на..

Andrey
Это будет на 1-ю колонку, а остальные ... + высота у фонта будет другая, т.е. этого мало.
Лучше команда или метод AddSuperHeader(), в них "букав больше"

 Отправлено: 22.05.20 22:06. Заголовок: SergKis пишет: Лучш..

SergKis пишет:

цитата:

Лучше команда или метод AddSuperHeader(), в них "букав больше"

Тогда так примерно ?

   // суперхидер 
    //:AddSuperHead( nFromCol, nToCol, uHead, nHeight, aColors, l3dLook, uFont, uBitMap, lAdjust, lTransp, ...) 
    :AddSuperHead( 1  , :nColCount() , aSupHd[1], , , , GetFontHandle("TsbSuperH")  ) 
 

 Отправлено: 22.05.20 22:09. Заголовок: Andrey пишет Понял в..

Andrey пишет

цитата:

Понял в чём дело, нужно так: :hFontSupHdSet( , GetFontHandle("TsbSuperH") ) // 5-доп.фонт

5-ый фонт и 6-ой можно сделать тоже, в целом, наверно, удобно будет

 
 FUNCTION _DefineTBrowse( ControlName, ParentFormName, nCol, nRow, nWidth, nHeight, ; 
 ... 
 	IF ! Empty( FontName ) .and. HB_ISARRAY( FontName ) 
 		AEval( FontName, { |cf| AAdd( aFonts, cf ) } ) 
 		aFont	  := ASize( aFonts, 6 ) 
 		FontName  := aFont[1] 
 ... 
 		oBrw := TSBrowse():New( ControlName, nRow, nCol, nWidth, nHeight, ; 
 			bFields, aHeaders, aWidths, ParentFormName, ; 
 			change, bDblClick, bRClick, fontname, fontsize, ; 
 			hCursor, aTmpColor, aBmp, cMsg, update, uAlias, uWhen, value, cell, ; 
 			nStyle, bLClick, aFlds, aHeadClick, nLineStyle, lRePaint, ; 
 			Delete, aJust, lock, appendable, lEnum, ; 
 			lAutoSearch, uUserSearch, lAutoFilter, uUserFilter, aPicture, ; 
 			lTransparent, uSelector, lEditable, lAutoCol, aColSel, tooltip ) 
  
 		IF HB_ISARRAY( aFont ) .and. Len(aFont) > 3 
 			IF HB_ISCHAR(aFont[ 4 ]) 
 				oBrw:hFontSpcHd := GetFontHandle(aFont[ 4 ]) 
 			ENDIF 
 			IF HB_ISCHAR(aFont[ 5 ]) 
 				oBrw:hFontSupHd := GetFontHandle(aFont[ 5 ]) 
 			ENDIF 
 			IF HB_ISCHAR(aFont[ 6 ]) 
 				oBrw:hFontEdit := GetFontHandle(aFont[ 6 ]) 
 			ENDIF 
 		ENDIF 
 ... 
 CLASS TSBrowse FROM TControl 
 ... 
 	DATA	hFontSpcHd	 AS NUMERIC						 // special header font 
 	DATA	hFontSupHd									// super header font 
 ... 
 Method AddSuperHead( nFromCol, nToCol, uHead, nHeight, aColors, l3dLook, uFont, uBitMap, lAdjust, lTransp, ; 
 ... 
 	Default lAdjust  := .F., ; 
 ... 
 			  uHead	 := "", ; 
 			  uFont	 := ::hFontSupHd 
 ... 
 

 Отправлено: 22.05.20 23:00. Заголовок: SergKis пишет: 5-ый..

SergKis пишет:

цитата:

5-ый фонт и 6-ой можно сделать тоже, в целом, наверно, удобно будет

Да удобней и логичней !
И проще программировать, один раз задать и не делать потом различных манипуляций !
Везде параметры задал и всё, а с фонтами фокусами нужно заниматься...

 Отправлено: 30.05.20 16:49. Заголовок: Григорий, а можно оп..

Григорий, а можно описать порядок загрузки фонтов по новому в ChangeLog.txt ?
А то сейчас помню, а потом забуду.
А так будет напоминалка для всех !

 Отправлено: 30.05.20 17:00. Заголовок: Andrey пишет: А то ..

Andrey пишет:

цитата:

А то сейчас помню, а потом забуду.

Ты по любому забудешь

 Отправлено: 05.06.20 12:48. Заголовок: TBrowse: SET AUTOADJUST ON

Не могу побороть в TBrowse один неприятный момент:
Если установлен SET AUTOADJUST ON -> изменяю (увеличиваю Height) размеры окна -> затем при редактировании
ячейка улетает вверх!
Я хочу програмно увеличить окно в зависимости от разрешения монитора - и тут такой казус ):

Протестировал от h_tbrowse.prg - > TGetBox.prg -> h_getbox.prg -> координаты передает правильные.
Пример: miniGui\SAMPLES\Advanced\Tsb_BitMaps\demo.prg - сделал поле "Name" редактируемым и вот результат:
Скрытый текст

 Отправлено: 05.06.20 22:19. Заголовок: Andrey пишет: Григо..

Andrey пишет:

цитата:

Григорий, а можно описать порядок загрузки фонтов по новому в ChangeLog.txt ? А то сейчас помню, а потом забуду. А так будет напоминалка для всех !

можно, начинай пока не забыл.

 Отправлено: 10.06.20 08:34. Заголовок: Подскажите как можно..

Подскажите как можно самому ПРАВИЛЬНО рассчитать высоту ТСБ.
Что-то не учитываю в расчётах.

Задаю фонты для таблицы:

   DEFINE FONT TsbNorm   FONTNAME "DejaVu Sans Mono" SIZE 12 
    DEFINE FONT TsbBold   FONTNAME "Tahona"           SIZE 12 BOLD 
    DEFINE FONT TsbSuperH FONTNAME "Comic Sans MS"    SIZE 18 BOLD 
  
    aTsbFont := { "TsbNorm", "TsbBold", "TsbBold", "TsbSpecH", "TsbSuperH", "TsbEdit" } 
  
    DEFINE TBROWSE oBrw      ; 
       ............ 
       FONT       aTsbFont   ;

Высота одной строки таблицы:

   nHCell := GetTextHeight( 0, "B", GetFontHandle( "Norm" ) ) + 10 
 

Кол-во строк в таблице nTsbMaxRow = 8
Добавляем высоту суперхидера + шапки + подвала:

   nHFSupHd   := GetTextHeight( 0, "B", GetFontHandle( "TsbSuperH" ) ) 
    nHFHead    := GetTextHeight( 0, "B", GetFontHandle( "TsbBold"   ) ) 
    nHFFoot    := 0 
    nTsbHeight := nHCell * nTsbMaxRow  + nHFSupHd + nHFHead + nHFFoot 
  
    nHFntSupHd = 35  
    nHFntHead  = 19  
    nTsbHeight = 303   

При создании ТСБ прописываю любые параметры, кроме высоты ячейки, всё равно они игнорируются кроме 0:

      :nHeightSuper  := 16      // можно задать, если не определен фонт при построении     
       :nHeightHead   := 20      // можно задать, если не определен фонт при построении     
       :nHeightFoot   := 0       // можно задать, если не определен фонт при построении     
       :nHeightCell   := nHCell  // высота ячейки берется ТОЛЬКО отсюда 
       // :nHeightCell := 0 - прога повисает и всё, нет проверки на 0

Вывод отладки из таблицы на форме:

   1) :nHeight = 303 
    2) :nHeightSuper = 49 
    3) :nHeightHead = 32 
    4) :nHeightFoot = 0 
    5) :nHeightSpecHd = 0 
    6) :nHeightCell = 29 
    7) GetHScrollBarHeight() = 17 
    8) :nRowCount() Кол-во строк = 7 

Т.е. на форме всего 7 строк таблицы из заданных 8 !!!
Почему ? Что не учитываю ?
Почему меняется автоматом высота HeightSuper и HeightHead ?
Исходник h_tbrowse.prg смотрел, нифига не понял, как они считаются.
Как вручную можно рассчитать :nHeightSuper ?

Если отключить метод убирания дырки внизу ТСБ

    END TBROWSE // ON END {|ob| ob:SetNoHoles() }

то тогда :nHeightHead получается правильно заданным,
но суперхидер всё равно сам по себе считается.

Ради интереса задал

      :nHeightSuper  := 0       
       :nHeightHead   := 0       
       :nHeightFoot   := 0      

Шапки нет, а суперхидер всё равно показывается в ТСБ. Почему ?

 Отправлено: 14.07.20 19:41. Заголовок: Пытаюсь сделать курс..

Пытаюсь сделать курсор с окантовкой черного цвета.
Не получается...
Как этот цвет задать ?

      :nHRED      :=  CLR_HRED 
       :n_HRED     := -CLR_HRED 
       :n_HBLUE    := -RGB(128,225,225) 
       :nHBLUE     :=  RGB(128,225,225) 
       :nBLACK     :=  CLR_BLACK 
       :n_BLACK    := -CLR_BLACK

-0 же не бывает

 Отправлено: 14.07.20 19:48. Заголовок: Блин, не сообразил с..

Блин, не сообразил сразу...
Сделал вот так -RGB(1,1,1)

 Отправлено: 16.07.20 16:40. Заголовок: А как править ключев..

А как править ключевое поле по индексу в ТСБ ?
Сделал вот такой код:

      nI := :nColumn( 'NN' ) 
       :aColumns[nI]:lEdit     := .T. 
       :aColumns[nI]:nEditMove := 0 
       oCol := :GetColumn('NN') 
        // обработка до ввода 
       oCol:bPrevEdit := { |lR,ob| nRecno := (ob:cAlias)->( RecNo() )  ,; 
                                   lR := (ob:cAlias)->( RLock() )      ,; 
                                   iif( lR, nil , MsgInfo("Запись заблокирована!") ) ,; 
                                     lR } 
        // обработка после ввода 
       oCol:bPostEdit := { |uv,ob| uv := (ob:cAlias)->( dbUnLock() )   ,; 
                                   ob:Reset() , ob:Refresh(.T.)        ,; 
                                   ob:GoToRec( nRecno ), ob:Setfocus()    }

В таблице 24 записей, помещается 20.
Беру 3-ю запись с NN=3 меняю на 15.
В ТСБ остаётся только одна запись 15 - остальных нет ...
Стрелкой вверх/вниз и другие записи появляются.
Меняем NN=15 обратно на 3. В таблице опять только одна запись - 3.
Как сделать правильно ?

 Отправлено: 17.07.20 16:24. Заголовок: Заработало ! Вот так..

Заработало ! Вот так надо:

      DEFINE TBROWSE oBrw   ; 
              .... 
              LOADFIELDS LOCK  // блокировка записей в автомате  
 ..... 
  
       oCol := :GetColumn('NN') 
       // обработка до ввода 
       oCol:bPrevEdit := { |lR,ob| lR := (ob:cAlias)->( RLock() ), ; 
                                   nRecno := (ob:cAlias)->( RecNo() ) ,  lR } 
  
       // обработка после ввода 
       oCol:bPostEdit := { |xv,ob| xv := nil, ob:Refresh(.T.) , ob:GoToRec( nRecno ), ; 
                                   ob:Upstable()   , ob:Setfocus() }

 Отправлено: 18.07.20 11:08. Заголовок: Andrey пишет Заработ..

Andrey пишет

цитата:

Заработало ! Вот так надо:

Взял пример Tsb_Basic\demo2.prg, поменял структуру dbf, сделал tag на поле F2 назвав NN

 
 FUNCTION UseOpenBase() 
 ... 
    IF ( lDbfNo := ! File( cDbf+'.dbf' ) )  
       AAdd( aStr, { 'F1', 'D',  8, 0 } )  
       AAdd( aStr, { 'F2', 'C', 10, 0 } )  
       AAdd( aStr, { 'F3', 'N', 10, 2 } )  
       AAdd( aStr, { 'F4', 'L',  1, 0 } )  
       dbCreate( cDbf, aStr )  
    ENDIF  
    
    IF lDbfNo .OR. !File( cIndx+'.cdx' ) 
       USE ( cDbf ) ALIAS TEST EXCLUSIVE NEW  
    
       WHILE TEST->( RecCount() ) < 30  
          TEST->( dbAppend() )  
          TEST->F1 := Date() + n++  
          TEST->F2 := StrZero( n, 2 ) 
          TEST->F3 := n  
          TEST->F4 := ( n % 2 ) == 0  
       END  
    
       GO TOP  
       INDEX ON F2      TAG NN  FOR !Deleted()  
       INDEX ON RECNO() TAG NN2 FOR !Deleted()  
       INDEX ON RECNO() TAG DEL FOR  Deleted()  
       USE  
    ENDIF  
 ... 
 

Добавил LOCK в

 
    DEFINE TBROWSE oBrw  AT 5 + Form_0.Button_Ins.Height + 5, 5 ; 
 ... 
       GRID LOCK ; 
 ... 
 

Режимы Insert и Edit работают и отображают тсб нормально без добавок, т.е. аналог твоего примера на изменение ключа работает.

 Отправлено: 18.07.20 11:12. Заголовок: PS работает и без до..

PS
работает и без добавки LOCK и
USE ( cDbf ) ALIAS TEST SHARED NEW

 Отправлено: 18.07.20 19:04. Заголовок: SergKis пишет: Режи..

SergKis пишет:

цитата:

Режимы Insert и Edit работают и отображают тсб нормально без добавок, т.е. аналог твоего примера на изменение ключа работает.

У меня в задаче 2 индекса по базе:

      cFldKey  := "NN"  
       cFilter1 := "PART==1 .AND. !Deleted()"  
       cFilter2 := "PART==2 .AND. !Deleted()"  
       INDEX ON &cFldKey TAG PART1 TO (cFileIndx) FOR &cFilter1  
       INDEX ON &cFldKey TAG PART2 TO (cFileIndx) FOR &cFilter2

Может из-за этого ?

 Отправлено: 18.07.20 20:04. Заголовок: Andrey пишет Может и..

Andrey пишет

цитата:

Может из-за этого ?

Поправил, по мне, так правильнее работать, ставить SET SCOPE TO ...

 
    IF ( lDbfNo := ! File( cDbf+'.dbf' ) )  
       AAdd( aStr, { 'F0', 'N',  1, 0 } )  
       AAdd( aStr, { 'F1', 'D',  8, 0 } )  
       AAdd( aStr, { 'F2', 'C', 10, 0 } )  
       AAdd( aStr, { 'F3', 'N', 10, 2 } )  
       AAdd( aStr, { 'F4', 'L',  1, 0 } )  
       dbCreate( cDbf, aStr )  
    ENDIF  
    
    IF lDbfNo .OR. !File( cIndx+'.cdx' ) 
       USE ( cDbf ) ALIAS TEST EXCLUSIVE NEW  
    
       WHILE TEST->( RecCount() ) < 30  
          TEST->( dbAppend() )  
          TEST->F0 := (n % 2) + 1  
          TEST->F1 := Date() + n++  
          TEST->F2 := StrZero( n, 2 ) 
          TEST->F3 := n  
          TEST->F4 := ( n % 2 ) == 0  
       END  
    
       GO TOP  
       INDEX ON STR(F0)+F2 TAG NN  FOR !Deleted()  
       INDEX ON RECNO() TAG NN2 FOR !Deleted()  
       INDEX ON RECNO() TAG DEL FOR  Deleted()  
       USE  
    ENDIF  
    
    SET AUTOPEN ON 
    
    USE ( cDbf ) ALIAS TEST SHARED NEW  
    OrdSetFocus('NN')  
    SET SCOPE TO "1","1" 
    GO TOP  
 

Работает

 Отправлено: 18.08.20 23:13. Заголовок: Всем привет ! Можно ..

Всем привет !
Можно ли при открытие базы в ТСБ (метод dbf) создать 6 своих виртуальных колонок перед колонками dbf ?
Одну колонку можно же делать через COLNUMBER { 1, 50 } , а ещё 6 нужно.
И как им присвоить имена и размеры ?
a1ColTitle := {"(1)","(2)","(3)","(4)","(5)","(6)","#"}
a1Name := {"CF1","CF2","CF3","CF4","CF5","CF6","ORDKEYNO"}
a1Type := {"N","N","N","N","N","N","N"}
a1Size := {50,50,50,50,50,50,50}

 Отправлено: 19.08.20 11:21. Заголовок: Andrey пишет Можно л..

Andrey пишет

цитата:

Можно ли при открытие базы в ТСБ (метод dbf) создать 6 своих виртуальных колонок перед колонками dbf ?

Вариантов много. Вот один из них

 
    BEGIN SEQUENCE WITH { |e|break(e) } 
       DbUseArea( .F., cRdd, cFile, cAls, lShared, , cCdp ) 
       lUse := ! NetErr() .and. Used() 
       nMsg := 0 
    END SEQUENCE 
  
    IF lUse 
       k := 6 
       aField := Array(FCount()+k) 
       aField[1] := FieldName(1) 
       aField[2] := FieldName(1) 
       aField[3] := FieldName(1) 
       aField[4] := FieldName(1) 
       aField[5] := FieldName(1) 
       aField[6] := FieldName(1) 
       FOR i := 1 TO FCount() ; aField[ k+i ] := FieldName(i) 
       NEXT 
    ENDIF 
 ... 
          DEFINE TBROWSE oBrw AT y,x WIDTH w HEIGHT h CELL          ; 
                 ALIAS        ALIAS()                               ; 
                 FONT         (App.Object):Cargo:aFonts             ; 
                 BRUSH        { 255, 255, 230 }                     ; 
                 COLORS       aClr                                  ; 
                 ON GOTFOCUS  oCar:FocusedControl := "oBrw"         ; 
                 COLUMNS      aField                                ; 
                 FOOTER       .T.                                   ; 
                 FIXED        COLSEMPTY                             ; 
                 LOADFIELDS   GOTFOCUSSELECT                        ; 
                 COLNUMBER    { k+1, 60 }                             ; 
                 ENUMERATOR   LOCK 
 ... 
                 FOR i := 1 TO :aColumns 
                     o := :aColumns[ i [ 
                     IF o:cName == "ORDKEYNO" ; EXIT 
                     ENDIF 
                     o:cAlias := :cAlias 
                     o:bData  := {|| Nil } 
                     o:bValue := {|u,obr,ncol,ocol| 
                                  Local nrec := (obr)->( RecNo() ) 
                                  u := ocol[ncol]:Cargo[nrec]  // вирт. значение 
                                  Return u 
                                 } 
                     o:cField := "" 
  
                     switch i 
                     case 1 
                        o:Cargo     := aVirtual1 // массив виртуальных данных 
                        o:cName     := VIRT1 
                        o:cFieldTyp := "C" 
                        o:nFieldLen := 20 
                        o:nFieldDec := 0  
                        o:nWidth    := o:ToWidth(o:nFieldLen, 0.8) 
                        exit 
                     case 2 
                        o:Cargo     := aVirtual2 // массив виртуальных данных 
                        o:cName     := VIRT2 
                        o:cFieldTyp := "N" 
                        o:nFieldLen := 7 
                        o:nFieldDec := 0  
                        o:nWidth    := o:ToWidth(o:nFieldLen) 
                        exit 
                     case 3 
                        ... 
                        exit 
                     case 4 
                        ... 
                        exit 
                     case 5 
                        ... 
                        exit 
                     case 6 
                        ... 
                        exit 
                     end switch 
                 NEXT 
 ... 
 

 Отправлено: 19.08.20 11:36. Заголовок: PS Еще сбросить или ..

PS
Еще сбросить или поставить Picture для колонки
o:cPicture := Nil

 Отправлено: 19.08.20 20:41. Заголовок: SergKis пишет Вот од..

SergKis пишет

цитата:

Вот один из них

Работающий вариант с 6-ю вирт. колонками Скрытый текст

FUNCTION GetVirtAll() // создали массивы со значениями для вирт. колонок Local aDim1 := {}, aDim2 := {}, aDim3 := {}, aDim4 := {}, aDim5 := {}, aDim6 := {} Local nOld := RecNo(), cAls := ALIAS(), nRec GO TOP DO WHILE !EOF() nRec := RecNo() AAdd(aDim1, nRec + 10) AAdd(aDim2, nRec + 20) AAdd(aDim3, nRec + 30) AAdd(aDim4, nRec + 40) AAdd(aDim5, nRec + 50) AAdd(aDim6, nRec + 60) SKIP ENDDO GOTO nOld RETURN { aDim1, aDim2, aDim3, aDim4, aDim5, aDim6 } ... SELECT 0 cAls := "_A_"+hb_ntos(Select())+"_" BEGIN SEQUENCE WITH { |e|break(e) } DbUseArea( .F., cRdd, cFile, cAls, lShared, , cCdp ) lUse := ! NetErr() .and. Used() nMsg := 0 END SEQUENCE IF lUse aField := Array(FCount()+6) aField[1] := FieldName(1) aField[2] := FieldName(1) aField[3] := FieldName(1) aField[4] := FieldName(1) aField[5] := FieldName(1) aField[6] := FieldName(1) FOR i := 1 TO FCount() ; aField[ k+i ] := FieldName(i) NEXT ENDIF ... IF lUse This.Cargo:aVirtualAll := GetVirtAll() AAdd(aClr, { 6, {|c,n,b| c := n, iif( b:nCell == n, -CLR_BLUE, -RGB(128,225,225) ) } } ) AAdd(aClr, {12, {|c,n,b| c := n, iif( b:nCell == n, -CLR_BLUE, -RGB(128,225,225) ) } } ) x := 2 i := 1 y := GetWindowHeight(hSpl) + i h := This.ClientHeight - y - i * 2 - 1 w := This.ClientWidth - x * 2 This.Cargo:nSplitHeight := y DEFINE TBROWSE oBrw AT y,x WIDTH w HEIGHT h CELL ; ALIAS ALIAS() ; FONT (App.Object):Cargo:aFonts ; BRUSH { 255, 255, 230 } ; COLORS aClr ; ON GOTFOCUS oCar:FocusedControl := "oBrw" ; COLUMNS aField ; FOOTER .T. ; FIXED COLSEMPTY ; LOADFIELDS GOTFOCUSSELECT ; COLNUMBER { 6+1, 60 } ; ENUMERATOR LOCK :Cargo := oKeyData() :nColOrder := 0 :lNoChangeOrd := .T. :nWheelLines := 1 :lNoGrayBar := .F. :lNoLiteBar := .F. :lNoResetPos := .F. :lNoPopUp := .T. :lNoHScroll := .T. :nCellMarginLR := 1 :nStatusItem := 0 :lNoKeyChar := .T. // method :KeyChar disabled :lCheckBoxAllReturn := .T. // Enter modify value oCol:lCheckBox :lPickerMode := .F. // формат даты нормальный :nHeightCell := (App.Object):H1 + 3 :nHeightHead := :nHeightCell :nHeightFoot := :nHeightCell :SetDeleteMode( .T., .F., {|rec,obr| DelRecords(rec, obr) }, ; {|obr| obr:Cargo:nRecnoDraw := 0, obr:DrawSelect() } ) FOR i := 1 TO Len(:aColumns) o := :aColumns[ i ] IF o:cName == "ORDKEYNO"; EXIT ENDIF o:cAlias := :cAlias o:Cargo := This.Cargo:aVirtualAll[ i ] // массив виртуальных данных o:cName := 'VIRT'+hb_ntos(i) o:cHeading := "("+hb_ntos(i)+")" o:cFooting := "" o:cPicture := Nil o:bData := {|| Nil } o:bValue := {|u,obr,ncol,ocol| Local nrec := (obr:cAlias)->( RecNo() ) u := ocol:Cargo[nrec] // вирт. значение Return u } o:nAlign := DT_CENTER o:nFAlign := DT_CENTER o:cField := "" o:cFieldTyp := "N" o:nFieldLen := 5 o:nWidth := o:ToWidth(o:nFieldLen) NEXT ...