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

LCL: Make TCustomAction more compatible with current Delphi. Issue #41005, patch by Alexander (Rouse_) Bagel.

Browse Source
This commit is contained in:
Juha 2024-06-29 14:13:32 +03:00
parent 134275eeec
commit da3310dd21
1 changed files with 14 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

27
lcl/actnlist.pas
View File

@ -167,18 +167,6 @@ type
FSecondaryShortCuts: TShortCutList;// nil as default
FShortCut: TShortCut;
FVisible: Boolean;
procedure SetAutoCheck(Value: Boolean);
procedure SetCaption(const Value: TTranslateString);
procedure SetChecked(Value: Boolean);
procedure SetEnabled(Value: Boolean);
procedure SetGroupIndex(const Value: Integer);
procedure SetHelpContext(Value: THelpContext); virtual;
procedure SetHelpKeyword(const Value: string); virtual;
procedure SetHelpType(Value: THelpType);
procedure SetHint(const Value: TTranslateString);
procedure SetImageIndex(Value: TImageIndex);
procedure SetShortCut(Value: TShortCut);
procedure SetVisible(Value: Boolean);
function GetSecondaryShortCuts: TShortCutList;
procedure SetSecondaryShortCuts(const Value: TShortCutList);
function IsSecondaryShortCutsStored: Boolean;
@ -186,8 +174,21 @@ type
FImage: TObject;
FMask: TObject;
procedure AssignTo(Dest: TPersistent); override;
procedure SetName(const Value: TComponentName); override;
function HandleShortCut: Boolean; virtual;
procedure SetAutoCheck(Value: Boolean); virtual;
procedure SetCaption(const Value: TTranslateString); virtual;
procedure SetChecked(Value: Boolean); virtual;
procedure SetEnabled(Value: Boolean); virtual;
procedure SetGroupIndex(const Value: Integer); virtual;
procedure SetHelpContext(Value: THelpContext); virtual;
procedure SetHelpKeyword(const Value: string); virtual;
procedure SetHelpType(Value: THelpType); virtual;
procedure SetHint(const Value: TTranslateString); virtual;
procedure SetImageIndex(Value: TImageIndex); virtual;
procedure SetName(const Value: TComponentName); override;
procedure SetShortCut(Value: TShortCut); virtual;
procedure SetVisible(Value: Boolean); virtual;
property SavedEnabledState: Boolean
read FSavedEnabledState write FSavedEnabledState;
public