FiveTech Software tech support forums

... La tengo en un programa que se llama Treepad Lite. Suerte. nNumeroDaColunaAColorar := 2 ... oTBLLbx:bTextColor := {|nRow,nCol| CLR_BLACK } oTBLLbx:bbkColor := {|nRow,nCol| PintaCelula(nRow,nCol,DBF->CAMPO,nNumeroDaColunaAColorar) } ... Function PintaCelula( _nRow_, _nCol_, _status_, _qCol_ ) ...

... ::aColSizes, ::nColPos, ::nClrText, ::nClrPane,; If( ::oFont != nil, ::oFont:hFont, 0 ), ::aJustify, ; ::nLineStyle, 0 , .f., ::bTextColor, ::bBkColor, ::nClrLine,; ::oBrush:nRGBColor, ::bFont ) ) #endif if ::nLen < ::nRowPos ::nRowPos = ::nLen endif ::DrawSelect() endif ::DispEnd( aInfo ...

... hDC, nRow, aText, aSizes, nFirstItem, ; // nClrFore, nClrBack, hFont, lTree, aJustify, nPressed, // nStyle, nColAct, lFocused ) // bTextColor, bBkColor, nClrLine, lFooter, lSelect, // bFont, lDrawFocusRect ) // New's by CesoTech { HWND hWnd = (HWND) hb_parnl( 1 ); HDC hDC = (HDC) hb_parnl( ...

... ///oLbx:nFreeze:=1 oLbx:nlineStyle:=3 ///Olbx:aHJustify:={2,2,2,2,2,2} ///olbx:bTextColor:={ |nRow,nCol| if(nCol==1,CLR_BLACK,)} ///olbx:bBkColor:={ |nRow,nCol| if(nCol==1,wClrBack,)} ///olbx:nHeaderHeight:=33 //permite definir el ancho de la cabecera del browse

oTbw:bBkColor := {|nRow,nCol,nStyleLine| if(nStyleLine=0, nBckGrd(oTbw), if( nStyleLine =3 , nRGB( 64, 64, 255 ), BRW_HEADER )) } nStyleLine=3 (Header) Thanks For Your Help The example changes the colour of the content of the ...

Where do I put the above for oLbx ? oTbw:bBkColor := {|nRow,nCol,nStyleLine| if(nStyleLine=0, nBckGrd(oTbw), if(nStyleLine=3 , nRGB( 64, 64, 255 ), BRW_HEADER )) } I tried to change Tbw/Brw to Lbx, but it does not work for oLbx. Regards ACWoo ...

... COLOR_HIGHLIGHT ) // COLOR_BTNSHADOW ) // by CeSoTech ::nClrNFFore := ::nClrForeFocus // by CeSoTech Where do I put the above for oLbx ? oTbw:bBkColor := {|nRow,nCol,nStyleLine| if(nStyleLine=0, nBckGrd(oTbw), if(nStyleLine=3 , nRGB( 64, 64, 255 ), BRW_HEADER )) } I tried to change Tbw/Brw ...

... //236,255,236 oBCmp:bTextColor:={|nRow,nCol,nStyleLine| IF(nCol>1 .AND. nStyleLine=0 .AND. (oDCmp)->Status=="C",CLR_HRED,)} oBCmp:bBkColor := {|nRow,nCol,nStyle| If( nStyle==0 .and. nCol==1, ; GETSYSCOLOR(COLOR_BTNFACE), ; If( nCol==1 .AND. nStyle=3 .AND. !oBArt:lCellStyle, ; GETSYSCOLOR(COLOR_BTNFACE),))} ...

... hDC, nRow, aText, aSizes, nFirstItem, ; // nClrFore, nClrBack, hFont, lTree, aJustify, nPressed, // nStyle, nColAct, lFocused ) // bTextColor, bBkColor, nClrLine, lFooter, lSelect, // bFont, lDrawFocusRect ) // New's by CesoTech { HWND hWnd = (HWND) hb_parnl( 1 ); HDC hDC = (HDC) hb_parnl( ...

... 480,200 ; HEADERS "Apellido y Nombres y Direccion",; "Telefono", "Edad" ; SIZES 250,50,50 oWnd:oClient:= oLbx oLbx:bBkColor:= {|nRow,nCol,nStyle| If( nStyle==0 .and. nCol==2, ; CLR_YELLOW, ) } oLbx:lAdjLastCol := .F. oLbx:nLineStyle := 2 oLbx:bSeek := {|lRet| oLbx:DbfSeek(.T.) ...

Pedro, que bueno que ya te funciono, nomas como comentario adicional y se me paso decirtelo, en cada funcion tanto de colorcelda como en el bloque bBkColor hay que ir priorizando las condicionantes correctamente para que te vaya respetando el pintado, me paso que yo las puse como me dio la gana ...

... //236,255,236 oBCmp:bTextColor:={|nRow,nCol,nStyleLine| IF(nCol>1 .AND. nStyleLine=0 .AND. (oDCmp)->Status=="C",CLR_HRED,)} oBCmp:bBkColor := {|nRow,nCol,nStyle| If( nStyle==0 .and. nCol==1, ; GETSYSCOLOR(COLOR_BTNFACE), ; If( nCol==1 .AND. nStyle=3 .AND. !oBArt:lCellStyle, ; GETSYSCOLOR(COLOR_BTNFACE),))} ...

... en celda activa, en footers, en browse normal... caso 1 http://img15.imageshack.us/img15/3006/brw1.jpg aqui el codigo: oBrw[x]:bBkColor := { | nRow, nCol, nStyleLine | ColoresCelda( nRow, nCol, nStyleLine, oFolder ) } oBrw[x]:bTextColor := { | nRow, nCol, nStyleLine | ColoresTexto( ...

Fernando, puedes utilizar (como ejemplo) oLbx:bBkColor := {|nRow,nCol,nStyle| colorea( nRow, nCol, nStyle ) } oLbx:bFont := {|nRow,nCol,nStyle| IF( nStyle=1, oFont:hfont, ) } donde la funcion colorea(...) devolvera el color respectivi bajo las condiciones ...

Excelete. jeje

surGom wrote:Gracias GoosFancito, así lo resolvi:
oLbx:bBkColor:= {|nRow,nCol,nStyle| If( nStyle==0 .and. nCol==nColumna,RGB(223,227,247), ) }

Luis