paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-24 01:49:28 +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 SetHelpKeyword(const Value: string); virtual;
procedure SetHelpType(Value: THelpType); virtual; procedure SetHelpType(Value: THelpType); virtual;
procedure SetHint(const Value: string); virtual; procedure SetHint(const Value: string); virtual;
procedure SetImageIndex(Value: TImageIndex); virtual; procedure SetImageIndex(Value: Integer); virtual;
procedure SetShortCut(Value: TShortCut); virtual; procedure SetShortCut(Value: TShortCut); virtual;
procedure SetVisible(Value: Boolean); virtual; procedure SetVisible(Value: Boolean); virtual;
public public

2
lcl/comctrls.pp
View File

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

2
lcl/include/actionlink.inc
View File

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

2
lcl/include/menuactionlink.inc
View File

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

2
lcl/include/toolbutton.inc
View File

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

2
lcl/menus.pp
View File

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