viewtopic.php?f=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 Expand view
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 Expand view
if ValType( bChild ) == 'B'
bXBr:End()
bXBr := bChild
endif
4) PalBmpFree() is not properly working. This function should be added:
- Code: Select all Expand view
function PalBmpFree( hBmp, hPal )
DeleteObject( hBmp )
DeleteObject( hPal )
return nil