Implemented colors support for browse lines, both background and text, example:
- Code: Select all Expand view
#include "FiveLinux.ch"
REQUEST DBFCDX
function Main()
local oWnd, oBrw
USE customer VIA "DBFCDX"
DEFINE WINDOW oWnd TITLE "Testing Browses" SIZE 522, 317
@ 2, 2 BROWSE oBrw OF oWnd ;
HEADERS "First", "Last", "Street", "City", "State", "Zip" ;
FIELDS First, Last, Street, City, State, Zip
oBrw:nClrPane = { | nRow, lSelected | If( ! lSelected, If( nRow % 2 == 0, CLR_GREEN, CLR_WHITE ), nil ) }
oBrw:nClrText = { | nRow, lSelected | If( ! lSelected, If( nRow % 2 == 0, CLR_YELLOW, CLR_BLACK ), nil ) }
@ 28, 2 BUTTON "_Ok" OF oWnd ACTION oWnd:End()
ACTIVATE WINDOW oWnd
return nil
