paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-17 20:39:14 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE: always set an active run param mode if available

Browse Source 
git-svn-id: branches/fixes_2_0@63591 -
This commit is contained in:
mattias 2020-07-17 09:30:02 +00:00
parent efa348b3c5
commit 764bbbc59c
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
ide/runparamsopts.pas
View File

@ -377,10 +377,11 @@ begin
// NewActiveModeName doesn't have to exist any more
if Assigned(Find(NewActiveModeName)) then
ActiveModeName := NewActiveModeName;
end;
if (GetActiveMode=nil) and (Count>0) then
ActiveModeName := Modes[0].Name;
end;
end;
function TRunParamsOptions.Save(XMLConfig: TXMLConfig; const Path: string;
UsePathDelim: TPathDelimSwitch; const ASaveIn: TRunParamsOptionsModeSave