FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour Re: efecto pijama en XBrowse (SOLUCIONADO)
Posts: 607
Joined: Mon Mar 04, 2013 04:32 PM
Re: efecto pijama en XBrowse (SOLUCIONADO)
Posted: Sun Oct 27, 2019 11:26 AM
Hola:

En Browse con esta linea de codigo conseguia un efecto pijama, tenia una linea blanca y la otra verde, segun definicion del RGB
esto.

Code (fw): Select all Collapse
 LOCAL color1 := CLR_WHITE
LOCAL color2 := RGB( 211, 249, 236 )
oBrw:nClrPane := { || IIf( Obr->( ordKeyNo() ) % 2 = 0, color1, color2 ) }


ahora lo intento en Xbrowse con esta instruccion.

Code (fw): Select all Collapse
oBrw::bClrStd := {|| { nRGB( 0, 0, 0), nRGB(255,248,220) } } // colores para lineas normales


Pero solo consigo el color de texto en blanco y el fondo todo en el otro color, el efecto no es nada bonito.

¿Como podria conseguir ese efecto pijama en XBROWSE.?

Gracias por vuestra ayuda.

Jose.
Fwh 24.07 64 bits + Harbour 64 bits 3.2dev(r2407221137) + MSVC64
Posts: 883
Joined: Thu Dec 24, 2009 12:46 AM
Re: efecto pijama en XBrowse
Posted: Sun Oct 27, 2019 01:12 PM
Intenta

Code (fw): Select all Collapse
oBrw:bClrStd  := { || If( Eval( oBrw:bKeyNo,,oBrw) % 2 == 0, { CLR_BLACK, RGB( 224, 236, 255 ) }, { CLR_BLACK, RGB( 189, 211, 253 ) } ) }

=====>

Bayron Landaverry
xBasePHP.com
(215)2226600 Philadelphia,PA, USA
MayaBuilders@gMail.com
Guatemala

FWH25.06--Harbour 3.0.0--BCC7.7--UEstudio 10.10
Windows 10

FiveWin, One line of code and it's done...

Posts: 607
Joined: Mon Mar 04, 2013 04:32 PM
Re: efecto pijama en XBrowse (SOLUCIONADO)
Posted: Sun Oct 27, 2019 06:49 PM

Hola Bayron.

Funciona perfecto. Eres todo un experto del XBROWSE. Te felicito.

para terminar la migracion solo me falta una cosita un poco mas complicada pero bueno.
Para no liar hilos lo preguntare en otro.

Muchisimas gracias.

Un saludo.

Jose.

Fwh 24.07 64 bits + Harbour 64 bits 3.2dev(r2407221137) + MSVC64

Continue the discussion