Xbrowse con efecto pijama ( zebra)

[mastintin]

Despues de darle muchas vueltas al tema del efecto pijama que relentizaba los xbrowse con ads , he llegado a una implementacion facil con pocos cambios en el xbrowse ...

Nuevas datas

Code: Select all  Expand view  RUN

DATA nRowZebra  AS NUMERIC INIT 0
DATA aClrZebra
DATA lZebra   AS LOGICAL INIT .f.

 

Asignamos asi al crear el xbrowse:

Code: Select all  Expand view  RUN

  ::lZebra := .t.
  ::aClrZebra  := { { 0,  RGB(255,255,255) }, { 0, rgb(237,243,254) } }
  ::bClrStd := { || ::aClrZebra[ ::nRowZebra %2 + 1 ] }
 
 

o se puede crear un metodo SetZebra si se quiere ...

Code: Select all  Expand view  RUN

METHOD SetZebra( lZebra, aClrZebra ) CLASS TXBrowse
DEFAULT lZebra := .t.
DEFAULT aClrZebra :=  { { 0,  RGB(255,255,255) }, { 0, rgb(237,243,254) } }
::lZebra := lZebra
if ::lZebra
    ::aClrZebra  := aClrZebra  
    ::bClrStd := { || ::aClrZebra[ ::nRowZebra %2 + 1 ] }
else
   ::bClrStd :=  {|| { CLR_BLACK, GetSysColor( COLOR_WINDOW )} }
endif
Return nil

 

solo dos cambios en el codigo xbrowse ....

Code: Select all  Expand view  RUN

METHOD Paint() CLASS TXBrowse
......

   do while nRowPos <= nMaxRows

      // We must also paint some times after the last visible column

      IF ::lZebra     // nuevo
         ::nRowZebra := nRowPos   // nuevo
      endif  // nuevo
      if hSelBrush != nil
      .....

  METHOD FullPaint() INLINE ( ::lTransparent .or. ::lMergeVert .or. ;
                               ::nMarqueeStyle == MARQSTYLE_HIGHLWIN7 .OR. ::lZebra )


 

y listo ....

[Silvio.Falconi]

thanks
until now I made with a simply function ...

IF lPigiama
set_Pijama( .T.,oBrw,cColor1,cColor2)
Endif


now it is too good !!!

[russimicro]

Perfecto...

Probado con dbfcdx, ads y sqlrdd

Gracias
Johnson Russi

[lucasdebeltran]

Manuel,

¿Has probado así?:

Code: Select all  Expand view  RUN

:bClrStd          := { || { CLR_BLACK, If( oBrowse:KeyNo % 2 == 1, CLR_WHITE, RGB( 249, 249, 249 ) ) } }

[mastintin]

Manuel,

¿Has probado así?:

Code: Select all  Expand view  RUN

:bClrStd          := { || { CLR_BLACK, If( oBrowse:KeyNo % 2 == 1, CLR_WHITE, RGB( 249, 249, 249 ) ) } }

Precisamente eso es lo que quiero evitar con esta implementación . No tener que llamar a una función de database que según cual puede relentizar el browser hasta limites de dejarlo inusable .
por ejemplo en ads con muchos registros , la función a usar no devuelve un numero de registro sino un porcentaje , con lo que el efecto no funciona al tener varios registros el mismo porcentaje )
Intenta ese código con un sistema ads en servidor de no muchos registros poniéndole para que respete los filtros ( usando por tanto adskeyno(,,1) ). ...cada movimiento del xbrowse se trasforma en 15 segundos de refresco ( y a veces mas )
Añadiendo la data ::nRowZebra y asignándola dependemos solo del propio xbrowse

[lucasdebeltran]

Entendido, a ver si entonces si lo incluyen en FWH.

Se suponía que la obtención de dicho valor la había optimizado Mr. Nages.

[mastintin]

Entendido, a ver si entonces si lo incluyen en FWH.

Se suponía que la obtención de dicho valor la había optimizado Mr. Nages.

Nages ha realizado una implementación magnifica y ha puesto un código que vuela , y prima como es lógico la velocidad sobre un efecto estético a ademas las funciones de cada motor de database no las pone el , son las que nos dan en este caso Advantage-sap y no podemos hacer mucho

[Marcelo Via Giglio]

Holas,

ya esta implementado esto en FWH

saludos

Marcelo

[nageswaragunupudi]

Code: Select all  Expand view  RUN

METHOD FullPaint() INLINE ( ::lTransparent .or. ::lMergeVert .or. ;
                               ::nMarqueeStyle == MARQSTYLE_HIGHLWIN7 .OR. ::lZebra )
 

FullPaint deteriorates performance very much in case of slow databases.

[Sistem]

zebra effect
works with SQLRDD?

[]s