topic-30620

Board index FiveWin para Harbour/xHarbour problema con xbrowser

Page: 1 2 (18 posts)

Posts: 1516

Joined: Thu May 27, 2010 02:06 PM

Re: problema con xbrowser
Posted: Sat May 02, 2015 03:32 PM

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 (fw): Select all Collapse

DATA nRowZebra
DATA aClrZebra 
DATA lZebra

si asignamos asi al crear el xbrowse:

Code (fw): Select all Collapse

  ::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 (fw): Select all Collapse

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

Posts: 1516

Joined: Thu May 27, 2010 02:06 PM

Re: problema con xbrowser
Posted: Sun May 03, 2015 10:47 AM

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

Code (fw): Select all Collapse

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

nageswaragunupudi

Posts: 10733

Joined: Sun Nov 19, 2006 05:22 AM

Re: problema con xbrowser
Posted: Sun May 03, 2015 10:51 AM

Thanks a lot for testing and the correction.

Regards

G. N. Rao.

Hyderabad, India

Page: 1 2 (18 posts)

FiveTech Support Forums

Continue the discussion