Fix handling run parameters - queue it!

Villavu · Oct 27, 2018 · 4130d1f · 4130d1f
1 parent d0f82e7
commit 4130d1f
Showing 1 changed file with 3 additions and 4 deletions.
diff --git a/Projects/Simba/simbaunit.pas b/Projects/Simba/simbaunit.pas
@@ -499,7 +499,7 @@   TSimbaForm = class(TForm)
     procedure SaveFormSettings;
     procedure AddRecentFile(const filename : string);
     procedure InitializeTMThread(out Thread : TMMLScriptThread);
-    procedure HandleParameters;
+    procedure HandleParameters(Data: PtrInt);
     procedure HandleSettingsParameter;
     procedure OnSaveScript(const Filename : string);
     property ShowParamHintAuto : boolean read GetShowParamHintAuto write SetShowParamHintAuto;
@@ -1527,7 +1527,7 @@ procedure TSimbaForm.HandleSettingsParameter;
     mDebugLn('ERROR IN COMMAND LINE ARGS: ' + ErrorMsg)
 end;
 
-procedure TSimbaForm.HandleParameters;
+procedure TSimbaForm.HandleParameters(Data: PtrInt);
 var
   DoRun : Boolean;
   ErrorMsg : string;
@@ -2339,6 +2339,7 @@ procedure TSimbaForm.FormCreate(Sender: TObject);
     Application.OnException := @CustomExceptionHandler;
     Application.QueueAsyncCall(@RefreshTabSender, 0);
     Application.QueueAsyncCall(@CheckUpdates, 0);
+    Application.QueueAsyncCall(@HandleParameters, 0);
 
     AddHandlerFirstShow(@FirstShow);
 
@@ -2453,8 +2454,6 @@ procedure TSimbaForm.FormCreate(Sender: TObject);
       Start();
     end;
 
-    Application.ProcessMessages(); // Make sure everything is ready for a script run instantly (via parameters).
-    HandleParameters();
     UpdateTitle();
   finally
     EndFormUpdate();