set _PATH=%PATH% 
 set PATH=%MG_BCC%\bin;%MG_ROOT%\harbour\bin;%PATH% 
  
 echo %MG_ROOT%\ 
 echo %MG_BCC% 
  
 rem *************************************************************************** 
 rem set default GT driver 
 

1) Пример \SAMPLES\Advanced\ACHOICE_3 позволяет показывать массив в окне с выбором. 
    Синтаксис в программе простой:     
       aRet := MenuAviAchoice( aMenu ) 
    Есть и более продвинутые показы. 
    К своему проекту нужно прилинковать модуль util_AviAchoice.prg 
  
 2) Пример \SAMPLES\Advanced\ACHOICE_4 позволяет показывать массив в окне с выбором. 
    Синтаксис в программе простой:     
       aRet := MenuAchoice( aMenu ) 
    Есть и более продвинутые показы. 
    К своему проекту нужно прилинковать модуль util_achoice.prg 
  
 3) Пример \SAMPLES\BASIC\WAIT_WINDOW_4   
    Прелодер показа на длительных операциях для AVI файлов 
    Пробовал в больших проектов, картинка не тормозит и не замирает, работает как часы. 
    К своему проекту нужно прилинковать модуль WaitWinAvi.prg 
    Смотреть короткий тест demo3.prg - показ работы с базой и в цикле.  

 
 METHOD LoadFields( lEditable, aColSel, cAlsSel, aNameSel, aHeadSel ) CLASS TSBrowse 
 ... 
       cType := aStru[ nE, 2 ] 
       IF ( nType := AScan( aAdsType, {| e | e[ 1 ] == cType } ) ) > 0 
          cType := aAdsType[ nType, 2 ] 
       ENDIF 
       cPicture := NIL 
       IF cType == "C" 
          cPicture := "@K " + Replicate( 'X', aStru[ nE, 3 ] ) 
 ... 
 

 
 @echo off 
 SET P=demo2 
 if exist _MsgLog.txt   del _MsgLog.txt   > nul 
 if exist ErrorLog.htm  del ErrorLog.htm  > nul 
 if exist .\obj\%P%.res del .\obj\%P%.res > nul 
 if exist .\obj\%P%.obj del .\obj\%P%.obj > nul 
 call ..\..\..\batch\hbmk2.bat %* %P%.hbp 
 

C:\MiniGUI_24.05\SAMPLES\Advanced\Tsb_oHmgData\demo.exe -- ICON,209389999,MAIN(73) 
 C:\MiniGUI_24.05\SAMPLES\Advanced\Tsb_oHmgData\demo.exe -- ICON,209389999,MAIN(73) 
 C:\MiniGUI_24.05\SAMPLES\Advanced\Tsb_oHmgData\demo.exe -- ICON,366216997,MAIN(73) 
 Код программы: 
       // верхнее меню окна 
       myToolBar(owc)   // <<<---- строка 73 

