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

implemented Edit verb for default and menu component editors

Browse Source 
git-svn-id: trunk@4905 -
This commit is contained in:
mattias 2003-12-18 16:31:29 +00:00
parent 6879fd5729
commit ba6b0fd474
2 changed files with 36 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
designer/componenteditors.pas
View File

@ -184,6 +184,9 @@ type
var Continue: Boolean); virtual;
public
procedure Edit; override;
function GetVerbCount: Integer; override;
function GetVerb(Index: Integer): string; override;
procedure ExecuteVerb(Index: Integer); override;
end;
{ TNotebookComponentEditor
@ -446,6 +449,21 @@ begin
end;
end;
function TDefaultComponentEditor.GetVerbCount: Integer;
begin
Result:=1;
end;
function TDefaultComponentEditor.GetVerb(Index: Integer): string;
begin
Result:='Edit';
end;
procedure TDefaultComponentEditor.ExecuteVerb(Index: Integer);
begin
Edit;
end;
{ TNotebookComponentEditor }

18
designer/menueditorform.pas
View File

@ -75,6 +75,9 @@ type
destructor Destroy; override;
procedure Edit; override;
property Menu: TMainMenu read fMenu write fMenu;
function GetVerbCount: Integer; override;
function GetVerb(Index: Integer): string; override;
procedure ExecuteVerb(Index: Integer); override;
end;
var
@ -266,6 +269,21 @@ begin
//MainMenuEditorForm.Free;
end;
function TMainMenuComponentEditor.GetVerbCount: Integer;
begin
Result:=1;
end;
function TMainMenuComponentEditor.GetVerb(Index: Integer): string;
begin
Result:='Edit';
end;
procedure TMainMenuComponentEditor.ExecuteVerb(Index: Integer);
begin
Edit;
end;
{ //TMainMenuComponentEditor}
initialization