paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-21 23:19:29 +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

5
ide/runparamsopts.pas
View File

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