FiveTech Support Forums

            REDEFINE XBROWSE oBrw ID 200 OF oDlg;
                DATASOURCE oRsTie;
                COLUMNS "CLI_NOM","TIE_SUC","TIE_NUM";
                HEADERS "Razón Social del Cliente","Nombre de la sucursal","Número";
                COLSIZES 250,200,50;
                PICTURES Nil,Nil,"@Z 9999999";
                JUSTIFY {AL_LEFT,AL_LEFT,AL_RIGHT};
                FOOTERS AUTOSORT

                WITH OBJECT oBrw
                    :l2007            := (.F.)
                    :lHScroll         := (.F.)
                    :lVScroll         := (.F.)
                    :nMarqueeStyle    := MARQSTYLE_HIGHLROW
                    :nColDividerStyle := LINESTYLE_LIGHTGRAY
                    :nRowDividerStyle := LINESTYLE_LIGHTGRAY
                    :nStretchCol      := STRETCHCOL_WIDEST
                    :nHeaderHeight      := 25
                    :nRowHeight         := 22
                    :nFooterHeight      := 25
                    :bClrHeader       := { || {CLR_WHITE,CLR_BLACK} }
                    :bClrFooter       := { || {CLR_WHITE,CLR_BLACK} }
                    :bClrSel          := { || IF( oBrw:KeyNo % oApp:nRowsInt == 0 ,{ CLR_BLACK, oApp:nRowParClr },{ CLR_BLACK, oApp:nRowNonClr }) }
                    :bClrSelFocus     := { || {oApp:nFClrFocus,oApp:nBClrFocus} }
                    :bClrStd          := { || IF( oBrw:KeyNo % oApp:nRowsInt == 0 ,{ CLR_BLACK, oApp:nRowParClr },{ CLR_BLACK, oApp:nRowNonClr }) }
                    :nRecSelColor     := oApp:nRowParClr
                    :lDisplayZeros    := (.F.)

                    :SetTree()
                    :oTree:OpenAll()
               END

:aCols[1]:AddResource({"\img\down.png","\img\right.png","\img\rec.png"})
:aCols[1]:nWidth   := 110
:aCols[1]:oHeaderFont = oFont3
:aCols[1]:nHeadStrAlign = AL_CENTER