{1, "В офисе "} 
 {2, "отданы лично в руки "} 
 {3, "отданы Посыльному "}

FUNCTION Select2Array(xVal,aDim)  
    LOCAL nI, cRet := "none Dim" 
  
    FOR nI := 1 TO LEN(aDim) 
       IF xVal == aDim[nI,1] 
          cRet := aDim[nI,2] 
       ENDIF 
    NEXT 
  
    RETURN cRet

 
       oCol           := oBrw:GetColumn("Name_4")   
       oCol:Cargo     := oKeyData()  //  Get2DimCol4()     // получить массив для колонки 4    
       oCol:bDecode   := {|val,ob,nc,oc| nc:=ob, oc:Cargo:Get(val, val) }  // если для кода нет наименования, будет сам код 
       oCol:nAlign    := DT_CENTER    
       oCol:cPicture  := REPL("x",25)    
       oCol:lEdit     := .T.    
       oCol:bPrevEdit := {|val,ob,nc,oc| SelectWho(ob, oc:Cargo), WriteColum4(ob), ob:Setfocus(), FALSE }    
 // заполним из dbf коды и названия для колонки 
 USE ... ALIAS SPR NEW SHARED 
 dbEval({|| oCol:Cargo:Set(FIELD->KOD, FIELD->NAME) }) 
 USE 
 dbSelectArea(oBrw:cAlias) 
 ... 
  
 

 
 #xcommand @ <row>,<col> TBROWSE <name> ; 
 ... 
         [ <cur: DBLCURSOR, DOUBLE CURSOR, FIXED> ] ; 
         [ <emptyval: COLEMPTY,COLSEMPTY,EMPTYVALUE> ] ; 
     =>; 
 ... 
        [ <number> ], [ <aBrush> ], [ <aEdit> ], [ <Adjust> ], [ <.ladjust.> ], ; 
        [ <.emptyval.> ] ) 
  
 #xcommand DEFINE TBROWSE <name> ; 
 ... 
         [ <emptyval: COLEMPTY,COLSEMPTY,EMPTYVALUE> ] ; 
     =>; 
 ... 
        [ <number> ], [ <aBrush> ], [ <aEdit> ], [ <Adjust> ], [ <.ladjust.> ], ; 
        [ <.emptyval.> ] ) ;; 
        with object <name> 
 ... 
 #xcommand DEFINE TBROWSE <name> OBJ <obrw> ; 
 ... 
        [ <cur: DBLCURSOR, DOUBLE CURSOR, FIXED> ] ; 
        [ <emptyval: COLEMPTY,COLSEMPTY,EMPTYVALUE> ] ; 
     =>; 
 ... 
        [ <number> ], [ <aBrush> ], [ <aEdit> ], [ <Adjust> ], [ <.ladjust.> ], ; 
        [ <.emptyval.> ] ) ;; 
        with object <obrw> 
 ... 
 

 
 FUNCTION _DefineTBrowse ( ControlName, ParentFormName, nCol, nRow, nWidth, nHeight, ; 
 ... 
       lLoad, lDblCursor, aNames, aFooters, nColNumber, aBrush, aEdit, Adjust, ; 
       lAdjust, lEmptyValToChar ) 
 ... 
    ELSE 
       // BK 
       IF HB_ISARRAY( uAlias ) 
          aArray := uAlias 
          uAlias := NIL 
       ENDIF 
       IF HB_ISLOGICAL(aEdit) 
 ... 
       // BK 
       IF HB_ISARRAY(aArray) 
          oBrw:SetArrayTo( aArray, {hFontHead, hFontFoot} , aHeaders, aWidths, aFooters, aPicture, aJust, aNames ) 
       ELSE 
          If ! empty(hFontHead) ; oBrw:hFontHead := hFontHead 
          EndIf 
          If ! empty(hFontFoot) ; oBrw:hFontFoot := hFontFoot 
          EndIf 
       ENDIF 
  
       IF HB_ISARRAY(aBrush) .and. Len(aBrush) > 2 
 ... 
       IF ( nColums := Len( oBrw:aColumns ) ) > 0                       /* BK  18.05.2015 */ 
 ... 
          // BK 
          n := nColums 
  
          IF ! HB_ISARRAY( aArray ) 
             IF HB_ISARRAY(aNames) 
                j := Min(Len(aNames), n) 
                FOR t := 1 TO j 
                   IF ! Empty(aNames[ t ]) .and. HB_ISCHAR(aNames[ t ]) 
                      oBrw:aColumns[ t ]:cName := aNames[ t ] 
                   ENDIF 
                NEXT 
             ENDIF 
  
             IF HB_ISLOGICAL(aFooters) .and. aFooters 
                aFooters := Array( n ) 
                aFill( aFooters, " " ) 
             ENDIF 
  
             IF HB_ISARRAY(aFooters) 
                j := Min( Len(aFooters), n ) 
                FOR t := 1 TO j 
                   IF aFooters[ t ] != NIL 
                      If HB_ISCHAR( aFooters[ t ] ) .and. ";" $ aFooters[ t ] 
                         aFooters[ t ] := StrTran( aFooters[ t ], ";", Chr(13) ) 
                      EndIf 
                      oBrw:aColumns[ t ]:cFooting := aFooters[ t ] 
                   ENDIF 
                NEXT 
                oBrw:lDrawFooters := .T. 
                oBrw:lFooting     := .T. 
                oBrw:nHeightFoot  := oBrw:nHeightCell 
             ENDIF 
          ENDIF 
  
          IF HB_ISARRAY(aEdit) 
 ... 
          IF ! Empty(lDblCursor) 
             AEval( oBrw:aColumns, {|oCol| oCol:lFixLite := .T. } ) 
          ENDIF 
          IF ! empty(lEmptyValToChar) 
             AEval( oBrw:aColumns, {| oCol| oCol:lEmptyValToChar := .T. } ) 
          ENDIF 
  
          nW := 0 
          IF nColNumber != NIL 
             IF HB_ISLOGICAL(nColNumber) 
                nColNumber := iif( nColNumber, 1, NIL ) 
             ELSEIF HB_ISARRAY(nColNumber) 
                IF Len(nColNumber) > 1 
                   nW         := nColNumber[2] 
                   nColNumber := nColNumber[1] 
                ELSE 
                   nColNumber := 1 
                ENDIF 
             ENDIF 
          ENDIF 
  
          IF HB_ISNUMERIC(nColNumber) 
             nColNumber := iif( nColNumber > 0 .and. nColNumber <= n, nColNumber, 1 ) 
             IF oBrw:lIsDbf 
  
                DEFINE COLUMN oCol  DATA      'hb_ntos(iif( IndexOrd() > 0, ORDKEYNO(), RecNo() ))' ; 
                                    HEADER    '#'                                                   ; 
                                    FOOTER    ' '                                                   ; 
                                    ALIGN     1, 1, 1                                               ; 
                                    WIDTH     80                                                    ; 
                                    PICTURE   '9999999'                                             ; 
                                    MOVE      0                                                     ; 
                                    DBLCURSOR                                                       ; 
                                    NAME      ORDKEYNO 
  
                oCol:lEdit           := .F. 
                oCol:cAlias          := oBrw:cAlias 
                oCol:cFooting        := { |nc,ob| nc := ob:nLen, iif( Empty(nc), '', hb_ntos(nc) ) } 
 #ifndef __XHARBOUR__ 
                oCol:cData           := 'hb_macroblock("'+oCol:cField+'")' 
                oCol:bData           :=  hb_macroblock(   oCol:cField   ) 
 #else 
                oCol:cData           := '{|| '+oCol:cField+'}' 
                oCol:bData           := &( '{|| '+oCol:cField+'}' ) 
 #endif 
             ELSEIF oBrw:lIsArr 
  
                DEFINE COLUMN oCol  DATA      {|| NIL }                         ; 
                                    HEADER    '#'                               ; 
                                    FOOTER    ' '                               ; 
                                    ALIGN     1, 1, 1                           ; 
                                    WIDTH     80                                ; 
                                    PICTURE   '99999'                           ; 
                                    MOVE      0                                 ; 
                                    DBLCURSOR                                   ; 
                                    NAME      ARRAYNO 
  
                oCol:cFooting := { |nc,ob| nc := ob:nLen, iif( Empty(nc), '', hb_ntos(nc) ) } 
                oCol:bValue   := { |xx,ob| xx := ob, hb_ntos( ob:nAt ) } 
  
             ENDIF 
  
             oCol:lEmptyValToChar := .T. 
             oCol:cFieldTyp       := 'N' 
             oCol:nFieldLen       := 10 
             oCol:nFieldDec       :=  0 
  
             oBrw:InsColumn( nColNumber, oCol ) 
  
             oBrw:nCell           := nColNumber + 1 
             oBrw:nFreeze         := nColNumber 
             oBrw:lLockFreeze     := .T. 
  
             IF HB_ISNUMERIC(nW) .and. nW > 0 
 ... 
 

 
 #include "minigui.ch" 
 #include "TSBrowse.ch" 
  
  
 PROCEDURE MAIN 
  
    LOCAL oBrw, aDatos, aArray, aHead, aSize, aFoot, aPict, aAlign, aName 
    LOCAL nY, nX, nW, nH 
  
    SET DECIMALS TO 4 
    SET DATE     TO GERMAN 
    SET EPOCH    TO 2000 
    SET CENTURY  ON 
    SET EXACT    ON 
  
    SET FONT TO 'Arial', 11 
  
    DEFINE FONT Norm FONTNAME _HMG_DefaultFontName SIZE _HMG_DefaultFontSize 
    DEFINE FONT Bold FONTNAME _HMG_DefaultFontName SIZE _HMG_DefaultFontSize BOLD 
  
    DEFINE WINDOW test ; 
       TITLE "SetArray For Report Demo" ; 
       MAIN ; 
       NOMAXIMIZE NOSIZE 
  
       DEFINE STATUSBAR  
          STATUSITEM "0"                 // WIDTH 0 FONTCOLOR BLACK 
          STATUSITEM "Item 1" WIDTH 230  // FONTCOLOR BLACK 
          STATUSITEM "Item 2" WIDTH 230  // FONTCOLOR BLACK 
          STATUSITEM "Item 3" WIDTH 230  // FONTCOLOR BLACK 
       END STATUSBAR 
      
       nY := 1 + iif( IsVistaOrLater(), GetBorderWidth ()/2, 0 ) 
       nX := 1 + iif( IsVistaOrLater(), GetBorderHeight()/2, 0 ) 
       nW := test.WIDTH  - 2 * GetBorderWidth() 
       nH := test.HEIGHT - 2 * GetBorderHeight() -    ; 
             GetTitleHeight() - test.StatusBar.Height 
      
       aDatos   := CreateDatos() 
      
       aArray   := aDatos[ 1 ] 
       aHead    := aDatos[ 2 ] 
       aSize    := aDatos[ 3 ] 
       aFoot    := aDatos[ 4 ] 
       aPict    := aDatos[ 5 ] 
       aAlign   := aDatos[ 6 ] 
       aName    := aDatos[ 7 ] 
      
       DEFINE TBROWSE oBrw ; 
              AT nY, nX ALIAS aArray WIDTH nW HEIGHT nH CELL ; 
              FONT       { "Norm", "Bold", "Bold" }          ; 
              BRUSH      { 255, 255, 240 }                   ; 
              HEADERS    aHead                               ; 
              COLSIZES   aSize                               ; 
              PICTURE    aPict                               ; 
              JUSTIFY    aAlign                              ; 
              COLNAMES   aName                               ; 
              COLNUMBER  { 1, 40 }                           ; 
              FOOTERS    aFoot                               ; 
              FIXED ADJUST COLEMPTY                          ; 
              ENUMERATOR  
      
              mySetTsb( oBrw ) 
              myColorTsb( oBrw ) 
      
       END TBROWSE 
      
       oBrw:SetNoHoles() 
  
    END WINDOW 
  
    DoMethod( "test", "Activate" ) 
  
 RETURN 
  
 FUNCTION mySetTsb( oBrw ) 
    WITH OBJECT oBrw 
       :nColOrder    := 0 
       :lNoChangeOrd := .T. 
       :nWheelLines  := 1 
       :lNoGrayBar   := .F. 
       :lNoLiteBar   := .F. 
       :lNoResetPos  := .F. 
       :lNoHScroll   := .T. 
       :lNoPopUp     := .T. 
    END WITH 
 RETURN Nil 
  
 FUNCTION myColorTsb( oBrw ) 
    WITH OBJECT oBrw 
       :nClrLine              := RGB(180,180,180) // COLOR_GRID 
       :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) ) } } ) 
    END WITH 
 RETURN Nil 
  
 * ====================================================================== 
  
 STATIC FUNCTION CreateDatos() 
  
    LOCAL i, k := 1000, aDatos, aHead, aSize, aFoot, aPict, aAlign, aName 
  
    aDatos := Array( k ) 
    FOR i := 1 TO k 
       aDatos[ i ] := { " ", ;                         // 1 
          i, ;                                         // 2 
          ntoc( i ) + "_123", ;                        // 3 
          Date() + i, ;                                // 4 
          PadR( "Test line - " + ntoc( i ), 20 ), ;    // 5 
          Round( ( 10000 -i ) * i / 3, 2 ), ;          // 6 
          100.00 * i, ;                                // 7 
          0.12, ;                                      // 8 
          Round( 100.00 * i * 0.12, 2 ), ;             // 9 
          Round( 1234567.00 / i, 3 ), ;                // 10 
          PadR( "Line " + StrZero( i, 5 ), 20 ), ;     // 11 
          Date(), ;                                    // 12 
          Time(), ;                                    // 13 
          i % 2 == 0 }                                 // 14 
    NEXT 
  
    aHead  := AClone( aDatos[ 1 ] ) 
    // AEval(aHead, {|x,n| aHead[ n ] := "Head_" + hb_ntos(n) }) 
    AEval( aHead, {| x, n| aHead[ n ] := "Head" + hb_ntos( n ) + ; 
       iif( n % 2 == 0, CRLF + "SubHead" + hb_ntos( n ), "" ) } ) 
  
    aFoot  := Array( Len( aDatos[ 1 ] ) ) 
    AEval( aFoot, {| x, n| aFoot[ n ] := n } ) 
    // aFoot  := .T.                        // яюфэюцшх хёЄ№ ё яєёЄ√ьш чэрўхэш ьш 
  
    aPict     := Array( Len( aDatos[ 1 ] ) )   // ьюцэю эх чрфртрЄ№, ЇюЁьшЁє■Єё  
    aPict[ 10 ] := "99999999999.999"           // ртЄюьрЄюь фы  C,N яю ьрї чэрўхэш■ 
  
    aSize     := Array( Len( aDatos[ 1 ] ) )   // ьюцэю эх чрфртрЄ№, ЇюЁьшЁє■Єё  
    aSize[ 10 ] := aPict[ 10 ]                 // ртЄюьрЄюь яю ьрї чэрўхэш■ т ъюыюэъх 
  
    aAlign    := Array( Len( aDatos[ 1 ] ) )   // Єшя яюы  C   - DT_LEFT 
    aAlign[ 2 ] := DT_CENTER                   // D,L - DT_CENTER 
                                               // N   - DT_RIGHT 
  
    aName     := Array( Len( aDatos[ 1 ] ) ) 
    AEval( aName, {| x, n| aName[ n ] := "MyName_" + hb_ntos( n ) } ) 
  
 RETURN { aDatos, aHead, aSize, aFoot, aPict, aAlign, aName } 
 

 
        [ <emptyval: COLEMPTY,COLSEMPTY,EMPTYVALUE> ] ; 
        [ <gotfocusel: GOTFOCUSSELECT,GOTFOCUSELECT> ] ; 
 ... 
        [ <.emptyval.> ], [ <.gotfocusel.> ] ) ... 
 ... 
 

 
 FUNCTION _DefineTBrowse ( ControlName, ParentFormName, nCol, nRow, nWidth, nHeight, ; 
 ... 
       lAdjust, lEmptyValToChar, lOnGotFocusSelect ) 
 ... 
          IF ! empty(lEmptyValToChar) 
             AEval( oBrw:aColumns, {| oCol| oCol:lEmptyValToChar := .T. } ) 
          ENDIF 
          IF ! empty(lOnGotFocusSelect) 
             AEval( oBrw:aColumns, {| oCol| oCol:lOnGotFocusSelect := .T. } ) 
          ENDIF 
  
          nW := 0 
 ... 
 

 
       DEFINE TBROWSE oBrw                                   ; 
              AT nY, nX ALIAS aArray WIDTH nW HEIGHT nH CELL ; 
              FONT       { "Norm", "Bold", "Bold" }          ; 
              BRUSH      { 255, 255, 240 }                   ; 
              HEADERS    aHead                               ; 
              COLSIZES   aSize                               ; 
              PICTURE    aPict                               ; 
              JUSTIFY    aAlign                              ; 
              COLNAMES   aName                               ; 
              COLNUMBER  { 1, 40 }                           ; 
              FOOTERS    aFoot                               ; 
              FIXED ADJUST COLEMPTY                          ; 
              ENUMERATOR   EDIT                              ; 
              GOTFOCUSSELECT 
 

 
 FUNCTION _wPost( nEvent, nIndex, xParam ) 
 ... 
       ENDIF 
    ELSEIF HB_ISCHAR( nIndex ) 
       oWnd   := _WindowObj( nIndex ) 
       nIndex := NIL 
    ELSE 
       oWnd := _WindowObj( _HMG_THISFORMNAME ) 
    ENDIF 
 ... 
 FUNCTION _wSend( nEvent, nIndex, xParam ) 
 ... 
       ENDIF 
    ELSEIF HB_ISCHAR( nIndex ) 
       oWnd   := _WindowObj( nIndex ) 
       nIndex := NIL 
    ELSE 
       oWnd := _WindowObj( _HMG_THISFORMNAME ) 
    ENDIF 
 ... 
 

 
 *-----------------------------------------------------------------------------* 
 FUNCTION _SetWindowThis ( i ) 
 *-----------------------------------------------------------------------------* 
  
    IF Empty( i ) 
  
       _PushEventInfo() 
  
    ELSE 
  
       IF     HB_ISCHAR( i ) 
          i := GetFormIndex( i ) 
       ELSEIF HB_ISOBJECT( i ) 
          i := iif( i:ClassName == 'TSBROWSE', GetFormIndex( i:cParentWnd ), i:Index ) 
       ENDIF 
  
       _PushEventInfo() 
  
       _HMG_ThisFormIndex   := i 
       _HMG_ThisEventType   := '' 
       _HMG_ThisType        := 'W' 
       _HMG_ThisIndex       := i 
       _HMG_ThisFormName    := _HMG_aFormNames [ _HMG_ThisFormIndex ] 
       _HMG_ThisControlName :=  "" 
  
    ENDIF 
  
 RETURN NIL 
  
  Использовать например так 
 ... 
 	IF !IsWindowActive( Form_Client ) 
  
 		DEFINE WINDOW Form_Client ; 
 ... 
 	ELSE 
 		// !!! так сейчас пишем 
 		Form_Client.WIDTH  := nWinWidth 
 		Form_Client.HEIGHT := nWinHeight 
 		Form_Client.Label_0.Value := cVal 
 		CENTER WINDOW Form_Client 
  
 		// !!! можем так делать ( это маленький кусочек ) 
                _SetWindowThis( "Form_Client" ) 
 		This.WIDTH  := nWinWidth 
 		This.HEIGHT := nWinHeight 
 		This.Label_0.Value := cVal 
 		This.CENTER 
                _SetWindowThis() 
  
 	ENDIF 
 

 
     IF Empty( i )  
  
 	 _PopEventInfo() 
  
     ELSE  
 

 
 FUNCTION _SetThisFormInfo ( i )		 // стек значений переменных _HMG_This... 
  LOCAL l := .T.                                 // BK  18.05.2015 
  
  IF empty( i ) 
  
 	 _PopEventInfo() 
  
  ELSE 
 	  IF	  HB_ISCHAR( i ) 
 		  i := GetFormIndex( i ) 
 		  l := .F. 
 	  ELSEIF HB_ISOBJECT( i ) 
 		  i := iif( i:ClassName == 'TSBROWSE', GetFormIndex( i:cParentWnd ), i:Index ) 
 		  l := .F. 
 	  ENDIF 
  
 	 _PushEventInfo() 
  
 	 _HMG_ThisEventType		 := iif( l, 'DEFINE_WINDOW', '' ) 
 	 _HMG_ThisFormIndex		 := i 
 	 _HMG_ThisType				:= _HMG_aFormType  [ i ] 
 	 _HMG_ThisIndex			  := i 
 	 _HMG_ThisFormName		  := _HMG_aFormNames [ i ] 
 	 _HMG_ThisControlName	  :=  "" 
  
  ENDIF 
  
 RETURN NIL 
 

 
 ... 
 	LOCAL oThis, cForm := "Form_Client" 
 ... 
 	IF !_IsWindowActive( cForm ) 
  
 		DEFINE WINDOW &cForm		; 
 ... 
 	ELSE 
  
 		SET WINDOW THIS TO cForm 
  
 		oThis           := This.Object 
 		This.WIDTH  := nWinWidth 
 		This.HEIGHT := nWinHeight 
 		This.Label_0.Value := cVal 
 		This.CENTER 
  
 		SET WINDOW THIS TO 
  
 	ENDIF 
 ... 
 

 
 METHOD LoadFields( lEditable, aColSel, cAlsSel, aNameSel, aHeadSel ) CLASS TSBrowse 
 ... 
 		cBlock := 'FieldWBlock("' + aStru[ nE, 1 ] + '",Select("' + cAlias + '"))' 
 		::AddColumn( TSColumn():New( cHeading, FieldWBlock( aStru[ nE, 1 ], Select( cAlias ) ),cPicture, ; 
 											  { ::nClrText, ::nClrPane }, { nAlign, DT_CENTER }, nSize,, lEditable,,, cOrder,,,, ; 
 											  5,,,, Self, cBlock ) ) 
 		IF ATail( ::aColSizes ) == NIL 
                    ::aColSizes[ Len( ::aColSizes ) ] := nSize 
                 ENDIF 
  
 		cName := ( cAlias )->( FieldName( nE ) ) 
 ... 
 

 
 METHOD AddColumn( oColumn ) CLASS TSBrowse 
 ... 
 	If Len( ::aColSizes ) < Len( ::aColumns ) 
            AAdd( ::aColSizes, oColumn:nWidth ) 
 	EndIf 
  
         If ATail( ::aColSizes ) == NIL 
            ::aColSizes[ Len( ::aColSizes ) ] := oColumn:nWidth 
         ENDIF 
  
 	If ::aPostList != Nil // from ComboWBlock function 
 ... 
 

