Enables the "Run" button of IDE for FastCGI applications (please see …

…issue 1).
silvioprog · Dec 28, 2012 · a8e0cfc · a8e0cfc
1 parent e3f5567
commit a8e0cfc
Showing 1 changed file with 6 additions and 2 deletions.
diff --git a/ideintf/brookprojectintf.pas b/ideintf/brookprojectintf.pas
@@ -352,11 +352,15 @@ function TBrookProjectDescriptor.InitProject(
   VProject.IsPartOfProject := True;
   AProject.AddFile(VProject, False);
   AProject.AddPackageDependency('BrookRT');
+  AProject.Flags := AProject.Flags - [pfMainUnitHasCreateFormStatements, pfRunnable];
   case VDlg.rgAppType.ItemIndex of
     0: AProject.LazCompilerOptions.TargetFileName := VDlg.edAppName.Text;
-    1: AProject.LazCompilerOptions.TargetFileName := VDlg.edAppName.Text + '.fcgi';
+    1:
+      begin
+        AProject.LazCompilerOptions.TargetFileName := VDlg.edAppName.Text + '.fcgi';
+        AProject.Flags := AProject.Flags + [pfRunnable];
+      end;
   end;
-  AProject.Flags := AProject.Flags - [pfMainUnitHasCreateFormStatements, pfRunnable];
   AProject.LazCompilerOptions.Win32GraphicApp := False;
   AProject.LazCompilerOptions.TargetFilenameApplyConventions := False;
   AProject.SessionStorage := pssInProjectInfo;