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

Fix leak in TLCLGlyphs.GetImageIndex (introduced in r58106 #50dc18646e). Entry name must be set, before adding to tree. Since the name is used as lookup (the tree "sorts" by the name).

Browse Source 
git-svn-id: trunk@62868 -
This commit is contained in:
martin 2020-04-02 20:12:29 +00:00
parent bc7245b9bb
commit 9ff9f3ac82
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/include/imglist.inc
View File

@ -2798,9 +2798,9 @@ begin
raise EResNotFound.CreateFmt(SResNotFound,[AResourceName]);
E := TEntry.Create;
FImageIndexes.Add(E);
E.GlyphName := AResourceName;
E.ImageIndex := Result;
FImageIndexes.Add(E);
end;
end;