Color cell TCBrowse

[Ari]

nao consegui dar cor a uma unica celula do TCbrowse, usando:

oBrw:lCellStyle := .T.

[Antonio Linares]

Ari,

Please try this sample from Enrico:

Code: Select all

#include "Fivewin.ch" 
#include "Tcbrowse.ch" 


FUNCTION MAIN() 

    LOCAL oDlg, oBrw, oCol 

    USE Customer ALIAS Test 

    DEFINE DIALOG oDlg SIZE 300, 300 

    @ 0, 0 BROWSE oBrw 

    ADD COLUMN TO oBrw; 
               DATA TEST -> last; 
               HEADER "LAST"; 
               COLOR CLR_RED, CLR_GREEN 

    ADD COLUMN TO oBrw; 
               DATA TEST -> first; 
               HEADER "FIRST"; 
               COLOR CLR_RED, CLR_GREEN 

    oBrw:lCellStyle = .T. 

    oBrw:aActions = { { || MsgInfo( "One!" ) }, { || MsgInfo( "Two!" ) } } 

    ACTIVATE DIALOG oDlg; 
             ON INIT oDlg:SetControl( oBrw ); 
             CENTER ;
             VALID MsgYesNo( "Want to exit ?" )

    CLOSE 

    RETURN NIL