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

LCL: ImageList - associate FHeight from source FHeight

Browse Source 
git-svn-id: trunk@59890 -
This commit is contained in:
zeljko 2018-12-21 16:59:46 +00:00
parent 2de386c531
commit 09fe63779a
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/imglist.inc
View File

@ -1456,6 +1456,7 @@ begin
begin begin
ToR := FData.GetImageLists(FromR.Width, False, FromR.AutoCreatedInDesignTime); ToR := FData.GetImageLists(FromR.Width, False, FromR.AutoCreatedInDesignTime);
ToR.FWidth := FromR.FWidth; ToR.FWidth := FromR.FWidth;
ToR.FHeight := FromR.FHeight;
ToR.FCount := FromR.FCount; ToR.FCount := FromR.FCount;
ToR.AllocData(ToR.FCount); ToR.AllocData(ToR.FCount);
if ToR.FCount>0 then if ToR.FCount>0 then