C:\MiniGUI_24.05\SAMPLES\Advanced\Tsb_oHmgData\demo.exe -- BMP,84219576,COLUMN_TSB(136)->MAIN(91) 
 C:\MiniGUI_24.05\SAMPLES\Advanced\Tsb_oHmgData\demo.exe -- BMP,84219576,COLUMN_TSB(136)->MAIN(91) 
 C:\MiniGUI_24.05\SAMPLES\Advanced\Tsb_oHmgData\demo.exe -- BMP,117774005,COLUMN_TSB(136)->MAIN(91) 
 C:\MiniGUI_24.05\SAMPLES\Advanced\Tsb_oHmgData\demo.exe -- BMP,84219576,COLUMN_TSB(136)->MAIN(91) 
 C:\MiniGUI_24.05\SAMPLES\Advanced\Tsb_oHmgData\demo.exe -- BMP,117774005,COLUMN_TSB(136)->MAIN(91) 
 C:\MiniGUI_24.05\SAMPLES\Advanced\Tsb_oHmgData\demo.exe -- BMP,67442359,COLUMN_TSB(136)->MAIN(91) 
 .... и т.д.  
 C:\MiniGUI_24.05\SAMPLES\Advanced\Tsb_oHmgData\demo.exe -- BMP,67442359,COLUMN_TSB(136)->MAIN(91) 
 C:\MiniGUI_24.05\SAMPLES\Advanced\Tsb_oHmgData\demo.exe -- BMP,50665150,COLUMN_TSB(140)->MAIN(91) 
 C:\MiniGUI_24.05\SAMPLES\Advanced\Tsb_oHmgData\demo.exe -- BMP,33887935,COLUMN_TSB(140)->MAIN(91) 
 C:\MiniGUI_24.05\SAMPLES\Advanced\Tsb_oHmgData\demo.exe -- BMP,33887936,COLUMN_TSB(140)->MAIN(91) 
 C:\MiniGUI_24.05\SAMPLES\Advanced\Tsb_oHmgData\demo.exe -- BMP,33887937,COLUMN_TSB(140)->MAIN(91) 
 C:\MiniGUI_24.05\SAMPLES\Advanced\Tsb_oHmgData\demo.exe -- BMP,33887938,COLUMN_TSB(140)->MAIN(91) 
 C:\MiniGUI_24.05\SAMPLES\Advanced\Tsb_oHmgData\demo.exe -- BMP,33887939,COLUMN_TSB(140)->MAIN(91) 
 C:\MiniGUI_24.05\SAMPLES\Advanced\Tsb_oHmgData\demo.exe -- BMP,33887940,TSBROWSE:NEW(1560)->_DEFINETBROWSE(314)->_TBROWSE(559)->MAIN(102) 
 C:\MiniGUI_24.05\SAMPLES\Advanced\Tsb_oHmgData\demo.exe -- BRUSH,1242568359,TSBROWSE:SETCOLOR(13377)->TSBROWSE:NEW(1660)->_DEFINETBROWSE(314)->_TBROWSE(559)->MAIN(102) 
 C:\MiniGUI_24.05\SAMPLES\Advanced\Tsb_oHmgData\demo.exe -- BRUSH,1024464538,_TBROWSE(559)->MAIN(102) 
 C:\MiniGUI_24.05\SAMPLES\Advanced\Tsb_oHmgData\demo.exe -- BMP,17110726,(b)MAIN(96)->_TBROWSE(572)->MAIN(102) 
 C:\MiniGUI_24.05\SAMPLES\Advanced\Tsb_oHmgData\demo.exe -- BRUSH,1997543076,(b)MAIN(98)->_TBROWSE(579)->MAIN(102)

   FOR nI := 1 TO LEN(aImg) 
       hIco  := LoadIconByName( aImg[nI], nHImg, nHImg ) 
       hBmp  := BmpFromIcon( hIco )          // вернет хендл bmp 
       cFile := cPath + aImg[nI] + ".png" 
       HMG_SaveImage( hBmp, cFile, "png" ) 
       ....

     BMP,33887940,TSBROWSE:NEW(1560)->_DEFINETBROWSE(314)->_TBROWSE(559)->MAIN(102)

 
 C:\MiniGUI_24.05\SAMPLES\Advanced\Tsb_oHmgData\demo.exe -- BMP,-234549685,COLUMN_TSB(136)->MAIN(91) 
 C:\MiniGUI_24.05\SAMPLES\Advanced\Tsb_oHmgData\demo.exe -- BMP,-234549685,COLUMN_TSB(136)->MAIN(91) 
 C:\MiniGUI_24.05\SAMPLES\Advanced\Tsb_oHmgData\demo.exe -- BMP,1627723450,COLUMN_TSB(136)->MAIN(91) 
 C:\MiniGUI_24.05\SAMPLES\Advanced\Tsb_oHmgData\demo.exe -- BMP,-234549685,COLUMN_TSB(136)->MAIN(91) 
 C:\MiniGUI_24.05\SAMPLES\Advanced\Tsb_oHmgData\demo.exe -- BMP,1627723450,COLUMN_TSB(136)->MAIN(91) 
 C:\MiniGUI_24.05\SAMPLES\Advanced\Tsb_oHmgData\demo.exe -- BMP,2080708307,COLUMN_TSB(136)->MAIN(91) 
 ... 
 C:\MiniGUI_24.05\SAMPLES\Advanced\Tsb_oHmgData\demo.exe -- BMP,-184215828,COLUMN_TSB(140)->MAIN(91) 
 C:\MiniGUI_24.05\SAMPLES\Advanced\Tsb_oHmgData\demo.exe -- BMP,486872819,TSBROWSE:NEW(1560)->_DEFINETBROWSE(314)->_TBROWSE(559)->MAIN(102) 
 C:\MiniGUI_24.05\SAMPLES\Advanced\Tsb_oHmgData\demo.exe -- BRUSH,1511003877,TSBROWSE:SETCOLOR(13377)->TSBROWSE:NEW(1660)->_DEFINETBROWSE(314)->_TBROWSE(559)->MAIN(102) 
 C:\MiniGUI_24.05\SAMPLES\Advanced\Tsb_oHmgData\demo.exe -- BRUSH,890246898,_TBROWSE(559)->MAIN(102) 
 C:\MiniGUI_24.05\SAMPLES\Advanced\Tsb_oHmgData\demo.exe -- BMP,1308956330,(b)MAIN(96)->_TBROWSE(572)->MAIN(102) 
 C:\MiniGUI_24.05\SAMPLES\Advanced\Tsb_oHmgData\demo.exe -- BRUSH,1343231766,(b)MAIN(98)->_TBROWSE(579)->MAIN(102)

