paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-28 09:51:02 +01:00
Code Issues Packages Projects Releases Wiki Activity

IDEIntf: RegisterIDEMenuCommand: added UserTag

Browse Source 
git-svn-id: trunk@36196 -
This commit is contained in:
mattias 2012-03-21 22:41:02 +00:00
parent 61bae46e30
commit 73c7b2763d
1 changed files with 12 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
ideintf/menuintf.pas
View File

@ -229,6 +229,7 @@ type
FRadioItem: Boolean;
FRightJustify: boolean;
FShowAlwaysCheckable: boolean;
FUserTag: PtrUInt;
protected
procedure MenuItemClick(Sender: TObject); override;
procedure SetAutoCheck(const AValue: boolean); virtual;
@ -253,6 +254,7 @@ type
property RightJustify: boolean read FRightJustify write SetRightJustify;
property ShowAlwaysCheckable: boolean read FShowAlwaysCheckable
write SetShowAlwaysCheckable;
property UserTag: PtrUInt read FUserTag write FUserTag;
end;
TIDEMenuCommandClass = class of TIDEMenuCommand;
@ -463,13 +465,15 @@ function RegisterIDEMenuCommand(Parent: TIDEMenuSection;
const OnClickMethod: TNotifyEvent = nil;
const OnClickProc: TNotifyProcedure = nil;
const Command: TIDECommand = nil;
const ResourceName: String = ''
const ResourceName: String = '';
const UserTag: PtrUint = 0
): TIDEMenuCommand; overload;
function RegisterIDEMenuCommand(const Path, Name, Caption: string;
const OnClickMethod: TNotifyEvent = nil;
const OnClickProc: TNotifyProcedure = nil;
const Command: TIDECommand = nil;
const ResourceName: String = ''
const ResourceName: String = '';
const UserTag: PtrUInt = 0
): TIDEMenuCommand; overload;
implementation
@ -531,7 +535,8 @@ function RegisterIDEMenuCommand(Parent: TIDEMenuSection;
const OnClickMethod: TNotifyEvent = nil;
const OnClickProc: TNotifyProcedure = nil;
const Command: TIDECommand = nil;
const ResourceName: String = ''
const ResourceName: String = '';
const UserTag: PtrUInt = 0
): TIDEMenuCommand;
begin
Result := TIDEMenuCommand.Create(Name);
@ -540,6 +545,7 @@ begin
Result.OnClickProc := OnClickProc;
Result.Command := Command;
Result.ResourceName := ResourceName;
Result.UserTag := UserTag;
Parent.AddLast(Result);
end;
@ -547,7 +553,8 @@ function RegisterIDEMenuCommand(const Path, Name, Caption: string;
const OnClickMethod: TNotifyEvent = nil;
const OnClickProc: TNotifyProcedure = nil;
const Command: TIDECommand = nil;
const ResourceName: String = ''
const ResourceName: String = '';
const UserTag: PtrUInt = 0
): TIDEMenuCommand;
var
Parent: TIDEMenuSection;
@ -555,7 +562,7 @@ begin
//debugln('RegisterIDEMenuCommand Path="',Path,'" Name="',Name,'"');
Parent := IDEMenuRoots.FindByPath(Path,true) as TIDEMenuSection;
Result := RegisterIDEMenuCommand(Parent, Name, Caption,
OnClickMethod, OnClickProc, Command, ResourceName);
OnClickMethod, OnClickProc, Command, ResourceName, UserTag);
end;
{ TIDEMenuItem }