paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-11-21 08:39:50 +01:00
Code Issues Packages Projects Releases Wiki Activity

IDE: fix reading LPS run modes.

Browse Source 
git-svn-id: trunk@56804 -
This commit is contained in:
ondrej 2017-12-20 09:02:25 +00:00
parent cefafdd5ca
commit 4d25ca2d88
1 changed files with 6 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
ide/runparamsopts.pas
View File

@ -354,8 +354,6 @@ begin
//don't clear! needed for merging lpi and lps
Cnt := XMLConfig.GetValue(Path + 'Modes/Count', 0);
if ASaveIn=rpsLPS then
ActiveModeName := XMLConfig.GetValue(Path + 'Modes/ActiveMode', '');
Result := mrOK;
for I := 0 to Cnt-1 do
@ -368,8 +366,12 @@ begin
Exit;
end;
if (GetActiveMode=nil) and (Count>0) and (ASaveIn=rpsLPS) then
ActiveModeName := Modes[0].Name;
if ASaveIn=rpsLPS then
begin
ActiveModeName := XMLConfig.GetValue(Path + 'Modes/ActiveMode', '');
if (GetActiveMode=nil) and (Count>0) then
ActiveModeName := Modes[0].Name;
end;
end;
function TRunParamsOptions.Save(XMLConfig: TXMLConfig; const Path: string;