paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-06 00:58:04 +02:00
Code Issues Packages Projects Releases Wiki Activity

lcl: make TActionLink.SetImageIndex argument delphi compatible TImageIndex -> Integer

Browse Source 
git-svn-id: trunk@22727 -
This commit is contained in:
paul 2009-11-23 15:08:19 +00:00
parent 6264b25bc3
commit 7d3d566314
6 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/actnlist.pas
View File

@ -265,7 +265,7 @@ type
procedure SetHelpKeyword(const Value: string); virtual;
procedure SetHelpType(Value: THelpType); virtual;
procedure SetHint(const Value: string); virtual;
procedure SetImageIndex(Value: TImageIndex); virtual;
procedure SetImageIndex(Value: Integer); virtual;
procedure SetShortCut(Value: TShortCut); virtual;
procedure SetVisible(Value: Boolean); virtual;
public

2
lcl/comctrls.pp
View File

@ -1480,7 +1480,7 @@ type
protected
procedure AssignClient(AClient: TObject); override;
procedure SetChecked(Value: Boolean); override;
procedure SetImageIndex(Value: TImageIndex); override;
procedure SetImageIndex(Value: Integer); override;
public
function IsCheckedLinked: Boolean; override;
function IsImageIndexLinked: Boolean; override;

2
lcl/include/actionlink.inc
View File

@ -112,7 +112,7 @@ begin
end;
procedure TActionLink.SetImageIndex(Value: TImageIndex);
procedure TActionLink.SetImageIndex(Value: Integer);
begin
end;

2
lcl/include/menuactionlink.inc
View File

@ -116,7 +116,7 @@ begin
if IsHintLinked then FClient.Hint := Value;
end;
procedure TMenuActionLink.SetImageIndex(Value: TImageIndex);
procedure TMenuActionLink.SetImageIndex(Value: Integer);
begin
if IsImageIndexLinked then FClient.ImageIndex := Value;
end;

2
lcl/include/toolbutton.inc
View File

@ -43,7 +43,7 @@ begin
TToolButton(FClient).Down := Value;
end;
procedure TToolButtonActionLink.SetImageIndex(Value: TImageIndex);
procedure TToolButtonActionLink.SetImageIndex(Value: Integer);
begin
{DebugLn(['TToolButtonActionLink.SetImageIndex A ',ClassName,' Client=',
TToolButton(FClient).Name,' IsImageIndexLinked=',

2
lcl/menus.pp
View File

@ -78,7 +78,7 @@ type
procedure SetEnabled(Value: Boolean); override;
procedure SetHelpContext(Value: THelpContext); override;
procedure SetHint(const Value: string); override;
procedure SetImageIndex(Value: TImageIndex); override;
procedure SetImageIndex(Value: Integer); override;
procedure SetShortCut(Value: TShortCut); override;
procedure SetVisible(Value: Boolean); override;
procedure SetOnExecute(Value: TNotifyEvent); override;