problema con xbrowser

[mastintin]

nages .Gracias. lo mirare en cuanto tenga lago de tiempo ....
He realizado una pequeña implementación para resolver el problema del efecto pijama y no depender de los registros ...
Los cambios en xbrowse son los siguientes......

Nuevas datas

Code: Select all  Expand view  RUN

DATA nRowZebra
DATA aClrZebra
DATA lZebra

 

si 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 ] }
 
 

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 )   // añadido .or. lZebra


 

y listo ....

[mastintin]

Nages :
for me is ok.
a minor bug in :

Code: Select all  Expand view  RUN

  cAdsKeyNo   := "{|x,Self| " + cAlias + "->(If(x==nil,AdsKeyNo(,,1),If(Empty(OrdSetFocus()),ADSSetRelKeyPos(x/Self:nLen),OrdKeyGoTo(x)))) }"   // add last "}"
 

[nageswaragunupudi]

Thanks a lot for testing and the correction.