From: Dmitry D. Chernov <blackdoomer@yandex.ru>
Date: Thu, 28 Sep 2017 16:14:23 +0000 (+1000)
Subject: Disable bugged Lazarus auto management for the main project file (*.lpr)
X-Git-Url: http://deadsoftware.ru/gitweb?a=commitdiff_plain;h=a5105ea646c6744f8532a09cb4c37afe5554bcd5;p=d2df-editor.git

Disable bugged Lazarus auto management for the main project file (*.lpr)
---

diff --git a/src/editor/Editor.lpi b/src/editor/Editor.lpi
index 4eeb4af..0d82f98 100644
--- a/src/editor/Editor.lpi
+++ b/src/editor/Editor.lpi
@@ -4,6 +4,8 @@
     <Version Value="10"/>
     <General>
       <Flags>
+        <MainUnitHasUsesSectionForAllUnits Value="False"/>
+        <MainUnitHasCreateFormStatements Value="False"/>
         <MainUnitHasTitleStatement Value="False"/>
       </Flags>
       <SessionStorage Value="InProjectDir"/>
@@ -23,7 +25,7 @@
       <RevisionNr Value="5"/>
       <Language Value="0419"/>
       <CharSet Value="04E3"/>
-      <StringTable CompanyName="www.doom2d.org" FileDescription="Doom 2D: Forever Map Editor" InternalName="Редактор карт Doom 2D: Forever" LegalCopyright="All rights reserved." OriginalFilename="Editor" ProductName="Doom 2D: Forever Map Editor"/>
+      <StringTable CompanyName="www.doom2d.org" FileDescription="Doom 2D: Forever Map Editor" InternalName="Редактор карт Doom 2D: Forever" LegalCopyright="All rights reserved." OriginalFilename="Editor" ProductName="Doom 2D: Forever Map Editor" ProductVersion=""/>
     </VersionInfo>
     <BuildModes Count="1">
       <Item1 Name="Default" Default="True"/>
diff --git a/src/editor/Editor.lpr b/src/editor/Editor.lpr
index 71f5906..f1a9c30 100644
--- a/src/editor/Editor.lpr
+++ b/src/editor/Editor.lpr
@@ -52,7 +52,8 @@ uses
 {$R *.res}
 
 begin
-  Application.Initialize;
+  Application.Initialize();
+
   Application.CreateForm(TMainForm, MainForm);
   Application.CreateForm(TOptionsForm, OptionsForm);
   Application.CreateForm(TAboutForm, AboutForm);
@@ -72,7 +73,7 @@ begin
   Application.CreateForm(TMapTestForm, MapTestForm);
   Application.CreateForm(TChooseTypeForm, ChooseTypeForm);
   Application.CreateForm(TSelectLanguageForm, SelectLanguageForm);
-  if ParamStr(1) <> '' then OpenMap(ParamStr(1), '');
 
-  Application.Run;
+  if ParamStr(1) <> '' then OpenMap(ParamStr(1), '');
+  Application.Run();
 end.