- Code: Select all Expand view
#include "Fivewin.ch"
#include "Tcbrowse.ch"
FUNCTION MAIN()
LOCAL oDlg, oBrw, oCol
USE 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( "Hello!" ) }, { || MsgInfo( "Hello!" ) } }
ACTIVATE DIALOG oDlg;
ON INIT oDlg:SetControl( oBrw );
CENTER
CLOSE
RETURN NIL
EMG