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

diff --git a/src/editor/Editor.lpi b/src/editor/Editor.lpi
index 4eeb4af4ff278c54f6a58e2f98aff674907e1337..0d82f98cbea70c2f35e23e4d705b726aeb8f27bc 100644 (file)
--- 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 71f5906bf6784736fa889e0cb245e44726b9d4a2..f1a9c3055c2b81e17809a831312df8aba3ba392e 100644 (file)
--- 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.