After testing the code that we have published here:
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 @ ..., ... :
3) In function function TXBrows() the browse is not destroyed:
4) PalBmpFree() is not properly working. This function should be added:
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 @ ..., ... :
   if ::oBtnList != nil
     ::oBtnList:End()
   endif Â
   if ::oBtnElip != nil
     ::oBtnElip:End()
   endif3) In function function TXBrows() the browse is not destroyed:
  if ValType( bChild ) == 'B'
   bXBr:End()
   bXBr := bChild
  endif4) PalBmpFree() is not properly working. This function should be added:
function PalBmpFree( hBmp, hPal )
DeleteObject( hBmp )
DeleteObject( hPal )
return nil
