paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-08 15:41:12 +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
The default componenteditor for TStringGrid }
TStringGridComponentEditor = class(TDefaultComponentEditor)
TStringGridComponentEditor = class(TComponentEditor)
public
procedure Edit; override;
procedure ExecuteVerb(Index: Integer); override;
function GetVerb(Index: Integer): string; override;
function GetVerbCount: Integer; override;
@ -288,11 +287,10 @@ type
{ TCheckListBoxComponentEditor
The default componenteditor for TCheckListBox }
TCheckListBoxComponentEditor = class(TDefaultComponentEditor)
TCheckListBoxComponentEditor = class(TComponentEditor)
protected
procedure DoShowEditor;
public
procedure Edit; override;
procedure ExecuteVerb(Index: Integer); override;
function GetVerb(Index: Integer): string; override;
function GetVerbCount: Integer; override;
@ -336,7 +334,6 @@ type
function GetVerbCount:integer;override;
function GetVerb(Index:integer):string;override;
procedure ExecuteVerb(Index:integer);override;
procedure Edit;override;
end;
@ -820,11 +817,6 @@ end;
{ TStringGridComponentEditor }
procedure TStringGridComponentEditor.Edit;
begin
ExecuteVerb(0);
end;
procedure TStringGridComponentEditor.ExecuteVerb(Index: Integer);
var
Hook: TPropertyEditorHook;
@ -887,11 +879,6 @@ begin
end;
end;
procedure TCheckListBoxComponentEditor.Edit;
begin
DoShowEditor;
end;
procedure TCheckListBoxComponentEditor.ExecuteVerb(Index: Integer);
begin
DoShowEditor;
@ -1080,7 +1067,7 @@ end;
procedure TCheckGroupComponentEditor.ExecuteVerb(Index: Integer);
begin
doShowEditor;
DoShowEditor;
end;
function TCheckGroupComponentEditor.GetVerb(Index: Integer): string;
@ -1172,11 +1159,6 @@ begin
end;
end;
procedure TCommonDialogComponentEditor.Edit;
begin
TestDialog;
end;
//------------------------------------------------------------------------------
procedure InternalFinal;

8
ideintf/imagelisteditor.pp
View File

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

8
ideintf/listviewpropedit.pp
View File

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

8
ideintf/treeviewpropedit.pas
View File

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