aHead := NIL 
 ?v aHead

 
 #command ?a [<arr>] => If( <arr> == NIL, , aEval( <arr>, { |xv, ne| _LogFile( (ne==1), ne, xv ), _LogFile() } ) ) 
 #command ?v [<arr>] => If( <arr> == NIL, , aEval( <arr>, { |xv, ne| _LogFile( (ne==1), ne, iif( Valtype(xv) == "A", hb_valtoexp(xv), xv ) ), _LogFile() } ) ) 
 

    ?v aHead

 
 METHOD LoadFields( lEditable, aColSel, cAlsSel, aNameSel, aHeadSel ) CLASS TSBrowse 
 ... 
 	Local cTmp, cHead, hFontH 
 ... 
 			hFont := iif( ::hFont != Nil, ::hFont, 0 ) 
 			hFontH := iif( ::hFontHead != Nil, ::hFontHead, ::hFont ) 
  
 			If cType == "C" 
 ... 
 			nSize := Max( GetTextWidth( 0, Replicate( "B", Len( cHeading )+1 ), hFontH ), nSize ) 
 			nSize += iif( ! Empty( cOrder ), 14, 0 ) 
  
 		ElseIf ValType( ::aColSizes ) == "A" .and. ! Empty( ::aColSizes ) .and. n <= Len( ::aColSizes ) 
 ... 
 

 
 METHOD DrawHeaders( lFooters ) CLASS TSBrowse 
 ... 
 	Local nDeltaLen, uTmp 
 ... 
 		IF ::lDrawSpecHd 
 ... 
 			if ::lEnum 
 				cHeading := hb_ntos( nJ - iif( ::lSelector, 1, 0 ) ) 
 				IF ! empty( oColumn:cSpcHeading ) 
 					uTmp := iif( Valtype( oColumn:cSpcHeading ) == "B", Eval( oColumn:cSpcHeading, nJ, Self ), oColumn:cSpcHeading ) 
 					IF HB_ISNUMERIC ( uTmp ) ; cHeading := hb_ntos( uTmp ) 
 					ELSEIF HB_ISCHAR( uTmp ) ; cHeading := uTmp 
 					ENDIF 
 				ENDIF 
 				if nI == nBegin .and. ::lSelector .or. nI == nLastCol 
 					cHeading := "" 
 				endif 
 			else 
 ... 
  
 Применение 
 ... 
              mySetTsb( oBrw ) 
              myColorTsb( oBrw )        // цвета на таблицу 
              myColorTsbElect( oBrw )   // цвета избранные 
              myDbfDelColTsb( oBrw ) 
              myEnumTsb( oBrw ) 
              mySet2Tsb( oBrw ) 
  
              :bOnEscape := {|ob| DoMethod(ob:cParentWnd, "Release") }  // выход по ESC 
  
       END TBROWSE ON END {|ob| ob:SetNoHoles(), ob:SetFocus() } 
 ... 
 STATIC FUNCTION myEnumTsb( oBrw ) 
    LOCAL oCol, nCnt := 0 
  
    FOR EACH oCol IN oBrw:aColumns 
        oCol:cSpcHeading := NIL 
        IF oCol:lVisible 
           oCol:cSpcHeading := hb_ntos( ++nCnt ) 
        ENDIF 
    NEXT 
  
 RETURN NIL 
 ... 
 

 
 CLASS TSColumn 
    DATA oCell                                    // TSBcell object 
 ... 
 это только места обозначены 
 CLASS TSBcell 
 ... 
 CLASS TSBrowse FROM TControl 
 	DATA	lDrawLine	  AS LOGICAL INIT .T.			 // flag for cells row drawing 
 ... 
 METHOD DrawLine( xRow, lDrawCell ) CLASS TSBrowse 
 ... 
 		If ::bOnDrawLine != Nil 
 			Eval( ::bOnDrawLine, Self ) 
 		EndIf 
  
 		IF ! ::lDrawLine 
 			nBegin := 1 
 			nLastCol := ::nColCount() 
 		ENDIF 
  
 		For nI := nBegin To nLastCol 
  
 			If nStartCol >= nMaxWidth .and. ::lDrawLine 
 				Exit 
 			EndIf 
 ... 
 			IF ::lDrawLine 
  
 				oColumn:oCell := NIL 
  
 				TSDrawCell(						  hWnd, ; // 1 
 ... 
 			ELSE 
  
 				oColumn:oCell := TSBcell():New() 
 ... 
 			ENDIF 
 ... 
 METHOD DrawSelect( xRow, lDrawCell ) CLASS TSBrowse 
 ... 
 		nBegin	:= Min( iif( ::nColPos <= ::nFreeze, ( ::nColPos := ::nFreeze + 1, ::nColPos - ::nFreeze ), ; 
 							  ::nColPos - ::nFreeze ), nLastCol ) 
  
 		IF ! ::lDrawLine 
 			nBegin := 1 
 			nLastCol := ::nColCount() 
 		ENDIF 
  
 		For nI := nBegin To nLastCol 
  
 			If nStartCol >= nMaxWidth .and. ::lDrawLine 
 				Exit 
 			EndIf 
 ... 
 			If lDrawCell .and. ::lDrawLine 
  
 				lDraw := TSDrawCell(	hWnd, ; //  1 
 ... 
 			Else 
  
 				 lDraw := .T. 
  
 				 IF ! ::lDrawLine 
  
 					 oColumn:oCell := TSBcell():New() 
 ... 
 				 ENDIF 
 ... 
 

 
 STATIC FUNCTION my0( oBrw ) 
    LOCAL nAt, nCol, oCol, oCel 
    WITH OBJECT oBrw 
    :GoTop() 
    :DrawSelect() 
 ? "-", :lDrawLine, :nRowPos, :aColumns[2]:oCell, :aDrawCols 
    :lDrawLine := .F. 
    :GoTop() 
    :DrawSelect() 
 ? "#", :lDrawLine, :nRowPos, :aColumns[2]:oCell, :aDrawCols 
    :DrawLine() 
  
    FOR nAt := 1 TO :nLen 
        ?  nAt, :aColumns[2]:oCell 
        FOR nCol := 1 TO :nColCount() 
            oCol := :aColumns[ nCol ] 
            oCel := oCol:oCell 
            ? ".", oCol:lVisible, nCol, oCel:nStartCol, oCol:cName, oCel:nAlign, oCel:nClrFore, oCel:nClrBack, oCel:uData 
        NEXT 
        :GoDown() 
    NEXT 
 ? 
    :lDrawLine := .T. 
    :Reset() 
    END WITH 
  
 RETURN Nil 
  
 Запуск 
 demo5.exe        // работа с массивом 
 demo5.exe *      // работа с emploee.dbf 
 demo7.exe        // работа с AbonItogo.dbf (файл и раскраска от Андрея) 
 

 
 nRec := (oBrw:cAlias)->(RecNo()) 
 while !(oBrw:cAlias)->( Eof()) 
          for n := 1 To Len( oBrw:aColumns ) 
               Eval( oBrw:aColumns[n]:bData) 
          end 
         (oBrw:cAlias)->(dbSkip(1)) 
 end 
 (oBrw:cAlias)->(dbGoTo(nRec)) 
 

 
 METHOD DrawLine( xRow, lDrawCell ) CLASS TSBrowse 
 ... 
 	Default xRow := iif( ::lDrawHeaders, Max( 1, nRowPos ), nRowPos ), lDrawCell := ::lDrawLine 
 ... 
 		If ::bOnDrawLine != Nil 
 			Eval( ::bOnDrawLine, Self ) 
 		EndIf 
  
 		IF ! lDrawCell 
 			nBegin := 1 
 			nLastCol := ::nColCount() 
 		ENDIF 
  
 		For nI := nBegin To nLastCol 
  
 			If nStartCol >= nMaxWidth .and. lDrawCell 
 				Exit 
 			EndIf 
 ... 
 			IF nAlign != DT_CENTER .and. ::nCellMarginLR != NIL 
 				uData := ::CellMarginLeftRight( nJ, uData, oColumn, nAlign, lMultiLine, 0 ) 
 			ENDIF 
  
 			IF lDrawCell 
  
 				oColumn:oCell := NIL 
  
 				TSDrawCell(						  hWnd, ; // 1 
 ... 
 

 
 FUNCTION _DefineTBrowse( ControlName, ParentFormName, nCol, nRow, nWidth, nHeight, ; 
 ... 
 				oBrw:InsColumn( nColNumber, oCol ) 
  
 				IF oBrw:lDrawFooters 
 					oBrw:aColumns[ nColNumber ]:cFooting := "" 
 				ENDIF 
  
 				oBrw:nCell			  := nColNumber + 1 
 				oBrw:nFreeze			:= nColNumber 
 				oBrw:lLockFreeze	  := .T. 
 ... 
 

 
       :Setcolor( { 3}, { CLR_WHITE                        } ) // 3 , текста шапки таблицы  
       :SetColor( { 4}, { { || { CLR_BLACK, CLR_GRAY   } } } ) // 4 , фона шапка таблицы 
       :SetColor( {16}, { { || { CLR_BLACK, CLR_GRAY   } } } ) // 16, фона спецхидер                                   
       :SetColor( {17}, { { || CLR_YELLOW                } } ) // 17, текста спецхидер

 
              mySetTsb( oBrw )             // настройки таблицы 
              myColorTsb( oBrw )           // цвета на таблицу 
              myColorTsbElect( oBrw )      // цвета избранные 
              mySumTsb ( oBrw )            // суммирование колонок таблицы 
              myDbfDelColTsb( oBrw )       // убрать колонки из отображения 
              mySupHdTsb( oBrw, aSupHd )   // SuperHeader 
              myEnumTsb( oBrw )            // ENUMERATOR по порядку 
              mySet2Tsb( oBrw )            // настройки таблицы 
 

 
 ... 
 *-----------------------------------------------------------------------------* 
 FUNCTION AlertExclamation ( Message, Title, Icon, nSize, aColors, lTopMost, bInit, lNoPlay ) 
 *-----------------------------------------------------------------------------* 
    LOCAL nWaitSec 
  
    IF ISNUMERIC( Title ) 
       nWaitSec := Title 
    ENDIF 
  
    IF Empty( lNoPlay ) ; PlayExclamation() 
    ENDIF                  
  
 RETURN _Alert( Message, nWaitSec, hb_defaultValue( Title, _HMG_MESSAGE [10] ), , , Icon, nSize, aColors, lTopMost, bInit ) 
  
 *-----------------------------------------------------------------------------* 
 FUNCTION AlertInfo ( Message, Title, Icon, nSize, aColors, lTopMost, bInit, lNoPlay ) 
 *-----------------------------------------------------------------------------* 
    LOCAL nWaitSec 
  
    IF ISNUMERIC( Title ) 
       nWaitSec := Title 
    ENDIF 
  
    IF Empty( lNoPlay ) ; PlayAsterisk() 
    ENDIF 
  
 RETURN _Alert( Message, nWaitSec, hb_defaultValue( Title, _HMG_MESSAGE [11] ), ICON_INFORMATION, , Icon, nSize, aColors, lTopMost, bInit ) 
  
 *-----------------------------------------------------------------------------* 
 FUNCTION AlertStop ( Message, Title, Icon, nSize, aColors, lTopMost, bInit, lNoPlay ) 
 *-----------------------------------------------------------------------------* 
    LOCAL nWaitSec 
  
    IF ISNUMERIC( Title ) 
       nWaitSec := Title 
    ENDIF 
  
    IF Empty( lNoPlay ) ; PlayHand() 
    ENDIF                  
  
 RETURN _Alert( Message, nWaitSec, hb_defaultValue( Title, _HMG_MESSAGE [12] ), ICON_STOP, , Icon, nSize, aColors, lTopMost, bInit ) 
 ... 
 

 
    DATA oCellHead                                // TSBcell object Header 
    DATA oCellEnum                                // TSBcell object Enumerator 
    DATA oCellFoot                                // TSBcell object Footer 
    DATA oCell                                    // TSBcell object 
 

 
 CLASS TSBrowse FROM TControl 
 ... 
 	ACCESS IsEdit		 INLINE ! Empty( ::aColumns[ ::nCell ]:oEdit )  // SergKis addition 
        ACCESS Tsb               INLINE ::oWnd 
 ... 
 FUNCTION GetProperty ( Arg1 , Arg2 , Arg3 , Arg4 , Arg5 , Arg6 , Arg7 ) 
 ... 
 #ifdef _OBJECT_ 
       CASE Arg3 == "OBJECT" 
  
            IF _HMG_lOOPEnabled 
               RetVal := _ControlObj ( Arg2 , Arg1 ) 
               IF HB_ISOBJECT( RetVal ) .and. _HMG_aControlType[ RetVal:Index ] == "TBROWSE" 
                  RetVal := _HMG_aControlIds[ RetVal:Index ] 
               ENDIF 
            ELSEIF ( ix := GetControlIndex ( Arg2 , Arg1 ) ) > 0 
               IF _HMG_aControlType[ ix ] == "TBROWSE" 
                  RetVal := _HMG_aControlIds[ ix ] 
               ENDIF 
            ENDIF 
 #endif 
 ... 
 Синим цветом, наверно, надо убрать 
 Это даст возможность получать объект TSBROWSE, как SET OOP ON, так и SET OOP OFF 
 ? (This.oBrw.Object):ClassName       // SET OOP OFF 
 ? (This.oBrw.Object):Tsb:ClassName   // SET OOP ON\OFF 
 

 
 ... 
 #xtranslate This . <c> . <p:Names>  => HMG_GetFormControls ( _HMG_THISFORMNAME , <(c)> )  
 #xtranslate This . <c> . <p:ClientWidth>  => _GetClientRect ( GetControlHandle ( <(c)> , _HMG_THISFORMNAME ) ) \[3] 
 

 
    AlertInfo( hb_memoread(_SetGetLogFile()), "INFO", , 0, , , ; 
               {||ac,cn|     // {|ao,cn| 
                an := This.EditBox.Names // ao := (This.Object):GetObj4Type("EDITBOX") 
                If HB_ISARRAY(an) .and. Len(an) == 1 // If HB_ISARRAY(ao) .and. Len(ao) == 1 
                   cn := an[1] // ao[1]:Name 
                   This.Width  := test.ClientWidth  * 0.95 
                   This.(cn).Row := 10 
                   This.(cn).Col := 10 
                   This.(cn).Width  := This.ClientWidth - 10 * 2 
                   This.(cn).Height := This.(cn).Height + 10 * 2 + 10 
                   This.Center 
                EndIf 
                Return Nil 
               } , .T. )     // .T. - lNoPlay 
 

 
 #xtranslate ThisWindow . <p:Names,Controls>  => HMG_GetFormControls ( _HMG_THISFORMNAME , "ALL" )  
 ... 
 #xtranslate This . <p:Names,Controls>        => HMG_GetFormControls ( _HMG_THISFORMNAME , "ALL" )  
 ... 
 

 
 METHOD AddColumn( oColumn ) CLASS TSBrowse 
 ... 
 	If ATail( ::aColSizes ) == NIL .and. Len( ::aColSizes ) > 0  
 		::aColSizes[ Len( ::aColSizes ) ] := oColumn:nWidth 
 	ENDIF 
  
 	If ::aPostList != Nil // from ComboWBlock function 
 ... 
 

 
 STATIC s_nMaxLineas := 20 
 STATIC s_lMaxWidth  := .F. 
  
 *-----------------------------------------------------------------------------* 
 FUNCTION HMG_Alert_MaxLines( nMaxLineas, lMaxWidth ) 
 *-----------------------------------------------------------------------------* 
 	IF HB_ISNUMERIC(nMaxLineas ) .and. nMaxLineas > 0 
 		s_nMaxLineas := nMaxLineas 
 	ENDIF 
 	IF HB_ISLOGICAL( lMaxWidth ) 
 		s_lMaxWidth := lMaxWidth 
 	ENDIF 
 RETURN s_nMaxLineas 
 ... 
 STATIC FUNCTION FillDlg( cMsg, aOptions, nLineas, cIcoFile, nIcoSize, aBtnColors, bBlock, lClosable, cFont, nMaxLen ) 
 ... 
 	LOCAL nMaxLineas := HMG_Alert_MaxLines() 
 	LOCAL lMaxWidth  := s_lMaxWidth 
 	LOCAL nMaxWidth  := 0 
 ... 
 	nChrHeight := GetTextHeight( hDC, aOptions[ 1 ], hDlgFont ) + nVMARGIN_BUTTON / 2 
  
 	// calculate the maximum width of the lines 
 	IF lMaxWidth 
 		nMaxWidth := GetFontWidth ( cFont, nMaxLen ) 
 	ENDIF 
  
 	FOR n := 1 TO nLineas 
 ... 
 

 
    DEFINE FONT DlgFont FONTNAME "DejaVu Sans Mono" SIZE 16 
  
    SET MSGALERT FONTCOLOR TO BLACK 
    SET MSGALERT BACKCOLOR TO {248,209,211} 
  
    cMsg      := "" 
    aButton   := { "&Continue" } 
    cTitle    := "Multiline Error Message" 
    cIcoRes   := "Stop64.ico" 
    nIcoSize  := 64 
    aBtnColor := { {235,117,121} } 
  
    FOR nI := 1 TO 99 
       cMsg  += "Error: " + HB_NtoS( nI ) + " simple error message.;" 
    NEXT 
  
    HMG_Alert_MaxLines( 15 ) 
  
    HMG_Alert( cMsg, aButton, cTitle, Nil, cIcoRes, nIcoSize, aBtnColor ) 
  
    RELEASE FONT DlgFont 
 

 
 STATIC FUNCTION FillDlg( cMsg, aOptions, nLineas, cIcoFile, nIcoSize, aBtnColors, bBlock, lClosable, cFont, nMaxLen ) 
 ... 
 	// calculate the maximum width of the lines 
 	IF lMaxWidth 
 		nMaxWidth := GetFontWidth ( cFont, nMaxLen ) 
 		IF GetTextWidth( hDC, space(10), hDlgFont ) != GetTextWidth( hDC, replicate("B", 10), hDlgFont ) 
                   nMaxWidth *= 0.7 
 		ENDIF 
 	ENDIF 
 ... 
 

 
 STATIC FUNCTION FillDlg( cMsg, aOptions, nLineas, cIcoFile, nIcoSize, aBtnColors, bBlock, lClosable, cFont, nMaxLen ) 
 ... 
 	LOCAL nMaxLineas := HMG_Alert_MaxLines() 
 	LOCAL nMaxWidth, nMaxHeight 
 ... 
 	IF MSC_VER() > 0 .AND. _HMG_IsThemed 
 		nWidthDlg  += 10 
 		nHeightDlg += 10 
 	ENDIF 
  
 	IF nHeightDlg > System.ClientHeight 
 		n := 0 
 		WHILE ( nHeightDlg - ( nChrHeight * ( ++n ) ) ) > System.ClientHeight 
 		END 
 		nMaxHeight := nChrHeight * n 
 		nMaxLineas -= n 
 		nHeightDlg -= nMaxHeight 
 		nHeightCli -= nMaxHeight 
 	ENDIF 
  
 	This.Width  := nWidthDlg 
 ...