paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-13 21:59:22 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE: always set an active run param mode if available

Browse Source 
git-svn-id: trunk@63590 -
This commit is contained in:
mattias 2020-07-17 09:29:39 +00:00
parent cf603da31a
commit ec3c7be03b
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

@ -399,9 +399,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;