In the following sample the colors are wrong. Please compare with Clipper.
#include "Inkey.ch"
FUNCTION MAIN()
LOCAL oBrw, oCol, nKey
DBCREATE( "BUGTEST", { { "VALUE", "N", 2, 0 }, { "DESCR", "C", 30,
0 } } )
USE BUGTEST EXCLUSIVE
APPEND BLANK
REPLACE FIELD -> value WITH 1
REPLACE FIELD -> descr WITH "Test 1"
APPEND BLANK
REPLACE FIELD -> value WITH 2
REPLACE FIELD -> descr WITH "Test 2"
GO TOP
oBrw = TBROWSEDB( 1, 1, 20, 75 )
oBrw:ColorSpec = "n/w ,br/w , w+/r , *gr/w , *n/gr , *n/w, gr+/w+ ,
*w/g , *b/bg, *bg/b, *w+/b , b+/w"
oCol = TBCOLUMNNEW( "Value", { || FIELD -> value } )
oCol:defcolor = { 1, 6 }
oBrw:AddColumn( oCol )
oCol = TBCOLUMNNEW( "Descr", { || FIELD -> descr } )
oCol:defcolor = { 2, 3 }
oBrw:AddColumn( oCol )
DO WHILE .T.
DO WHILE !oBrw:Stabilize()
ENDDO
nKey = INKEY( 0 )
DO CASE
CASE nKey == K_LEFT
oBrw:Left()
CASE nKey == K_RIGHT
oBrw:Right()
CASE nKey == K_DOWN
oBrw:Down()
CASE nKey == K_UP
oBrw:Up()
CASE nKey == K_ESC
EXIT
ENDCASE
ENDDO
RETURN NIL
EMG
--
EMAG Software Homepage: http://www.emagsoftware.it
The EMG's ZX-Spectrum Page: http://www.emagsoftware.it/spectrum
The Best of Spectrum Games: http://www.emagsoftware.it/tbosg
The EMG Music page: http://www.emagsoftware.it/emgmusic
------------------------------------------------------------------------------
Let Crystal Reports handle the reporting - Free Crystal Reports 2008 30-Day
trial. Simplify your report design, integration and deployment - and focus on
what you do best, core application coding. Discover what's new with
Crystal Reports now. http://p.sf.net/sfu/bobj-july
_______________________________________________
xHarbour-developers mailing list
[email protected]
https://lists.sourceforge.net/lists/listinfo/xharbour-developers
