.... 
          _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