From e8fe36a1ab8dc0accaf0062155ce457f1bace9f9 Mon Sep 17 00:00:00 2001
From: alexs75 <alexs75@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Fri, 16 Oct 2009 15:51:06 +0000
Subject: [PATCH] fix compile with latest lazarus

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@985 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 144150aed..2a4088d35 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;
+  PropertyStorage, Menus, Forms, types, Graphics, ImgList;
 
 const
   DefButtonWidth = 24;
@@ -30,7 +30,7 @@ type
 
   TToolbarButtonActionLink = class(TSpeedButtonActionLink)
   protected
-    procedure SetImageIndex(Value: Integer); override;
+    procedure SetImageIndex(Value: TImageIndex); 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: Integer);
+procedure TToolbarButtonActionLink.SetImageIndex(Value: TImageIndex);
 begin
   FClient.Invalidate;
 end;