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

LCL: image list cache: fix TSpeedButton NumGlyphs>0. Issue #33105

Browse Source 
git-svn-id: trunk@57206 -
This commit is contained in:
ondrej 2018-02-01 13:55:21 +00:00
parent 13e218e448
commit d67baf1433
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/imagelistcache.pas
View File

@ -210,7 +210,7 @@ begin
Item^.FListener := AListener; Item^.FListener := AListener;
end; end;
AStart := Item^.FImageList.Add(ABitmap, nil); AStart := Item^.FImageList.AddSliced(ABitmap, ABitmapCount, 1);
AListener.CacheSetImageList(Item^.FImageList); AListener.CacheSetImageList(Item^.FImageList);
OldLen := Length(Item^.FImageIndexes); OldLen := Length(Item^.FImageIndexes);
SetLength(Item^.FImageIndexes, OldLen + Item^.FImageList.Count - AStart); SetLength(Item^.FImageIndexes, OldLen + Item^.FImageList.Count - AStart);