Changeset 8

Timestamp:

Feb 9, 2011, 1:36:53 PM (14 years ago)

Author:

chronos

Message:

• Fixed: Do not create new Lazarus config on every start.

Location:

trunk

Files:

• Forms/UMainForm.lfm (modified) (1 diff)
• FreePascalManager.lpi (modified) (4 diffs)
• UInstance.pas (modified) (2 diffs)

trunk/Forms/UMainForm.lfm

@@ -1 +1 @@
 object MainForm: TMainForm
-  Left = 203
+  Left = 196
   Height = 418
-  Top = 88
+  Top = 106
   Width = 677
   Caption = 'Free Pascal Manager'

trunk/FreePascalManager.lpi

@@ -56 +56 @@
         <EditorIndex Value="0"/>
         <WindowIndex Value="0"/>
-        <TopLine Value="279"/>
-        <CursorPos X="35" Y="294"/>
+        <TopLine Value="163"/>
+        <CursorPos X="55" Y="167"/>
         <UsageCount Value="116"/>
         <Loaded Value="True"/>
@@ -83 +83 @@
         <EditorIndex Value="5"/>
         <WindowIndex Value="0"/>
-        <TopLine Value="75"/>
-        <CursorPos X="1" Y="80"/>
+        <TopLine Value="122"/>
+        <CursorPos X="1" Y="131"/>
         <UsageCount Value="116"/>
         <Loaded Value="True"/>
@@ -338 +338 @@
     <JumpHistory Count="30" HistoryIndex="29">
       <Position1>
-        <Filename Value="Forms\UInstanceOptions.pas"/>
-        <Caret Line="112" Column="41" TopLine="92"/>
+        <Filename Value="Forms\USourceSelection.pas"/>
+        <Caret Line="86" Column="5" TopLine="79"/>
       </Position1>
       <Position2>
-        <Filename Value="Forms\UInstanceOptions.pas"/>
-        <Caret Line="86" Column="21" TopLine="65"/>
+        <Filename Value="Forms\USourceSelection.pas"/>
+        <Caret Line="29" Column="19" TopLine="16"/>
       </Position2>
       <Position3>
-        <Filename Value="Forms\UInstanceOptions.pas"/>
-        <Caret Line="62" Column="17" TopLine="51"/>
+        <Filename Value="USource.pas"/>
+        <Caret Line="29" Column="53" TopLine="21"/>
       </Position3>
       <Position4>
-        <Filename Value="Forms\USourceSelection.pas"/>
-        <Caret Line="86" Column="5" TopLine="79"/>
+        <Filename Value="USource.pas"/>
+        <Caret Line="19" Column="10" TopLine="7"/>
       </Position4>
       <Position5>
-        <Filename Value="Forms\USourceSelection.pas"/>
-        <Caret Line="29" Column="19" TopLine="16"/>
+        <Filename Value="Forms\UMainForm.pas"/>
+        <Caret Line="366" Column="47" TopLine="356"/>
       </Position5>
       <Position6>
-        <Filename Value="USource.pas"/>
-        <Caret Line="29" Column="53" TopLine="21"/>
+        <Filename Value="Forms\UMainForm.pas"/>
+        <Caret Line="364" Column="44" TopLine="353"/>
       </Position6>
       <Position7>
-        <Filename Value="USource.pas"/>
-        <Caret Line="55" Column="40" TopLine="157"/>
+        <Filename Value="Forms\UMainForm.pas"/>
+        <Caret Line="367" Column="42" TopLine="353"/>
       </Position7>
       <Position8>
-        <Filename Value="USource.pas"/>
-        <Caret Line="19" Column="10" TopLine="7"/>
+        <Filename Value="Forms\UMainForm.pas"/>
+        <Caret Line="370" Column="52" TopLine="354"/>
       </Position8>
       <Position9>
         <Filename Value="Forms\UMainForm.pas"/>
-        <Caret Line="366" Column="47" TopLine="356"/>
+        <Caret Line="276" Column="32" TopLine="265"/>
       </Position9>
       <Position10>
-        <Filename Value="Forms\UMainForm.pas"/>
-        <Caret Line="364" Column="44" TopLine="353"/>
+        <Filename Value="Forms\UMainOptions.pas"/>
+        <Caret Line="44" Column="44" TopLine="37"/>
       </Position10>
       <Position11>
         <Filename Value="Forms\UMainForm.pas"/>
-        <Caret Line="367" Column="42" TopLine="353"/>
+        <Caret Line="389" Column="58" TopLine="378"/>
       </Position11>
       <Position12>
         <Filename Value="Forms\UMainForm.pas"/>
-        <Caret Line="370" Column="52" TopLine="354"/>
+        <Caret Line="293" Column="45" TopLine="279"/>
       </Position12>
       <Position13>
-        <Filename Value="Forms\UMainForm.pas"/>
-        <Caret Line="276" Column="32" TopLine="265"/>
+        <Filename Value="Forms\UMainOptions.pas"/>
+        <Caret Line="45" Column="44" TopLine="38"/>
       </Position13>
       <Position14>
         <Filename Value="Forms\UMainOptions.pas"/>
