topic-15938

Board index FiveWin para Harbour/xHarbour xbrowse arreglos de bugs!

Posts: 44158

Joined: Thu Oct 06, 2005 05:47 PM

xbrowse arreglos de bugs!
Posted: Sun Jun 21, 2009 08:27 AM

Despues de probar el código que hemos publicado aqui:
viewtopic.php?f=6&t=15936

hemos detectado unos errores en la Clase TXBrowse que hay que arreglar asi:

1) Method End() tiene que ser renombrado como Destroy(). Estaba mal. Y finalmente llamar a return Super:Destroy()

2) Este código es necesario en Method CreateButtons() antes de @ ..., ... :

Code (fw): Select all Collapse

 
      if ::oBtnList != nil
         ::oBtnList:End()
      endif   
      if ::oBtnElip != nil
         ::oBtnElip:End()
      endif

3) En la función TXBrows() el browse no se destruía:

Code (fw): Select all Collapse

   if ValType( bChild ) == 'B'
      bXBr:End()
      bXBr := bChild
   endif

4) PalBmpFree() no está funcionando bien. Hay que añadir esta función:

Code (fw): Select all Collapse

 
function PalBmpFree( hBmp, hPal )

   DeleteObject( hBmp )
   DeleteObject( hPal )

return nil

regards, saludos

Antonio Linares
www.fivetechsoft.com

Antonio Linares

Posts: 44158

Joined: Thu Oct 06, 2005 05:47 PM

Re: xbrowse arreglos de bugs!
Posted: Sun Jun 21, 2009 01:59 PM

Otro bug arreglado:

Code (fw): Select all Collapse

METHOD End() CLASS TXBrwColumn

...

   for nFor := 1 to Len( ::aBitmaps )
      PalBmpFree( ::aBitmaps[ nFor, BITMAP_HANDLE ], ::aBitmaps[ nFor, BITMAP_PALETTE ] )
   next

return nil

regards, saludos

Antonio Linares
www.fivetechsoft.com

miarcod

Posts: 203

Joined: Tue Oct 11, 2005 02:17 PM

Re: xbrowse arreglos de bugs!
Posted: Mon Jun 22, 2009 01:40 PM

He detectado un mal funcionamiento el el xbrowse que se produce en las siguientes circunstancias

Cuando un xbrowse tiene columnas ocultas, y el resto de las columnas no caben en el browse (es decir tiene columnas por la derecha fuera del espacio del control) al desplazarse con los metodos goRight y goLeft el comportamiento no es correcto y vuelve a la primera columna.

Por ejemplo:

Al programa xbposte.prg del directorio de ejemplos le oculto las dos primeras columnas y redefino los ancho de las columnas 3 y 4 ....

Code (fw): Select all Collapse

....
   oBrw:CreateFromCode()
   oWnd:oClient := oBrw
[b]
   oBrw:aCols[1]:hIDE()
   oBrw:aCols[2]:hIDE()
   ObRW:aCols[3]:nWidth := 280
   ObRW:aCols[4]:nWidth := 150[   [/b]   
ACTIVATE window oWnd

y al movernos por las celdas hacia la derecha cuando estamos en la columnas 4 en lugar de moverse hacia la cinco vuelve a la tres.
e izquierda se puede comprobar este mal comportamiento

FiveTech Support Forums

Continue the discussion