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

let some dialog component editors directly descend from TBaseComponentEditor

Browse Source 
git-svn-id: trunk@9735 -
This commit is contained in:
vincents 2006-08-19 20:14:27 +00:00
parent 151bf87d3b
commit 64c1a69360
4 changed files with 6 additions and 42 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
ideintf/componenteditors.pas
View File

@ -277,9 +277,8 @@ type
{ TStringGridComponentEditor { TStringGridComponentEditor
The default componenteditor for TStringGrid } The default componenteditor for TStringGrid }
TStringGridComponentEditor = class(TDefaultComponentEditor) TStringGridComponentEditor = class(TComponentEditor)
public public
procedure Edit; override;
procedure ExecuteVerb(Index: Integer); override; procedure ExecuteVerb(Index: Integer); override;
function GetVerb(Index: Integer): string; override; function GetVerb(Index: Integer): string; override;
function GetVerbCount: Integer; override; function GetVerbCount: Integer; override;
@ -288,11 +287,10 @@ type
{ TCheckListBoxComponentEditor { TCheckListBoxComponentEditor
The default componenteditor for TCheckListBox } The default componenteditor for TCheckListBox }
TCheckListBoxComponentEditor = class(TDefaultComponentEditor) TCheckListBoxComponentEditor = class(TComponentEditor)
protected protected
procedure DoShowEditor; procedure DoShowEditor;
public public
procedure Edit; override;
procedure ExecuteVerb(Index: Integer); override; procedure ExecuteVerb(Index: Integer); override;
function GetVerb(Index: Integer): string; override; function GetVerb(Index: Integer): string; override;
function GetVerbCount: Integer; override; function GetVerbCount: Integer; override;
@ -336,7 +334,6 @@ type
function GetVerbCount:integer;override; function GetVerbCount:integer;override;
function GetVerb(Index:integer):string;override; function GetVerb(Index:integer):string;override;
procedure ExecuteVerb(Index:integer);override; procedure ExecuteVerb(Index:integer);override;
procedure Edit;override;
end; end;
@ -820,11 +817,6 @@ end;
{ TStringGridComponentEditor } { TStringGridComponentEditor }
procedure TStringGridComponentEditor.Edit;
begin
ExecuteVerb(0);
end;
procedure TStringGridComponentEditor.ExecuteVerb(Index: Integer); procedure TStringGridComponentEditor.ExecuteVerb(Index: Integer);
var var
Hook: TPropertyEditorHook; Hook: TPropertyEditorHook;
@ -887,11 +879,6 @@ begin
end; end;
end; end;
procedure TCheckListBoxComponentEditor.Edit;
begin
DoShowEditor;
end;
procedure TCheckListBoxComponentEditor.ExecuteVerb(Index: Integer); procedure TCheckListBoxComponentEditor.ExecuteVerb(Index: Integer);
begin begin
DoShowEditor; DoShowEditor;
@ -1080,7 +1067,7 @@ end;
procedure TCheckGroupComponentEditor.ExecuteVerb(Index: Integer); procedure TCheckGroupComponentEditor.ExecuteVerb(Index: Integer);
begin begin
doShowEditor; DoShowEditor;
end; end;
function TCheckGroupComponentEditor.GetVerb(Index: Integer): string; function TCheckGroupComponentEditor.GetVerb(Index: Integer): string;
@ -1172,11 +1159,6 @@ begin
end; end;
end; end;
procedure TCommonDialogComponentEditor.Edit;
begin
TestDialog;
end;
//------------------------------------------------------------------------------ //------------------------------------------------------------------------------
procedure InternalFinal; procedure InternalFinal;

8
ideintf/imagelisteditor.pp
View File

@ -101,11 +101,10 @@ type
{ TImageListComponentEditor } { TImageListComponentEditor }
TImageListComponentEditor = class(TDefaultComponentEditor) TImageListComponentEditor = class(TComponentEditor)
protected protected
procedure DoShowEditor; procedure DoShowEditor;
public public
procedure Edit; override;
procedure ExecuteVerb(Index: Integer); override; procedure ExecuteVerb(Index: Integer); override;
function GetVerb(Index: Integer): String; override; function GetVerb(Index: Integer): String; override;
function GetVerbCount: Integer; override; function GetVerbCount: Integer; override;
@ -523,11 +522,6 @@ begin
DebugLn('TImageListComponentEditor.DoShowEditor END '); DebugLn('TImageListComponentEditor.DoShowEditor END ');
end; end;
procedure TImageListComponentEditor.Edit;
begin
DoShowEditor;
end;
procedure TImageListComponentEditor.ExecuteVerb(Index: Integer); procedure TImageListComponentEditor.ExecuteVerb(Index: Integer);
begin begin
DoShowEditor; DoShowEditor;

8
ideintf/listviewpropedit.pp
View File

@ -74,9 +74,8 @@ type
{ TListViewComponentEditor } { TListViewComponentEditor }
TListViewComponentEditor = class(TDefaultComponentEditor) TListViewComponentEditor = class(TComponentEditor)
public public
procedure Edit; override;
procedure ExecuteVerb(Index: Integer); override; procedure ExecuteVerb(Index: Integer); override;
function GetVerb(Index: Integer): string; override; function GetVerb(Index: Integer): string; override;
function GetVerbCount: Integer; override; function GetVerbCount: Integer; override;
@ -302,11 +301,6 @@ end;
{ TListViewComponentEditor } { TListViewComponentEditor }
procedure TListViewComponentEditor.Edit;
begin
ExecuteVerb(0);
end;
procedure TListViewComponentEditor.ExecuteVerb(Index: Integer); procedure TListViewComponentEditor.ExecuteVerb(Index: Integer);
var var
Hook: TPropertyEditorHook; Hook: TPropertyEditorHook;

8
ideintf/treeviewpropedit.pas
View File

@ -81,9 +81,8 @@ type
{ TTreeViewComponentEditor } { TTreeViewComponentEditor }
TTreeViewComponentEditor = class(TDefaultComponentEditor) TTreeViewComponentEditor = class(TComponentEditor)
public public
procedure Edit; override;
procedure ExecuteVerb(Index: Integer); override; procedure ExecuteVerb(Index: Integer); override;
function GetVerb(Index: Integer): string; override; function GetVerb(Index: Integer): string; override;
function GetVerbCount: Integer; override; function GetVerbCount: Integer; override;
@ -255,11 +254,6 @@ begin
end; end;
{ TTreeViewComponentEditor } { TTreeViewComponentEditor }
procedure TTreeViewComponentEditor.Edit;
begin
ExecuteVerb(0);
end;
procedure TTreeViewComponentEditor.ExecuteVerb(Index: Integer); procedure TTreeViewComponentEditor.ExecuteVerb(Index: Integer);
var var
Hook: TPropertyEditorHook; Hook: TPropertyEditorHook;