Silence a crash in TQueryTab.TimerStatusUpdateOnTimer, probably happe…

…ning when accessing the no longer running thread. See https://www.heidisql.com/forum.php?t=25418#p25484
HeidiSQL · Sep 30, 2018 · 1b6c813 · 1b6c813
1 parent e2ff578
commit 1b6c813
Showing 1 changed file with 6 additions and 1 deletion.
diff --git a/source/main.pas b/source/main.pas
@@ -12677,7 +12677,12 @@ procedure TQueryTab.TimerStatusUpdateOnTimer(Sender: TObject);
     Msg := f_('queries #%s to #%s', [FormatNumber(ExecutionThread.BatchPosition+1), FormatNumber(ExecutionThread.BatchPosition+ExecutionThread.QueriesInPacket)]);
   Elapsed := MilliSecondsBetween(ExecutionThread.QueryStartedAt, Now);
   ElapsedMsg := FormatTimeNumber(Elapsed/1000, True);
-  MainForm.ShowStatusMsg(ElapsedMsg + ': ' + f_('Executing %s of %s ...', [Msg, FormatNumber(ExecutionThread.Batch.Count)]));
+  try
+    MainForm.ShowStatusMsg(ElapsedMsg + ': ' + f_('Executing %s of %s ...', [Msg, FormatNumber(ExecutionThread.Batch.Count)]));
+  except;
+    // Some crashes here, probably when accessing the no longer running thread.
+    // See https://www.heidisql.com/forum.php?t=25418#p25484
+  end;
 end;