paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2026-01-06 11:00:29 +01:00
Code Issues Packages Projects Releases Wiki Activity

added new file page to add to package dialog

Browse Source 
git-svn-id: trunk@7300 -
This commit is contained in:
mattias 2005-06-30 10:46:23 +00:00
parent f3505a348b
commit 10fed2b9bd
3 changed files with 10 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
ide/main.pp
View File

@ -493,7 +493,7 @@ type
// methods for 'new unit'
function CreateNewCodeBuffer(Descriptor: TProjectFileDescriptor;
NewFilename: string; var NewCodeBuffer: TCodeBuffer;
NewOwner: TObject; NewFilename: string; var NewCodeBuffer: TCodeBuffer;
var NewUnitName: string): TModalResult;
function CreateNewForm(NewUnitInfo: TUnitInfo;
AncestorType: TPersistentClass; ResourceCode: TCodeBuffer): TModalResult;
@ -3261,12 +3261,13 @@ end;
//==============================================================================
function TMainIDE.CreateNewCodeBuffer(Descriptor: TProjectFileDescriptor;
NewFilename: string;
NewOwner: TObject; NewFilename: string;
var NewCodeBuffer: TCodeBuffer; var NewUnitName: string): TModalResult;
begin
//debugln('TMainIDE.CreateNewCodeBuffer START NewFilename=',NewFilename,' ',Descriptor.DefaultFilename,' ',Descriptor.ClassName);
NewUnitName:='';
if NewFilename='' then begin
if Descriptor.IsPascalUnit then begin
NewUnitName:=Project1.NewUniqueUnitName(Descriptor.DefaultSourceName);
NewFilename:=lowercase(NewUnitName)+Descriptor.DefaultFileExt;
@ -11735,6 +11736,9 @@ end.
{ =============================================================================
$Log$
Revision 1.879 2005/06/30 10:46:13 mattias
added new file page to add to package dialog
Revision 1.878 2005/06/25 17:10:41 mattias
extended IDE frontend for two IDE shortcuts with two key sequences

3
ideintf/newitemintf.pas
View File

@ -89,6 +89,7 @@ type
TNewIDEItemTemplate = class(TPersistent)
private
fCategory: TNewIDEItemCategory;
FVisibleInNewDialog: boolean;
protected
FAllowedFlags: TNewIDEItemFlags;
FDefaultFlag: TNewIDEItemFlag;
@ -105,6 +106,7 @@ type
property AllowedFlags: TNewIDEItemFlags read FAllowedFlags;
property Name: string read FName;
property Category: TNewIDEItemCategory read fCategory write fCategory; // main category
property VisibleInNewDialog: boolean read FVisibleInNewDialog write FVisibleInNewDialog;
end;
TNewIDEItemTemplateClass = class of TNewIDEItemTemplate;
@ -147,6 +149,7 @@ begin
FName:=AName;
FDefaultFlag:=ADefaultFlag;
FAllowedFlags:=TheAllowedFlags;
FVisibleInNewDialog:=true;
Include(FAllowedFlags,FDefaultFlag);
end;

2
ideintf/projectintf.pas
View File

@ -331,7 +331,7 @@ type
property UseCreateFormStatements: boolean read FUseCreateFormStatements write FUseCreateFormStatements;
property VisibleInNewDialog: boolean read FVisibleInNewDialog write FVisibleInNewDialog;
property IsPascalUnit: boolean read FIsPascalUnit write FIsPascalUnit;
property AddToProject: boolean read FAddToProject write FAddToProject;
property AddToProject: boolean read FAddToProject write FAddToProject;// only if there is choice
end;
TProjectFileDescriptorClass = class of TProjectFileDescriptor;