Changeset 8 for trunk


Ignore:
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:
3 edited

Legend:

Unmodified
Added
Removed

  • trunk/Forms/UMainForm.lfm

    r7 r8  
    11object MainForm: TMainForm
    2   Left = 203
     2  Left = 196
    33  Height = 418
    4   Top = 88
     4  Top = 106
    55  Width = 677
    66  Caption = 'Free Pascal Manager'

  • trunk/FreePascalManager.lpi

    r7 r8  
    5656        <EditorIndex Value="0"/>
    5757        <WindowIndex Value="0"/>
    58         <TopLine Value="279"/>
    59         <CursorPos X="35" Y="294"/>
     58        <TopLine Value="163"/>
     59        <CursorPos X="55" Y="167"/>
    6060        <UsageCount Value="116"/>
    6161        <Loaded Value="True"/>
    … …  
    8383        <EditorIndex Value="5"/>
    8484        <WindowIndex Value="0"/>
    85         <TopLine Value="75"/>
    86         <CursorPos X="1" Y="80"/>
     85        <TopLine Value="122"/>
     86        <CursorPos X="1" Y="131"/>
    8787        <UsageCount Value="116"/>
    8888        <Loaded Value="True"/>
    … …  
    338338    <JumpHistory Count="30" HistoryIndex="29">
    339339      <Position1>
    340         <Filename Value="Forms\UInstanceOptions.pas"/>
    341         <Caret Line="112" Column="41" TopLine="92"/>
     340        <Filename Value="Forms\USourceSelection.pas"/>
     341        <Caret Line="86" Column="5" TopLine="79"/>
    342342      </Position1>
    343343      <Position2>
    344         <Filename Value="Forms\UInstanceOptions.pas"/>
    345         <Caret Line="86" Column="21" TopLine="65"/>
     344        <Filename Value="Forms\USourceSelection.pas"/>
     345        <Caret Line="29" Column="19" TopLine="16"/>
    346346      </Position2>
    347347      <Position3>
    348         <Filename Value="Forms\UInstanceOptions.pas"/>
    349         <Caret Line="62" Column="17" TopLine="51"/>
     348        <Filename Value="USource.pas"/>
     349        <Caret Line="29" Column="53" TopLine="21"/>
    350350      </Position3>
    351351      <Position4>
    352         <Filename Value="Forms\USourceSelection.pas"/>
    353         <Caret Line="86" Column="5" TopLine="79"/>
     352        <Filename Value="USource.pas"/>
     353        <Caret Line="19" Column="10" TopLine="7"/>
    354354      </Position4>
    355355      <Position5>
    356         <Filename Value="Forms\USourceSelection.pas"/>
    357         <Caret Line="29" Column="19" TopLine="16"/>
     356        <Filename Value="Forms\UMainForm.pas"/>
     357        <Caret Line="366" Column="47" TopLine="356"/>
    358358      </Position5>
    359359      <Position6>
    360         <Filename Value="USource.pas"/>
    361         <Caret Line="29" Column="53" TopLine="21"/>
     360        <Filename Value="Forms\UMainForm.pas"/>
     361        <Caret Line="364" Column="44" TopLine="353"/>
    362362      </Position6>
    363363      <Position7>
    364         <Filename Value="USource.pas"/>
    365         <Caret Line="55" Column="40" TopLine="157"/>
     364        <Filename Value="Forms\UMainForm.pas"/>
     365        <Caret Line="367" Column="42" TopLine="353"/>
    366366      </Position7>
    367367      <Position8>
    368         <Filename Value="USource.pas"/>
    369         <Caret Line="19" Column="10" TopLine="7"/>
     368        <Filename Value="Forms\UMainForm.pas"/>
     369        <Caret Line="370" Column="52" TopLine="354"/>
    370370      </Position8>
    371371      <Position9>
    372372        <Filename Value="Forms\UMainForm.pas"/>
    373         <Caret Line="366" Column="47" TopLine="356"/>
     373        <Caret Line="276" Column="32" TopLine="265"/>
    374374      </Position9>
    375375      <Position10>
    376         <Filename Value="Forms\UMainForm.pas"/>
    377         <Caret Line="364" Column="44" TopLine="353"/>
     376        <Filename Value="Forms\UMainOptions.pas"/>
     377        <Caret Line="44" Column="44" TopLine="37"/>
    378378      </Position10>
    379379      <Position11>
    380380        <Filename Value="Forms\UMainForm.pas"/>
    381         <Caret Line="367" Column="42" TopLine="353"/>
     381        <Caret Line="389" Column="58" TopLine="378"/>
    382382      </Position11>
    383383      <Position12>
    384384        <Filename Value="Forms\UMainForm.pas"/>
    385         <Caret Line="370" Column="52" TopLine="354"/>
     385        <Caret Line="293" Column="45" TopLine="279"/>
    386386      </Position12>
    387387      <Position13>
    388         <Filename Value="Forms\UMainForm.pas"/>
    389         <Caret Line="276" Column="32" TopLine="265"/>
     388        <Filename Value="Forms\UMainOptions.pas"/>
     389        <Caret Line="45" Column="44" TopLine="38"/>
    390390      </Position13>
    391391      <Position14>
    392392        <Filename Value="Forms\UMainOptions.pas"/>
    393         <Caret Line="44" Column="44" TopLine="37"/>
     393        <Caret Line="64" Column="3" TopLine="43"/>
    394394      </Position14>
    395395      <Position15>
    396396        <Filename Value="Forms\UMainForm.pas"/>
    397         <Caret Line="389" Column="58" TopLine="378"/>
     397        <Caret Line="268" Column="16" TopLine="258"/>
    398398      </Position15>
    399399      <Position16>
    400400        <Filename Value="Forms\UMainForm.pas"/>
    401         <Caret Line="293" Column="45" TopLine="279"/>
     401        <Caret Line="269" Column="16" TopLine="259"/>
    402402      </Position16>
    403403      <Position17>
    404         <Filename Value="Forms\UMainOptions.pas"/>
    405         <Caret Line="45" Column="44" TopLine="38"/>
     404        <Filename Value="Forms\UMainForm.pas"/>
     405        <Caret Line="270" Column="16" TopLine="260"/>
    406406      </Position17>
    407407      <Position18>
    408         <Filename Value="Forms\UMainOptions.pas"/>
    409         <Caret Line="64" Column="3" TopLine="43"/>
     408        <Filename Value="Forms\UMainForm.pas"/>
     409        <Caret Line="277" Column="16" TopLine="267"/>
    410410      </Position18>
    411411      <Position19>
    412412        <Filename Value="Forms\UMainForm.pas"/>
    413         <Caret Line="268" Column="16" TopLine="258"/>
     413        <Caret Line="158" Column="19" TopLine="156"/>
    414414      </Position19>
    415415      <Position20>
    416416        <Filename Value="Forms\UMainForm.pas"/>
    417         <Caret Line="269" Column="16" TopLine="259"/>
     417        <Caret Line="11" Column="19" TopLine="1"/>
    418418      </Position20>
    419419      <Position21>
    420420        <Filename Value="Forms\UMainForm.pas"/>
    421         <Caret Line="270" Column="16" TopLine="260"/>
     421        <Caret Line="159" Column="24" TopLine="146"/>
    422422      </Position21>
    423423      <Position22>
    424         <Filename Value="Forms\UMainForm.pas"/>
    425         <Caret Line="277" Column="16" TopLine="267"/>
     424        <Filename Value="Forms\USourceSelection.pas"/>
     425        <Caret Line="54" Column="33" TopLine="38"/>
    426426      </Position22>
    427427      <Position23>
    428428        <Filename Value="Forms\UMainForm.pas"/>
    429         <Caret Line="158" Column="19" TopLine="156"/>
     429        <Caret Line="294" Column="35" TopLine="279"/>
    430430      </Position23>
    431431      <Position24>
    432         <Filename Value="Forms\UMainForm.pas"/>
    433         <Caret Line="11" Column="19" TopLine="1"/>
     432        <Filename Value="UInstance.pas"/>
     433        <Caret Line="90" Column="25" TopLine="75"/>
    434434      </Position24>
    435435      <Position25>
    436         <Filename Value="Forms\UMainForm.pas"/>
    437         <Caret Line="159" Column="24" TopLine="146"/>
     436        <Filename Value="UInstance.pas"/>
     437        <Caret Line="80" Column="1" TopLine="75"/>
    438438      </Position25>
    439439      <Position26>
    440         <Filename Value="Forms\USourceSelection.pas"/>
    441         <Caret Line="54" Column="33" TopLine="38"/>
     440        <Filename Value="UInstance.pas"/>
     441        <Caret Line="91" Column="51" TopLine="75"/>
    442442      </Position26>
    443443      <Position27>
    … …  
    446446      </Position27>
    447447      <Position28>
    448         <Filename Value="UInstance.pas"/>
    449         <Caret Line="90" Column="25" TopLine="75"/>
     448        <Filename Value="Forms\UMainForm.pas"/>
     449        <Caret Line="167" Column="55" TopLine="163"/>
    450450      </Position28>
    451451      <Position29>
    452452        <Filename Value="UInstance.pas"/>
    453         <Caret Line="80" Column="1" TopLine="75"/>
     453        <Caret Line="109" Column="15" TopLine="102"/>
    454454      </Position29>
    455455      <Position30>
    456456        <Filename Value="UInstance.pas"/>
    457         <Caret Line="91" Column="51" TopLine="75"/>
     457        <Caret Line="139" Column="41" TopLine="122"/>
    458458      </Position30>
    459459    </JumpHistory>

  • trunk/UInstance.pas

    r7 r8  
    123123var
    124124  Config: TStringList;
     125  ConfigFileName: string;
    125126begin
     127  ConfigFileName := GetPath + DirectorySeparator + IDESource.ProjectShortName +
     128    DirectorySeparator + 'config' + DirectorySeparator + 'environmentoptions.xml';
     129  if not FileExistsUTF8(ConfigFileName) then
    126130  try
    127131    Config := TStringList.Create;
    … …  
    133137    Config.Text := StringReplace(Config.Text, '%FPCPlatform%', MainForm.Platform, [rfReplaceAll]);
    134138    Config.Text := StringReplace(Config.Text, '%Temp%', GetEnvironmentVariableUTF8('Temp'), [rfReplaceAll]);
    135     Config.SaveToFile(GetPath + DirectorySeparator + IDESource.ProjectShortName +
    136       DirectorySeparator + 'config' + DirectorySeparator + 'environmentoptions.xml');
     139    Config.SaveToFile(ConfigFileName);
    137140  finally
    138141    Config.Free;
Note: See TracChangeset for help on using the changeset viewer.