From ec3c7be03b5f960b7e5fa5632988b446ac756937 Mon Sep 17 00:00:00 2001
From: mattias <nc-gaertnma@netcologne.de>
Date: Fri, 17 Jul 2020 09:29:39 +0000
Subject: [PATCH] IDE: always set an active run param mode if available

git-svn-id: trunk@63590 -
---
 ide/runparamsopts.pas | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/ide/runparamsopts.pas b/ide/runparamsopts.pas
index d352bf8b5f..cf17a2e888 100644
--- a/ide/runparamsopts.pas
+++ b/ide/runparamsopts.pas
@@ -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;