mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-08-04 13:56:01 +02:00
LCL: ImageList: call DestroyReference in Clear. Resolves Issue #0029905.
git-svn-id: trunk@52077 -
This commit is contained in:
parent
9ea2b541f4
commit
ddef968c2b
@ -388,6 +388,9 @@ begin
|
|||||||
if FCount = 0 then Exit;
|
if FCount = 0 then Exit;
|
||||||
if HandleAllocated
|
if HandleAllocated
|
||||||
then TWSCustomImageListClass(WidgetSetClass).Clear(Self);
|
then TWSCustomImageListClass(WidgetSetClass).Clear(Self);
|
||||||
|
{$ifdef windows}
|
||||||
|
DestroyReference; //Issue #0029905: images added after clear aren't shown if width or height changed
|
||||||
|
{$endif}
|
||||||
SetLength(FData, 0);
|
SetLength(FData, 0);
|
||||||
FAllocCount := 0;
|
FAllocCount := 0;
|
||||||
ClearOverlays;
|
ClearOverlays;
|
||||||
|
Loading…
Reference in New Issue
Block a user