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

lcl: fix TCustomImageList.AddImages (fixes bug #0014289)

Browse Source 
git-svn-id: trunk@21554 -
This commit is contained in:
paul 2009-09-03 11:07:10 +00:00
parent 095869caaf
commit 0bf3e3af55
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lcl/include/imglist.inc
View File

@ -108,10 +108,10 @@ begin
if HandleAllocated
then begin
p := @FData[OldCount];
for n := OldCount to FCount - AValue.FCount - 1 do
for n := OldCount to FCount - 1 do
begin
TWSCustomImageListClass(WidgetSetClass).Insert(Self, n, p);
Inc(p, DataSize);
Inc(PByte(p), DataSize);
end;
end;
end