From a5105ea646c6744f8532a09cb4c37afe5554bcd5 Mon Sep 17 00:00:00 2001
From: "Dmitry D. Chernov" <blackdoomer@yandex.ru>
Date: Fri, 29 Sep 2017 02:14:23 +1000
Subject: [PATCH] Disable bugged Lazarus auto management for the main project
 file (*.lpr)

---
 src/editor/Editor.lpi | 4 +++-
 src/editor/Editor.lpr | 7 ++++---
 2 files changed, 7 insertions(+), 4 deletions(-)

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.
-- 
2.29.2