FiveTech Software tech support forums

Posted: **Sun Jun 21, 2009 8:23 am**

After testing the code that we have published here:
http://forums.fivetechsupport.com/viewt ... =3&t=15935

we have detected some errors in Class TXBrowse that must be fixed:

1) Method End() has to be renamed as Destroy(). It was wrong. And finally call return Super:Destroy()

2) This code is needed in Method CreateButtons() before the @ ..., ... :

Code: Select all

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

3) In function function TXBrows() the browse is not destroyed:

Code: Select all

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

4) PalBmpFree() is not properly working. This function should be added:

Code: Select all

 
function PalBmpFree( hBmp, hPal )

   DeleteObject( hBmp )
   DeleteObject( hPal )

return nil

Posted: **Sun Jun 21, 2009 8:35 am**

Hello Antonio,

what version of xBrowse is affected ?
Thanks in advance
Otto

Posted: **Sun Jun 21, 2009 8:48 am**

Otto,

The Method End(), that must be Destroy(), affects to all xbrowse versions.
The PalBmpFree() may also affect to all xbrowse versions.

The others two, can't say the exact version right now. Better look in your xbrowse.prg code for those sections. Thanks,

Posted: **Sun Jun 21, 2009 1:58 pm**

Another bug fixed:

Code: Select all

METHOD End() CLASS TXBrwColumn

...

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

return nil

Posted: **Mon Jun 22, 2009 4:34 pm**

Good

Posted: **Thu Jun 25, 2009 8:09 am**

Antonio,
do you plan to release 9.06 before the month end ?
(I'd prefer having the bugfixes already included in the standard lib rather than including another obj)
Thanks,
Davide

Posted: **Thu Jun 25, 2009 10:30 am**

Davide,

We are working hard to deliver 9.06 before end of this month.

But we can't promise it yet

FiveTech Software tech support forums

xbrowse required bug fixes !

xbrowse required bug fixes !

Re: xbrowse required bug fixes !

Re: xbrowse required bug fixes !

Re: xbrowse required bug fixes !

Re: xbrowse required bug fixes !

Re: xbrowse required bug fixes !

Re: xbrowse required bug fixes !