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  Expand view

#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