Shared Imagelist in TBrowse
Publicado: Mié Jun 18, 2008 3:07 pm
Dear developers!
It seems to me that I found a small bug in TBrowse when using with shared
Imagelist.
At this moment any Imagelist (and shared too) assigned to TBrowse:oImageList
is destroyed at XBrowse:Free().
I think that XBrowse:Free must be changed like this:
METHOD Free() CLASS XBrowse
IF ! Empty( ::oImageList )
IF ::oImageList:oParent == Self
::oImageList:End()
ENDIF
::FoImageList := Nil // was ::oImageList := Nil
ENDIF
....
Shared imagelists are not destroyed with this change .
Regards, Oleg
It seems to me that I found a small bug in TBrowse when using with shared
Imagelist.
At this moment any Imagelist (and shared too) assigned to TBrowse:oImageList
is destroyed at XBrowse:Free().
I think that XBrowse:Free must be changed like this:
METHOD Free() CLASS XBrowse
IF ! Empty( ::oImageList )
IF ::oImageList:oParent == Self
::oImageList:End()
ENDIF
::FoImageList := Nil // was ::oImageList := Nil
ENDIF
....
Shared imagelists are not destroyed with this change .
Regards, Oleg