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

IDEIntf: added BuildFileIfActive and RnFileIfActive for file descriptors

Browse Source 
git-svn-id: trunk@22251 -
This commit is contained in:
mattias 2009-10-21 16:50:24 +00:00
parent 6fab82a729
commit bac47a7cdb
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
ideintf/projectintf.pas
View File

@ -477,6 +477,7 @@ type
TProjectFileDescriptor = class(TPersistent)
private
FAddToProject: boolean;
FBuildFileIfActive: boolean;
FDefaultFileExt: string;
FDefaultFilename: string;
FDefaultResFileExt: string;
@ -488,6 +489,7 @@ type
FReferenceCount: integer;
FResourceClass: TPersistentClass;
FRequiredPackages: string;
FRunFileIfActive: boolean;
FUseCreateFormStatements: boolean;
FVisibleInNewDialog: boolean;
protected
@ -522,6 +524,8 @@ type
property VisibleInNewDialog: boolean read FVisibleInNewDialog write FVisibleInNewDialog;
property IsPascalUnit: boolean read FIsPascalUnit write FIsPascalUnit;
property AddToProject: boolean read FAddToProject write FAddToProject;// only if there is choice
property BuildFileIfActive: boolean read FBuildFileIfActive write FBuildFileIfActive;
property RunFileIfActive: boolean read FRunFileIfActive write FRunFileIfActive;
end;
TProjectFileDescriptorClass = class of TProjectFileDescriptor;