From 9266aec7d524e59d1e4832c8689c5756805758ab Mon Sep 17 00:00:00 2001
From: jesusr <jesusr@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Mon, 23 Nov 2009 18:07:35 +0000
Subject: [PATCH] rx, fix compile after TImageIndex->Integer lazarus change

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@1018 8e941d3f-bd1b-0410-a28a-d453659cc2b4
---
 components/rx/rxtoolbar.pas | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/components/rx/rxtoolbar.pas b/components/rx/rxtoolbar.pas
index 2a4088d35..144150aed 100644
--- a/components/rx/rxtoolbar.pas
+++ b/components/rx/rxtoolbar.pas
@@ -6,7 +6,7 @@ interface
 
 uses
   Classes, SysUtils, LCLType, LCLIntf, Buttons, Controls, ExtCtrls, ActnList,
-  PropertyStorage, Menus, Forms, types, Graphics, ImgList;
+  PropertyStorage, Menus, Forms, types, Graphics;
 
 const
   DefButtonWidth = 24;
@@ -30,7 +30,7 @@ type
 
   TToolbarButtonActionLink = class(TSpeedButtonActionLink)
   protected
-    procedure SetImageIndex(Value: TImageIndex); override;
+    procedure SetImageIndex(Value: Integer); override;
     function IsImageIndexLinked: Boolean; override;
     procedure SetEnabled(Value: Boolean); override;
     procedure SetCaption(const Value: string); override;
@@ -1350,7 +1350,7 @@ end;
 
 { TToolbarButtonActionLink }
 
-procedure TToolbarButtonActionLink.SetImageIndex(Value: TImageIndex);
+procedure TToolbarButtonActionLink.SetImageIndex(Value: Integer);
 begin
   FClient.Invalidate;
 end;