FiveTech Software tech support forums

... XBROWSE oBrw OF oWnd ; DATASOURCE oQry ; COLUMNS aCols ; LINES CELL AUTOSORT SIZE -10,-10 PIXEL FONT oFont WITH OBJECT oBrw :bClrRowFocus := oBrw:bClrSelFocus :nRowHeight := 25 :nHeaderLines := 4 :nHeaderHeight := 70 :oHeaderFonts := oFont :nFooterHeight := 20 :nFooterLines := 2 :nStretchCol := ...

... // alinea al centro las cabeceras de columnas oBrw:bClrStd := {|| { iif(!empty(Neteo->FechaPago),CLR_GREEN,CLR_RED),CLR_WHITE } } oBrw:bclrSel := {|| { iif(!empty(Neteo->FechaPago),CLR_GREEN,CLR_RED),CLR_WHITE } } // color del focus oBrw:bKeyDown:={|nKey,nFlag|iif(veo(@nApu,@oBrw,aBotones,nKey),eval(aBotones[nApu,4]),NIL)} ...

... := MARQSTYLE_HIGHLROW // Con cursor de todo el renglón oBrw:nColDividerStyle := LINESTYLE_RAISED oBrw:nRowDividerStyle := LINESTYLE_RAISED oBrw:bClrSelFocus := {|| { nRGB( 0, 0, 0), nRGB(128,255,128) } } // para barra de linea selecc cuando el control tiene el foco oBrw:lColDividerComplete := ...

... := MARQSTYLE_HIGHLROW // Con cursor de todo el renglón oBrw:nColDividerStyle := LINESTYLE_RAISED oBrw:nRowDividerStyle := LINESTYLE_RAISED oBrw:bClrSelFocus := {|| { nRGB( 0, 0, 0), nRGB(128,255,128) } } // para barra de linea selecc cuando el control tiene el foco oBrw:lColDividerComplete := ...

... 150,150,250; ARRAY acDatos UPDATE FOOTERS LINES AUTOCOLS CELL olbx1:l2007:=.t. olbx1:gotop() olbx1:bClrStd:={|| aClrCol [ olbx1:keyno%2+1]} olbx1:bClrSel:={|| { nRGB( 0, 0,255), aGradBarSel } } olbx1:bClrSelFocus := { || { CLR_BLACK, aGradBarSelFocus } } olbx1:nColDividerStyle := LINESTYLE_BLACK ...

... un proyecto con ella. No lo hemos probado extensamente así que los comentarios son bienvenidos. * xbrowse.prg: - Desde FWH2008, bClrStd, bClrSel, bClrSelFocus se evalúan con dos parámetros, a saber, los objetos browse y column. El objeto column es nulo cuando browse evalúa los bloques. ...

... You can easily build a project using it. We have not extensitevely tested it so feedback is welcome. * xbrowse.prg: - Since FWH2008, bClrStd, bClrSel, bClrSelFocus are evaluated with two parameters, viz., browse and column objects. column object is nil when browse evaluates the blocks.However, ...

... ; } @ 0,0 XBROWSE oBrw OF oWnVta ; DATASOURCE oQry ; COLUMNS aCols ; LINES CELL AUTOSORT WITH OBJECT oBrw :bClrRowFocus := oBrw:bClrSelFocus :nRowHeight := 25 :nHeaderLines := 3 :nHeaderHeight := 60 :oHeaderFonts := oFont :nFooterHeight := 20 :nFooterLines := 2 :nStretchCol := ...

bClrSelFocus // when the browse has focus
bClrSel // when browse is not in focus

bClrSel,; // default color pair for selected row
bClrSelFocus,; // default color pair for selected row when control has focus

... := 25 :nRowHeight := 22 :nFooterHeight := 25 :bClrHeader := { || {CLR_WHITE,CLR_BLACK} } :bClrFooter := { || {CLR_WHITE,CLR_BLACK} } :bClrSel := { || IF( oBry:KeyNo % oApp:nRowsInt == 0 ,{ CLR_BLACK, oApp:nRowParClr },{ CLR_BLACK, oApp:nRowNonClr }) } :bClrSelFocus := { || {oApp:nFClrFocus,oApp:nBClrFocus} ...

... valor se utiliza para el encabezado del grupo. Method SetGroupHeader( cGroupHeader, nFromCol, nLastCol, oFont, nAlign, nHeight ) - DATAS bClrStd, bClrSel and bClrSelFocus: - Tanto el browse como las columnas tienen estas DATAs. Cuando se inicializa el browse (en el método Adjust()), las DATAs ...

... this value is used for the group header. Method SetGroupHeader( cGroupHeader, nFromCol, nLastCol, oFont, nAlign, nHeight ) - DATAS bClrStd, bClrSel and bClrSelFocus: - Both browse and columns have these Datas. When the browse is initialized (in the Adjust() method) datas from browse are ...

... method of xBrowse, there are no changes: METHOD Display() CLASS TXBrowse local nSecs := SECONDS() if !::lCreated return nil endif fwlog Eval( ::bClrSel ) ... Can you please show me how I can change bClrStd. Best regards, Otto

... :bClrHeader := { || { CLR_BLACK, CLR_WHITE } } :bClrGrad := { || { CLR_WHITE, CLR_WHITE } } :lDrawBorder := .T. :nStretchCol := STRETCHCOL_WIDEST :bClrSel := { || { CLR_BLACK, nRGB( 235, 235, 235 ) } } :bClrSelFocus := { || { CLR_BLACK, nRGB( 235, 235, 235 ) } } :SetBackGround( cLocal_sistema + ...