pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

jvcllaz: Cosmetic changes in TJvOutlookBar component/property editor unit

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@6353 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2018-04-25 07:47:38 +00:00
parent f32f1be7b7
commit 100954c7a4
1 changed files with 10 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files

20
components/jvcllaz/design/JvCustomControls/JvOutlookBarEditors.pas
View File

@ -51,16 +51,6 @@ type
procedure SetValue(const Value: string); override; procedure SetValue(const Value: string); override;
end; end;
TJvOutlookBarEditor = class(TComponentEditor)
protected
function GetOutlookBar: TJvCustomOutlookBar;
procedure OpenEditor;
public
procedure ExecuteVerb(Index: Integer); override;
function GetVerb(Index: Integer): string; override;
function GetVerbCount: Integer; override;
end;
TJvOutlookBarPagesProperty = class(TPropertyEditor) TJvOutlookBarPagesProperty = class(TPropertyEditor)
private private
function GetOutlookBar: TJvCustomOutlookBar; function GetOutlookBar: TJvCustomOutlookBar;
@ -83,6 +73,16 @@ type
function GetImageList: TCustomImageList; override; function GetImageList: TCustomImageList; override;
end; end;
TJvOutlookBarEditor = class(TComponentEditor)
protected
function GetOutlookBar: TJvCustomOutlookBar;
procedure OpenEditor;
public
procedure ExecuteVerb(Index: Integer); override;
function GetVerb(Index: Integer): string; override;
function GetVerbCount: Integer; override;
end;
implementation implementation