paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-06-06 08:38:25 +02:00
Code Issues Packages Projects Releases Wiki Activity

LCL: Clear also Images list for icons. Issue #24937, patch from ChrisF

Browse Source 
git-svn-id: trunk@42555 -
This commit is contained in:
juha 2013-09-02 09:57:56 +00:00
parent a435bd680f
commit 86148df684
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
lcl/include/icon.inc
View File

@ -164,6 +164,7 @@ var
begin begin
for n := 0 to FImages.Count - 1 do for n := 0 to FImages.Count - 1 do
TObject(FImages[n]).Free; TObject(FImages[n]).Free;
FImages.Clear;
end; end;
function TSharedIcon.GetIndex(AFormat: TPixelFormat; AHeight, AWidth: Word): Integer; function TSharedIcon.GetIndex(AFormat: TPixelFormat; AHeight, AWidth: Word): Integer;