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

IDEIntf: added default params

Browse Source 
git-svn-id: trunk@22633 -
This commit is contained in:
mattias 2009-11-17 04:29:12 +00:00
parent f8141283a2
commit 9e8c913c8c
1 changed files with 6 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
ideintf/newitemintf.pas
View File

@ -27,7 +27,7 @@ uses
type
// Flags/Options for the items
TNewIDEItemFlag = (
niifCopy,
niifCopy, // default
niifInherited,
niifUse
);
@ -86,11 +86,6 @@ type
read GetItems write SetItems; default;
end;
var
NewIDEItems: TNewIDEItemCategories;// will be set by the IDE
type
{ TNewIDEItemTemplate }
TNewIDEItemTemplate = class(TPersistent)
@ -103,8 +98,9 @@ type
FDefaultFlag: TNewIDEItemFlag;
FName: string;
public
constructor Create(const AName: string; ADefaultFlag: TNewIDEItemFlag;
TheAllowedFlags: TNewIDEItemFlags);
constructor Create(const AName: string;
ADefaultFlag: TNewIDEItemFlag = niifCopy;
TheAllowedFlags: TNewIDEItemFlags = [niifCopy]);
function LocalizedName: string; virtual;
function Description: string; virtual;
function CreateCopy: TNewIDEItemTemplate; virtual;
@ -119,6 +115,8 @@ type
end;
TNewIDEItemTemplateClass = class of TNewIDEItemTemplate;
var
NewIDEItems: TNewIDEItemCategories;// will be set by the IDE
procedure RegisterNewDialogItem(const Paths: string;
NewItem: TNewIDEItemTemplate);