From 7fe38c1762efb014942c557fe1f0350ba9d4efcb Mon Sep 17 00:00:00 2001
From: juha <juha@lazarus-ide.org>
Date: Sat, 25 Jun 2011 10:57:20 +0000
Subject: [PATCH] IDE: Fix error when Actionlist has no TImageList assigned.
 Patch from August Klein, issue #19566

git-svn-id: trunk@31379 -
---
 ideintf/graphpropedits.pas | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/ideintf/graphpropedits.pas b/ideintf/graphpropedits.pas
index ecfb5e74f5..ca8ee6a10b 100644
--- a/ideintf/graphpropedits.pas
+++ b/ideintf/graphpropedits.pas
@@ -702,6 +702,7 @@ var
   Images: TCustomImageList;
   I: Integer;
 begin
+  Proc(IntToStr(GetDefaultOrdValue));
   Images := GetImageList;
   if Assigned(Images) then
     for I := 0 to Images.Count - 1 do
@@ -726,6 +727,7 @@ var
   R: TRect;
   OldColor: TColor;
 begin
+  Dec(Index);
   Images := GetImageList;
   R := ARect;
   if Assigned(Images) then