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

IDE: new project types: program, custom program: disable Application statements

Browse Source 
git-svn-id: trunk@21428 -
This commit is contained in:
mattias 2009-08-23 17:39:15 +00:00
parent 45c71a628a
commit 4477513d4d
1 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
ide/project.pp
View File

@ -5260,6 +5260,7 @@ constructor TProjectProgramDescriptor.Create;
begin begin
inherited Create; inherited Create;
Name:=ProjDescNameProgram; Name:=ProjDescNameProgram;
Flags:=Flags-[pfMainUnitHasCreateFormStatements,pfMainUnitHasTitleStatement];
end; end;
function TProjectProgramDescriptor.GetLocalizedName: string; function TProjectProgramDescriptor.GetLocalizedName: string;
@ -5453,6 +5454,7 @@ constructor TProjectLibraryDescriptor.Create;
begin begin
inherited Create; inherited Create;
Name:=ProjDescNameLibrary; Name:=ProjDescNameLibrary;
Flags:=Flags-[pfMainUnitHasCreateFormStatements,pfMainUnitHasTitleStatement];
end; end;
function TProjectLibraryDescriptor.GetLocalizedName: string; function TProjectLibraryDescriptor.GetLocalizedName: string;
@ -5671,6 +5673,7 @@ constructor TProjectConsoleApplicationDescriptor.Create;
begin begin
inherited Create; inherited Create;
Name:=ProjDescNameConsoleApplication; Name:=ProjDescNameConsoleApplication;
Flags:=Flags-[pfMainUnitHasCreateFormStatements,pfMainUnitHasTitleStatement];
end; end;
function TProjectConsoleApplicationDescriptor.GetLocalizedName: string; function TProjectConsoleApplicationDescriptor.GetLocalizedName: string;