Enrico,
Should be fixed after ChangeLog,v 1.6574
regards,
Eduardo
--- Em qua, 2/9/09, Enrico Maria Giordano <e.m.giord...@emagsoftware.it>
escreveu:
> De: Enrico Maria Giordano <e.m.giord...@emagsoftware.it>
> Assunto: [xHarbour-developers] Bug in defcolor
> Para: "xHarbour Developers Mailing List"
> <xharbour-developers@lists.sourceforge.net>
> Data: Quarta-feira, 2 de Setembro de 2009, 13:24
> 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
>
>
>
____________________________________________________________________________________
Veja quais são os assuntos do momento no Yahoo! +Buscados
http://br.maisbuscados.yahoo.com
------------------------------------------------------------------------------
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
xHarbour-developers@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/xharbour-developers
