pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

fix compile with latest lazarus

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@985 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
alexs75
2009-10-16 15:51:06 +00:00
parent caa35015c0
commit e8fe36a1ab
1 changed files with 3 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
components/rx/rxtoolbar.pas
View File

@ -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;