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 uses
Classes, SysUtils, LCLType, LCLIntf, Buttons, Controls, ExtCtrls, ActnList, Classes, SysUtils, LCLType, LCLIntf, Buttons, Controls, ExtCtrls, ActnList,
PropertyStorage, Menus, Forms, types, Graphics; PropertyStorage, Menus, Forms, types, Graphics, ImgList;
const const
DefButtonWidth = 24; DefButtonWidth = 24;
@ -30,7 +30,7 @@ type
TToolbarButtonActionLink = class(TSpeedButtonActionLink) TToolbarButtonActionLink = class(TSpeedButtonActionLink)
protected protected
procedure SetImageIndex(Value: Integer); override; procedure SetImageIndex(Value: TImageIndex); override;
function IsImageIndexLinked: Boolean; override; function IsImageIndexLinked: Boolean; override;
procedure SetEnabled(Value: Boolean); override; procedure SetEnabled(Value: Boolean); override;
procedure SetCaption(const Value: string); override; procedure SetCaption(const Value: string); override;
@ -1350,7 +1350,7 @@ end;
{ TToolbarButtonActionLink } { TToolbarButtonActionLink }
procedure TToolbarButtonActionLink.SetImageIndex(Value: Integer); procedure TToolbarButtonActionLink.SetImageIndex(Value: TImageIndex);
begin begin
FClient.Invalidate; FClient.Invalidate;
end; end;