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

IDE: Fix error when Actionlist has no TImageList assigned. Patch from August Klein, issue #19566

Browse Source 
git-svn-id: trunk@31379 -
This commit is contained in:
juha 2011-06-25 10:57:20 +00:00
parent 1463080eaa
commit 7fe38c1762
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
ideintf/graphpropedits.pas
View File

@ -702,6 +702,7 @@ var
Images: TCustomImageList; Images: TCustomImageList;
I: Integer; I: Integer;
begin begin
Proc(IntToStr(GetDefaultOrdValue));
Images := GetImageList; Images := GetImageList;
if Assigned(Images) then if Assigned(Images) then
for I := 0 to Images.Count - 1 do for I := 0 to Images.Count - 1 do
@ -726,6 +727,7 @@ var
R: TRect; R: TRect;
OldColor: TColor; OldColor: TColor;
begin begin
Dec(Index);
Images := GetImageList; Images := GetImageList;
R := ARect; R := ARect;
if Assigned(Images) then if Assigned(Images) then