C:\MiniGUI_24.05\SAMPLES\Advanced\Tsb_oHmgData\demo.exe -- BMP,-184215828,COLUMN_TSB(140)->MAIN(91)  
  C:\MiniGUI_24.05\SAMPLES\Advanced\Tsb_oHmgData\demo.exe -- BMP,486872819,TSBROWSE:NEW(1560)->_DEFINETBROWSE(314)->_TBROWSE(559)->MAIN(102)  
  C:\MiniGUI_24.05\SAMPLES\Advanced\Tsb_oHmgData\demo.exe -- BRUSH,1511003877,TSBROWSE:SETCOLOR(13377)->TSBROWSE:NEW(1660)->_DEFINETBROWSE(314)->_TBROWSE(559)->MAIN(102)  
  C:\MiniGUI_24.05\SAMPLES\Advanced\Tsb_oHmgData\demo.exe -- BRUSH,890246898,_TBROWSE(559)->MAIN(102)  
  C:\MiniGUI_24.05\SAMPLES\Advanced\Tsb_oHmgData\demo.exe -- BMP,1308956330,(b)MAIN(96)->_TBROWSE(572)->MAIN(102)  
  C:\MiniGUI_24.05\SAMPLES\Advanced\Tsb_oHmgData\demo.exe -- BRUSH,1343231766,(b)MAIN(98)->_TBROWSE(579)->MAIN(102)

 
    **************************************************************************** 
    CASE WM_DESTROY 
    **************************************************************************** 
  
       i := AScan ( _HMG_aFormHandles , hWnd ) 
  
       IF i > 0 
  
 #ifndef __XHARBOUR__ 
          // Remove All HMG_* Properties 
          IF Len( EnumProps( hWnd ) ) > 0 
             EnumPropsEx( hWnd, {|hWnd, cPropName, hHandle| HB_SYMBOL_UNUSED( hHandle ), ; 
                iif( hb_LeftEqI( cPropName, "HMG_" ), RemoveProp( hWnd, cPropName ), Nil ), .T. } ) 
          ENDIF 
 #endif 
          // Remove Child Controls 
          FOR EACH r IN _HMG_aControlParentHandles 
             IF r == hWnd 
                x := hb_enumindex ( r ) 
                IF _HMG_aControlType [x] == "MESSAGEBAR" 
                   _ReleaseControl ( "StatusBar" , GetParentFormName( x ) ) 
                ELSE 
                   _EraseControl ( x , i ) 
                ENDIF 
             ENDIF 
          NEXT 
 ... 
  
    _HMG_aControlType[ k ] := "TBROWSE" 
    _HMG_aControlNames[ k ] := ControlName 
    _HMG_aControlHandles[ k ] := ControlHandle 
    _HMG_aControlParenthandles[ k ] := ParentFormHandle 
    _HMG_aControlIds[ k ] := oBrw 
 ... 
 имеем, значит имеем и _HMG_aControlIds[ k ]:Destroy() 
  
 PS. Добавить в _EraseControl ( i, p ) обработку    CASE t == 'TBROWSE' 
 

 
       IF HB_ISARRAY( aBrush ) .AND. Len( aBrush ) > 2 
          IF oBrw:hBrush != NIL 
             DeleteObject( oBrw:hBrush ) 
          ENDIF 
          oBrw:hBrush := CreateSolidBrush( aBrush[ 1 ], aBrush[ 2 ], aBrush[ 3 ] ) 
       ENDIF 
       /* BK end */ 
 ... 
 METHOD Enabled( lEnab ) CLASS TSBrowse 
 ... 
          DeleteObject( ::hBrush ) 
          ::hBrush := CreateSolidBrush( GetRed( ::nClrPane ), GetGreen( ::nClrPane ), GetBlue( ::nClrPane ) ) 
          IF ::lSelector .AND. ::lDrawSpecHd 
             ::nClrSpcHdBack := ::nCLR_HGRAY 
          ENDIF 
  
       ELSE 
 ... 
 но с ::hBrush не все понятно, т.к. есть места TControl.prg без DeleteObject( ::hBrush ) как пример 
 METHOD Colors( hDC ) CLASS TControl 
  
    DEFAULT ::nClrText := GetTextColor( hDC ), ; 
       ::nClrPane := GetBkColor( hDC ), ; 
       ::hBrush := CreateSolidBrush( GetRed( ::nClrPane ), GetGreen( ::nClrPane ), GetBlue( ::nClrPane ) ) 
  
    SetTextColor( hDC, ::nClrText ) 
    SetBkColor( hDC, ::nClrPane ) 
  
 RETURN ::hBrush 
 Если поискать "CreateSolidBrush" в prg, то есть и др. места ...  
  
 PS. Если взять простой вариант окна MDI, то тоже остается BRUSH не освобожденный 
    DEFINE WINDOW &cForm AT nY, nX WIDTH nW HEIGHT nH TITLE om:cTitle ; 
           MINWIDTH nWm MINHEIGHT nHm                                 ; 
           MAIN MDI       TOPMOST                                     ; 
           BACKCOLOR      cBClr                                       ; 
           ON INIT               _wPost( 0)                           ; 
           ON RELEASE            _wSend(90)                           ; 
           ON INTERACTIVECLOSE ( _wSend(98), This.Cargo:lClose ) 
           This.Cargo := oHmgData() ; oMain := This.Object 
  
       This.Cargo:lClose := .T. 
 ... 
    END WINDOW 
  
    IF lCenter ; CENTER WINDOW &cForm 
    ENDIF 
  
    ACTIVATE WINDOW &cForm 
  
 RETURN NIL 
 

      LOCAL oBrw, oTsb 
 ....  
       // построение таблицы 
       oTsb := oHmgData() 
 ...  
      oTsb:aBmp1  := { {"bMinus32", "bZero32", "bPlus32"} ,; 
                                  { LoadImage("bMinus32"), LoadImage("bMinus32"), LoadImage("bMinus32")} ,; 
                                  , {||блок кода смены картинки}, ... } 
 .... 
       // --------- хранилище картинок, удаляется после закрытия объекта автоматом ------ 
       :aBitMaps      := { Nil, LoadImage("bRecDel16") } 
  
       :aColumns[2]:aBitMaps := oTsb:aBmp1[2]  
       :aColumns[2]:uBmpCell := oTsb:aBmp1[3] // там далее смена картинки по алгоритму в myLoadBmpTsb(...)  
 ....

 
     If ::hBrush != nil  
        DeleteObject( ::hBrush )  // Alen Uzelac 13.09.2012  
        ::hBrush := NIL           //!!!  
        DoEvents()                //!!!  
     EndIf 

 
    IF HB_ISARRAY( aColors ) .AND. Len( aColors ) > 0 
       IF HB_ISARRAY( aColors[ 1 ] ) 
          FOR EACH aClr IN aColors 
             IF HB_ISNUMERIC( aClr[ 1 ] ) .AND. aClr[ 1 ] > 0 .AND. aClr[ 1 ] <= Len( aTmpColor ) 
                IF aClr[ 2 ] != NIL 
                   aTmpColor[ aClr[ 1 ] ] := aClr[ 2 ] 
                ENDIF 
             ENDIF 
          NEXT 
       ELSE 
          AEval( aColors, {| bColor, nEle | iif( bColor != NIL, aTmpColor[ nEle ] := bColor, )} ) 
          //AEval( aColors, {| bColor, nEle | aTmpColor[ nEle ] := bColor } ) 
       ENDIF 
    ENDIF 
  
 2. входной массив формировать  
 FUNCTION _DefineTBrowse( ControlName, ParentFormName, nCol, nRow, nWidth, nHeight, ; 
 ... 
    LOCAL aTmpColor := Array( 0 ), aClr 
 ... 
    IF Type( '_TSB_aControlhWnd' ) != 'A' 
       PUBLIC _TSB_aControlhWnd := {}, _TSB_aControlObjects := {}, _TSB_aClientMDIhWnd := {} 
    ENDIF 
  
    IF HB_ISARRAY( aColors ) .AND. Len( aColors ) > 0 
       /* 
       IF HB_ISARRAY( aColors[ 1 ] ) 
          FOR EACH aClr IN aColors 
             IF HB_ISNUMERIC( aClr[ 1 ] ) .AND. aClr[ 1 ] > 0 .AND. aClr[ 1 ] <= Len( aTmpColor ) 
                aTmpColor[ aClr[ 1 ] ] := aClr[ 2 ] 
             ENDIF 
          NEXT 
       ELSE 
          AEval( aColors, {| bColor, nEle | aTmpColor[ nEle ] := bColor } ) 
       ENDIF 
       */ 
       aTmpColor := aColors 
    ENDIF 
  
    IF ValType( fontcolor ) != "U" 
       AAdd( aTmpColor, {{ 1, RGB( fontcolor[ 1 ], fontcolor[ 2 ], fontcolor[ 3 ] ) }} ) 
       //aTmpColor[ 1 ] := RGB( fontcolor[ 1 ], fontcolor[ 2 ], fontcolor[ 3 ] ) 
    ENDIF 
  
    IF ValType( backcolor ) != "U" 
       AAdd( aTmpColor, {{ 2, RGB( backcolor[ 1 ], backcolor[ 2 ], backcolor[ 3 ] ) }} ) 
       //aTmpColor[ 2 ] := RGB( backcolor[ 1 ], backcolor[ 2 ], backcolor[ 3 ] ) 
    ENDIF 
  
    IF Empty( aTmpColor ) ; aTmpColor := NIL 
    ENDIF 
 ... 
 

         .... 
          _SetThisFormInfo(oWnd) 
          AlertStop(cMsg)   // или вызов другого окна  
          _SetThisFormInfo() 
         .....

         DEFINE TBROWSE oBrw ...              ; 
             BACKCOLOR aBackColor               ; 
 ...

 
          DEFINE TBROWSE oBrw ...              ;  
              BACKCOLOR aBackColor 
              FONTCOLOR aFontColor ; 
              COLOR aColors               ;  
 

 
    IF lAutoFilter 
       aTmpColor[ 19 ] := GetSysColor( COLOR_INACTCAPTEXT ) 
    ELSEIF lAutoSearch 
       aTmpColor[ 19 ] := GetSysColor( COLOR_INFOBK ) 
    ENDIF 
 

 
 METHOD New( cControlName, nRow, nCol, nWidth, nHeight, bLine, aHeaders, aColSizes, cParentWnd, ; 
 ... 
    aTmpColor[  1 ] := GetSysColor( COLOR_WINDOWTEXT )    // nClrText 
    aTmpColor[  2 ] := GetSysColor( COLOR_WINDOW )        // nClrPane 
    aTmpColor[  3 ] := GetSysColor( COLOR_BTNTEXT )       // nClrHeadFore 
    aTmpColor[  4 ] := GetSysColor( COLOR_BTNFACE )       // nClrHeadBack 
    aTmpColor[  5 ] := GetSysColor( COLOR_CAPTIONTEXT )   // nClrForeFocu 
    aTmpColor[  6 ] := GetSysColor( COLOR_ACTIVECAPTION ) // nClrFocuBack 
    aTmpColor[  7 ] := GetSysColor( COLOR_WINDOWTEXT )    // nClrEditFore 
    aTmpColor[  8 ] := GetSysColor( COLOR_WINDOW )        // nClrEditBack 
    aTmpColor[  9 ] := GetSysColor( COLOR_BTNTEXT )       // nClrFootFore 
    aTmpColor[ 10 ] := GetSysColor( COLOR_BTNFACE )       // nClrFootBack 
    aTmpColor[ 11 ] := CLR_HGRAY                          // nClrSeleFore inactive focused 
    aTmpColor[ 12 ] := CLR_GRAY                           // nClrSeleBack inactive focused 
    aTmpColor[ 13 ] := GetSysColor( COLOR_BTNTEXT )       // nClrOrdeFore 
    aTmpColor[ 14 ] := GetSysColor( COLOR_BTNFACE )       // nClrOrdeBack 
    aTmpColor[ 15 ] := GetSysColor( COLOR_BTNSHADOW )     // nClrLine 
    aTmpColor[ 16 ] := GetSysColor( COLOR_BTNTEXT )       // nClrSupHeadFore 
    aTmpColor[ 17 ] := GetSysColor( COLOR_BTNFACE )       // nClrSupHeadBack 
    aTmpColor[ 18 ] := GetSysColor( COLOR_BTNTEXT )       // nClrSpecHeadFore 
    aTmpColor[ 19 ] := GetSysColor( COLOR_BTNFACE )       // nClrSpecHeadBack 
    aTmpColor[ 20 ] := CLR_HRED                           // nClrSpecHeadActive 
  
    IF lAutoFilter 
       aTmpColor[ 19 ] := GetSysColor( COLOR_INACTCAPTEXT ) 
    ELSEIF lAutoSearch 
       aTmpColor[ 19 ] := GetSysColor( COLOR_INFOBK ) 
    ENDIF 
  
    IF HB_ISARRAY( aColors ) .AND. Len( aColors ) > 0 
       IF HB_ISARRAY( aColors[ 1 ] ) 
          FOR EACH aClr IN aColors 
             IF HB_ISNUMERIC( aClr[ 1 ] ) .AND. aClr[ 1 ] > 0 .AND. aClr[ 1 ] <= Len( aTmpColor ) 
                IF aClr[ 2 ] != NIL 
                   aTmpColor[ aClr[ 1 ] ] := aClr[ 2 ] 
                ENDIF 
             ENDIF 
          NEXT 
       ELSE 
          AEval( aColors, {| bColor, nEle | iif( bColor != NIL, aTmpColor[ nEle ] := bColor, ) } ) 
       ENDIF 
    ENDIF 
 ... 
 

      // цвет фона под таблицей 
       IF MGVersNumba() >= 231202  // MG Version 23.12.02 
          :hBrush := aClrBrush 
       ELSE 
          DeleteObject(:hBrush) 
          :hBrush  := CreateSolidBrush(aClrBrush[1], aClrBrush[2], aClrBrush[3])   
       ENDIF

 
 METHOD New( cControlName, nRow, nCol, nWidth, nHeight, bLine, aHeaders, aColSizes, cParentWnd, ; 
 ... 
    aTmpColor[ 18 ] := GetSysColor( COLOR_BTNTEXT )       // nClrSpecHeadFore 
    aTmpColor[ 19 ] := GetSysColor( COLOR_BTNFACE )       // nClrSpecHeadBack 
 ... 
    IF lAutoFilter 
       aTmpColor[ 19 ] := GetSysColor( COLOR_INACTCAPTEXT ) 
    ELSEIF lAutoSearch 
       aTmpColor[ 19 ] := GetSysColor( COLOR_INFOBK ) 
    ENDIF 
 ... 
    ::aColors := aTmpColor 
 ... 
 в TSColumn еще краше 
 METHOD DefColor( oBrw, aTmpColor ) CLASS TSColumn 
 ... 
    IF oBrw == NIL 
 ... 
    ELSE 
 ... 
          aTmpColor[ 17 ] := oBrw:nClrHeadBack, ; 
          aTmpColor[ 20 ] := oBrw:nClrSpcHdActive 
  
       IF oBrw:lEnum 
          DEFAULT aTmpColor[ 18 ] := oBrw:nClrHeadFore, ; 
             aTmpColor[ 19 ] := oBrw:nClrHeadBack 
       ELSE 
          DEFAULT aTmpColor[ 18 ] := oBrw:nClrEditFore, ; 
             aTmpColor[ 19 ] := oBrw:nClrEditBack 
       ENDIF 
  
    ENDIF 
 ... 
    ::nClrSpcHdFore := aTmpColor[ 18 ] 
    ::nClrSpcHdBack := aTmpColor[ 19 ] 
 ... 
 получается, что нет нормального задания цвета для спец. header, т.е. задаем 
 ... 
    AAdd( aColors, { CLR_EDITF , {|| CLR_RED               } } )        // 7 , текста редактируемого поля 
    AAdd( aColors, { CLR_EDITB , {|| CLR_YELLOW            } } )        // 8 , фона редактируемого поля 
 ... 
    AAdd( aColors, { CLR_SPCF  , {|| CLR_RED    }             } )       // 18, specheader text        
    AAdd( aColors, { CLR_SPCB  , {|| CLR_GRAY  }             } )       // 19, specheader back        
 ... 
 

   DEFINE TBROWSE &cBrw OBJ oBrw OF &cForm           ; 
       AT oTsb:nY, oTsb:nX ALIAS oTsb:cAls WIDTH oTsb:nW HEIGHT oTsb:nH CELL   ; 
       FONT     oTsb:aFont                            ; // все фонты для таблицы 
       BRUSH    oTsb:aClrBrush                        ; // цвет фона под таблицей

      :hBrush  := CreateSolidBrush(aClrBrush[1], aClrBrush[2], aClrBrush[3])  // цвет фона под таблицей 

   oBrw:Enabled(.F.) 
 ... 
    oBrw:Enabled(.T.)

 
    DATA nClrSelectorHdBack // special selector header background color 
    DATA lClrSelectorHdBack AS LOGICAL INIT .T. // special selector header background color ON\OFF 
    DATA nClrLine // grid line color 
 ... 
 METHOD DrawHeaders( lFooters, lDrawCell ) CLASS TSBrowse 
 ... 
       IF ::lDrawHeaders .AND. ! lFooters 
 ... 
          IF !( nJ == 1 .AND. ::lSelector ) 
             IF ( nClrBack := iif( ::nColOrder == nI, oColumn:nClrOrdeBack, oColumn:nClrHeadBack ) ) == NIL 
                nClrBack := iif( ::nColOrder == nI, nClrOrdeBack, nClrHeadBack ) 
             ENDIF 
          ELSEIF ! ::lClrSelectorHdBack 
             nClrBack := oColumn:nClrHeadBack 
          ELSEIF ::nClrSelectorHdBack != NIL 
             nClrBack := ::nClrSelectorHdBack 
          ELSE 
             nClrBack := ATail( ::aColumns ):nClrHeadBack 
          ENDIF 
 ... 
       IF ::lFooting .AND. ::lDrawFooters 
 ... 
          IF !( nJ == 1 .AND. ::lSelector ) // JP 
             nClrBack := iif( oColumn:nClrFootBack != NIL, oColumn:nClrFootBack, nClrFootBack ) 
          ELSEIF ! ::lClrSelectorHdBack 
             nClrBack := oColumn:nClrFootBack 
          ELSEIF ::nClrSelectorHdBack != NIL 
             nClrBack := ::nClrSelectorHdBack 
          ELSE 
             nClrBack := ATail( ::aColumns ):nClrFootBack 
          ENDIF 
 ... 
 тогда в prg делаем ~ так 
 ... 
    oBrw:lClrSelectorHdBack := .F. 
 ... когда виртуальные колонки уже есть в oBrw:aColumns 
    // изменим цвет колонки - виртуальная колонка / virtual column 
    oBrw:GetColumn("SELECTOR"):nClrBack     := nBCSpH 
    oBrw:GetColumn("SELECTOR"):nClrFore     := CLR_RED 
    oBrw:GetColumn("SELECTOR"):nClrHeadBack := CLR_GREEN  
    oBrw:GetColumn("SELECTOR"):nClrFootBack := CLR_YELLOW 
 ... 
 

 
 ... 
       IF ::lDrawSpecHd 
 ... 
          IF nI == nBegin .AND. ::lSelector 
             //!!! nClrBacks := iif( ::lDrawSpecHd, ::nClrSpcHdBack, nClrHeadBack ) 
             IF ::nClrSelectorHdBack != NIL 
                nClrBacks := iif( ::lClrSelectorHdBack, ::nClrSelectorHdBack, oColumn:nClrSpcHdBack ) 
             ELSE 
                nClrBacks := nClrHeadBack 
             ENDIF 
          ELSE 
             nClrBacks := iif( ::nPhantom == -1, ATail( ::aColumns ):nClrSpcHdBack, nClrPane ) 
          ENDIF 
 ... 
 Пример использования 
    oBrw:nClrSelectorHdBack := CLR_YELLOW 
    oBrw:lClrSelectorHdBack := .F. // background OFF 
    // изменим цвет колонки - виртуальная колонка / virtual column 
    oCol := oBrw:GetColumn("SELECTOR") 
    oCol:nClrBack      := nBCSpH 
    oCol:nClrFore      := CLR_RED 
    oCol:nClrHeadBack  := CLR_BLUE 
    oCol:nClrFootBack  := CLR_GREEN  
    oCol:nClrSpcHdBack := CLR_YELLOW 
  
    oCol := oBrw:GetColumn("ORDKEYNO") 
    oCol:nClrBack      := nBCSpH 
    oCol:nClrFore      := CLR_RED 
    oCol:nClrFootBack  := nBCSpH 
    oCol:nClrFootFore  := CLR_RED 
 

 
 FUNCTION _TBrowse( oParam, uAlias, cBrw, nY, nX, nW, nH ) 
 ... 
    DEFAULT oParam := oHmgData() 
  
    DEFAULT oParam:lRowPosAtRec := .T. 
 ... 
       :lRowPosAtRec       := oParam:lRowPosAtRec 
  
       :Cargo:oParam := oParam 
 ... 
 

 
    LOCAL i, nColums, nLen, aColNumber := array(5) 
 ... 
          nW := 0  
          IF nColNumber != NIL 
             IF HB_ISLOGICAL( nColNumber ) 
                nColNumber := iif( nColNumber, 1, NIL ) 
             ELSEIF HB_ISARRAY( nColNumber ) 
                IF Len( nColNumber ) > 1 
                   ASize( nColNumber, 5 ) 
                   //nW := nColNumber[ 2 ] 
                   aColNumber[2] := nColNumber[ 2 ]  // nWidth 
                   aColNumber[3] := nColNumber[ 3 ]  // nAlign 
                   aColNumber[4] := nColNumber[ 4 ]  // Bitmap 
                   aColNumber[5] := nColNumber[ 5 ]  // cName 
                   nColNumber    := nColNumber[ 1 ]  // nCol 
                ELSE 
                   nColNumber := 1 
                ENDIF 
                aColNumber[1] := nColNumber 
                Default aColNumber[2] := 80 
             ENDIF 
          ENDIF 
  
          IF HB_ISNUMERIC( nColNumber )  
             nColNumber := iif( nColNumber > 0 .AND. nColNumber <= n, nColNumber, 1 ) 
             //                  width                      name           align          bitmap         
             oBrw:InsColNumber( aColNumber[2], nColNumber, aColNumber[5], aColNumber[3], aColNumber[4] ) 
  
             oBrw:nCell   := nColNumber + 1 
             oBrw:nFreeze := nColNumber 
             oBrw:lLockFreeze := .T. 
  
             //IF HB_ISNUMERIC( nW ) .AND. nW > 0 
             //   oBrw:GetColumn( nColNumber ):nWidth := nW 
             //ENDIF 
          ENDIF 
 ... 
 

 
       IF ::lDrawSpecHd 
 ... 
          IF nI == nBegin .AND. ::lSelector 
             nClrBacks := iif( ::lDrawSpecHd, ::nClrSpcHdBack, nClrHeadBack ) 
 ... 
 мы уже в ::lDrawSpecHd. Предлагаю вернуться к варианту 
    DATA nClrSelectorHdBack // special selector header background color 
    DATA nClrSelectorFtBack // special selector footer background color если не убирать эту строку 
    DATA lClrSelectorHdBack AS LOGICAL INIT .T. // special selector header background color 
 ... 
 METHOD DrawHeaders( lFooters, lDrawCell ) CLASS TSBrowse 
 ... 
          IF !( nJ == 1 .AND. ::lSelector ) 
             IF ( nClrBack := iif( ::nColOrder == nI, oColumn:nClrOrdeBack, oColumn:nClrHeadBack ) ) == NIL 
                nClrBack := iif( ::nColOrder == nI, nClrOrdeBack, nClrHeadBack ) 
             ENDIF 
          ELSEIF ! ::lClrSelectorHdBack 
             nClrBack := oColumn:nClrHeadBack 
          ELSEIF ::nClrSelectorHdBack != NIL 
             nClrBack := ::nClrSelectorHdBack 
          ELSE 
             nClrBack := ATail( ::aColumns ):nClrHeadBack 
          ENDIF 
 ... 
       IF ::lDrawSpecHd 
 ... 
          IF nI == nBegin .AND. ::lSelector 
             //!!! nClrBacks := iif( ::lDrawSpecHd, ::nClrSpcHdBack, nClrHeadBack ) 
             IF ! ::lClrSelectorHdBack 
                nClrBacks := oColumn:nClrSpcHdBack 
             ELSEIF ::nClrSelectorHdBack != NIL 
                nClrBacks := ::nClrSelectorHdBack 
             ELSE 
                nClrBacks := nClrHeadBack 
             ENDIF 
          ELSE 
             nClrBacks := iif( ::nPhantom == -1, ATail( ::aColumns ):nClrSpcHdBack, nClrPane ) 
          ENDIF 
 ... 
       IF ::lFooting .AND. ::lDrawFooters 
 ... 
          IF !( nJ == 1 .AND. ::lSelector ) // JP 
             nClrBack := iif( oColumn:nClrFootBack != NIL, oColumn:nClrFootBack, nClrFootBack ) 
          ELSEIF ! ::lClrSelectorHdBack 
             nClrBack := oColumn:nClrFootBack 
          ELSEIF ::nClrSelectorFtBack != NIL 
             nClrBack := ::nClrSelectorFtBack 
          ELSEIF ::nClrSelectorHdBack != NIL 
             nClrBack := ::nClrSelectorHdBack 
          ELSE 
             nClrBack := ATail( ::aColumns ):nClrFootBack 
          ENDIF 
          nClrBack := ::GetValProp( nClrBack, nClrBack, nJ ) 
 ... 
 Где oBrw:lClrSelectorHdBack := .F. - вкл. работу от параметров цветов из объекта колонки 
  
 Еще правка в _Tbrowse(...) 
 FUNCTION _TBrowse( oParam, uAlias, cBrw, nY, nX, nW, nH ) 
  
    LOCAL oBrw, aTmp, aBrush, aHead, aField, aFoot, aColor 
    LOCAL cForm, lSpecHd, bInit, bEnd 
    LOCAL hForm  
    LOCAL i, j 
    DEFAULT oParam := oHmgData() 
    DEFAULT oParam:cForm := oParam:cFormName 
    DEFAULT oParam:cForm := _HMG_ThisFormName 
  
    cForm := oParam:cForm  
    hForm := GetFormHandle( cForm ) 
  
    DEFAULT oParam:lRowPosAtRec := .T. 
 ... 
    DEFINE TBROWSE &cBrw OBJ oBrw AT nY,nX WIDTH nW HEIGHT nH CELL ; 
        PARENT      &(cForm)                                 ; 
 ... 
 Еще маленькая добавка 
 CLASS TWndData 
 ... 
    METHOD Maximize() INLINE ShowWindow( ::nHandle, SW_MAXIMIZE ) 
    METHOD Minimize() INLINE ShowWindow( ::nHandle, SW_MINIMIZE ) 
    METHOD Restore()  INLINE ShowWindow( ::nHandle, SW_RESTORE ) 
 ... 
 

 
    ACCESS IsArr  INLINE AND( ::nDataType, DATATYPE_ARRAY ) != 0 
    ACCESS IsDbf  INLINE AND( ::nDataType, DATATYPE_RDD   ) != 0 
    ACCESS IsAdo  INLINE AND( ::nDataType, DATATYPE_ADO   ) != 0 
    ACCESS IsText INLINE AND( ::nDataType, DATATYPE_TEXT  ) != 0 
  
    ACCESS IsEdit INLINE ! Empty( ::aColumns[ ::nCell ]:oEdit ) 
    ACCESS Tsb    INLINE ::oWnd 
    ACCESS nAtPos INLINE iif( ::IsDbf, ( ::cAlias )->( RecNo() ), ::nAt ) 
    //ACCESS nAtPos INLINE iif( ::nDataType == DATATYPE_RDD, ( ::cAlias )->( RecNo() ), ::nAt ) 
    ACCESS IsRowPosAtRec INLINE ; 
 и далее по тексту где есть конструкции типа ::nDataType == DATATYPE_RDD или такие 
    IF ! EmptyAlias( ::cAlias ) .AND. AND( ::nDataType, DATATYPE_ARRAY ) == 0 .AND. ; 
       AND( ::nDataType, DATATYPE_TEXT ) == 0 .AND. AND( ::nDataType, DATATYPE_ADO ) == 0 
       ::lIsDbf := .T. 
    ENDIF 
 заменить 
 

 
 FUNCTION _TBrowse( oParam, uAlias, cBrw, nY, nX, nW, nH ) 
 ... 
    DEFAULT lSpecHd := .F. 
  
    DEFAULT oParam:bDblClick  := oParam:bOnDblClick                              
    DEFAULT oParam:bGotFocus  := oParam:bOnGotFocus                              
    DEFAULT oParam:bLostFocus := oParam:bOnLostFocus                             
    DEFAULT oParam:bChange    := oParam:bOnChange                                
  
    IF HB_ISCHAR( uAlias ) .and. ! "." $ uAlias ; dbSelectArea( uAlias ) 
    ENDIF 
  
    IF HB_ISARRAY( oParam:aFont ) 
 ... 
    DEFINE TBROWSE &cBrw OBJ oBrw AT nY,nX WIDTH nW HEIGHT nH CELL ; 
 ... 
          ON GOTFOCUS oParam:bOnGotFocus ;   
          ON CHANGE oParam:bOnChange ;       
          ON LOSTFOCUS oParam:bOnLostFocus ; 
          ON DBLCLICK oParam:bOnDblClick ;   
 ... 
 перенес 
       IF HB_ISBLOCK( oParam:bGotFocus ) 
          :bGotFocus := oParam:bGotFocus // :bGotFocus := {|ob,hCtlLost| ... } 
       ENDIF 
  
       IF HB_ISBLOCK( oParam:bLostFocus ) 
          :bGotFocus := oParam:bLostFocus // :bLostFocus := {|hCtlFocus,ob| ... } 
       ENDIF 
  
       IF HB_ISBLOCK( oParam:bChange ) 
          :bChange := oParam:bChange // :bChange := {|ob| ... } 
       ENDIF 
 после 
    END TBROWSE 
  
    IF HB_ISBLOCK( oParam:bGotFocus ) 
       oBrw:bGotFocus := oParam:bGotFocus      // :bGotFocus := {|ob,hCtlLost| ... } 
    ENDIF 
  
    IF HB_ISBLOCK( oParam:bLostFocus ) 
       oBrw:bGotFocus := oParam:bLostFocus     // :bLostFocus := {|hCtlFocus,ob| ... } 
    ENDIF 
  
    IF HB_ISBLOCK( oParam:bChange ) 
       oBrw:bChange := oParam:bChange         // :bChange := {|ob| ... } 
    ENDIF 
 добавил, что бы работал внутренний oParam:bEnd без изменений     
    IF HB_ISBLOCK( oParam:bAfter ) ; EVal( oParam:bAfter, oBrw, oParam )  
    ENDIF 
  
    IF HB_ISBLOCK( bEnd ) ; EVal( bEnd, oBrw, oParam ) 
 ... 
 

 
 FUNCTION _DefineTBrowse( ControlName, ParentFormName, nCol, nRow, nWidth, nHeight, ; 
 ... 
    IF ISCHAR ( ControlName ) .AND. ControlName == "0" 
       ControlName := HMG_GetUniqueName() 
    ENDIF 
  
    IF _IsControlDefined( ControlName, ParentFormName ) .AND. .NOT. _HMG_DialogInMemory 
 

 
 i_timer.ch 
 #command DEFINE TIMER <name> ; 
          [ <dummy1: OF, PARENT> <parent> ] ; 
          [ INTERVAL <interval> ] ; 
          [ ACTION <action> ] [ <lOnce: ONCE> ] [ ON INIT <bInit> ] ; 
    => ; 
    _DefineTimer ( <(name)>, <(parent)>, <interval>, <{action}>, <.lOnce.>, <bInit> ) 
 ... 
 h_timer.prg 
 FUNCTION _DefineTimer ( ControlName , ParentForm , Interval , ProcedureName , Once , bInit ) 
 ... 
    Do_ControlEventProcedure ( bInit, k ) 
  
 RETURN lSuccess 
  
 использовать 
       DEFINE TIMER &(cN) INTERVAL 700 ON INIT {|| This.Enabled := .F. } ; 
              ACTION {|| ... } 
  
 PS3 
 h_objects.prg 
 FUNCTION oDlu4Font( nFontSize, lDlu2Pix, nPrcW, nPrcH ) 
 ... 
    IF HB_ISCHAR( nFontSize ) 
       nFontSize := _GetFontSize(nFontSize, "Main") 
    ENDIF 
  
    DEFAULT lDlu2Pix := .T., nFontSize := 11 //, nPrcW := 100, nPrcH := 100 
 ... 
 использовать oDlu := oDlu4Font( "Normal" )