MODIFICACION EN LA XBROWSE PARA PINTARLO TIPO ZEBRA

[rterraz]

Hola Amigos

Una pequeña contribucion, espero les guste
Para pintar el fondo del xbrowse tipo 'zebra' ( rows de colores alternados )
hacer lo siguiente

en la clase xbrowse.prg hacer estas modificaciones
en la DATA agregar esto:

lRefreshOnlyData,; // True when only the data should be painted (used internally)
l2007, ; // 2007 look
lZebra, ; // zebra
lFlatStyle ; // Flat Style
AS LOGICAL

En el METHOD ADJUST() del TXBROWSE
Agregar esto:

local nFor, nLen, nHeight, nStyle, nTemp, oCol, h

// asigno valor al bclrstd para pintar el zebra
// pueden usar los colores que mas les gusten

if ::lZebra <> NIL .AND. ::lZebra
::bClrStd := { || { CLR_BLACK, If( ::KeyNo() % 2 == 1, CLR_WHITE, CLR_CELESTE ) } }
endif

if ::nMarqueeStyle == MARQSTYLE_HIGHLWIN7
if ValType( Eval( ::bClrSelFocus )[ 2 ] ) != 'A'
::bClrSelFocus := { || { CLR_BLACK, { { 1, RGB( 220, 235, 252 ), ;
RGB( 193, 219, 252 ) } } } }
endif
if ValType( Eval( ::bClrSel )[ 2 ] ) != 'A'
::bClrSel := ::bClrSelFocus
endif
endif

para activarlo:

oBrw:lZebra := .T.

Saludos

[Silvio.Falconi]

Manuel avarez allready made this feature last year

[rterraz]

bueno, llegue tarde
de todas maneras lo que abunda no daña
saludos

[Silvio.Falconi]

http://forums.fivetechsupport.com/viewtopic.php?f=6&t=30643&p=176276&hilit=zebra+xbrowse#p176047

[Antonio Linares]

Raul,

gracias

[AIDA]

Gracias

Saluditos

[sysctrl2]

Y la imagen ?

[nageswaragunupudi]

en la clase xbrowse.prg hacer estas modificaciones
en la DATA agregar esto:

This is for information.

If you want to add a new DATA to XBrowse, it is not necessary to modify xbrowse.prg. It is not even necessary to have a derived class.

After defining xBrowe,

oBrw:AddVar( "LZEBRA", .t. )

Now we can use oBrw:lZebra like any other DATA