-        <Caret Line="44" Column="44" TopLine="37"/>
+        <Caret Line="64" Column="3" TopLine="43"/>
       </Position14>
       <Position15>
         <Filename Value="Forms\UMainForm.pas"/>
-        <Caret Line="389" Column="58" TopLine="378"/>
+        <Caret Line="268" Column="16" TopLine="258"/>
       </Position15>
       <Position16>
         <Filename Value="Forms\UMainForm.pas"/>
-        <Caret Line="293" Column="45" TopLine="279"/>
+        <Caret Line="269" Column="16" TopLine="259"/>
       </Position16>
       <Position17>
-        <Filename Value="Forms\UMainOptions.pas"/>
-        <Caret Line="45" Column="44" TopLine="38"/>
+        <Filename Value="Forms\UMainForm.pas"/>
+        <Caret Line="270" Column="16" TopLine="260"/>
       </Position17>
       <Position18>
-        <Filename Value="Forms\UMainOptions.pas"/>
-        <Caret Line="64" Column="3" TopLine="43"/>
+        <Filename Value="Forms\UMainForm.pas"/>
+        <Caret Line="277" Column="16" TopLine="267"/>
       </Position18>
       <Position19>
         <Filename Value="Forms\UMainForm.pas"/>
-        <Caret Line="268" Column="16" TopLine="258"/>
+        <Caret Line="158" Column="19" TopLine="156"/>
       </Position19>
       <Position20>
         <Filename Value="Forms\UMainForm.pas"/>
-        <Caret Line="269" Column="16" TopLine="259"/>
+        <Caret Line="11" Column="19" TopLine="1"/>
       </Position20>
       <Position21>
         <Filename Value="Forms\UMainForm.pas"/>
-        <Caret Line="270" Column="16" TopLine="260"/>
+        <Caret Line="159" Column="24" TopLine="146"/>
       </Position21>
       <Position22>
-        <Filename Value="Forms\UMainForm.pas"/>
-        <Caret Line="277" Column="16" TopLine="267"/>
+        <Filename Value="Forms\USourceSelection.pas"/>
+        <Caret Line="54" Column="33" TopLine="38"/>
       </Position22>
       <Position23>
         <Filename Value="Forms\UMainForm.pas"/>
-        <Caret Line="158" Column="19" TopLine="156"/>
+        <Caret Line="294" Column="35" TopLine="279"/>
       </Position23>
       <Position24>
-        <Filename Value="Forms\UMainForm.pas"/>
-        <Caret Line="11" Column="19" TopLine="1"/>
+        <Filename Value="UInstance.pas"/>
+        <Caret Line="90" Column="25" TopLine="75"/>
       </Position24>
       <Position25>
-        <Filename Value="Forms\UMainForm.pas"/>
-        <Caret Line="159" Column="24" TopLine="146"/>
+        <Filename Value="UInstance.pas"/>
+        <Caret Line="80" Column="1" TopLine="75"/>
       </Position25>
       <Position26>
-        <Filename Value="Forms\USourceSelection.pas"/>
-        <Caret Line="54" Column="33" TopLine="38"/>
+        <Filename Value="UInstance.pas"/>
+        <Caret Line="91" Column="51" TopLine="75"/>
       </Position26>
       <Position27>
@@ -446 +446 @@
       </Position27>
       <Position28>
-        <Filename Value="UInstance.pas"/>
-        <Caret Line="90" Column="25" TopLine="75"/>
+        <Filename Value="Forms\UMainForm.pas"/>
+        <Caret Line="167" Column="55" TopLine="163"/>
       </Position28>
       <Position29>
         <Filename Value="UInstance.pas"/>
-        <Caret Line="80" Column="1" TopLine="75"/>
+        <Caret Line="109" Column="15" TopLine="102"/>
       </Position29>
       <Position30>
         <Filename Value="UInstance.pas"/>
-        <Caret Line="91" Column="51" TopLine="75"/>
+        <Caret Line="139" Column="41" TopLine="122"/>
       </Position30>
     </JumpHistory>

trunk/UInstance.pas

@@ -123 +123 @@
 var
   Config: TStringList;
+  ConfigFileName: string;
 begin
+  ConfigFileName := GetPath + DirectorySeparator + IDESource.ProjectShortName +
+    DirectorySeparator + 'config' + DirectorySeparator + 'environmentoptions.xml';
+  if not FileExistsUTF8(ConfigFileName) then
   try
     Config := TStringList.Create;
@@ -133 +137 @@
     Config.Text := StringReplace(Config.Text, '%FPCPlatform%', MainForm.Platform, [rfReplaceAll]);
     Config.Text := StringReplace(Config.Text, '%Temp%', GetEnvironmentVariableUTF8('Temp'), [rfReplaceAll]);
-    Config.SaveToFile(GetPath + DirectorySeparator + IDESource.ProjectShortName +
-      DirectorySeparator + 'config' + DirectorySeparator + 'environmentoptions.xml');
+    Config.SaveToFile(ConfigFileName);
   finally
     Config.Free;