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