Update scripts runtime on MainStatusBar

Source/forms/simba.main.lfm

@@ -1,7 +1,7 @@
 object SimbaForm: TSimbaForm
-  Left = 4022
+  Left = 4202
   Height = 578
-  Top = 670
+  Top = 175
   Width = 910
   Caption = 'Simba'
   ClientHeight = 578

Source/forms/simba.outputform.pas

@@ -47,6 +47,7 @@   TSimbaOutputBox = class(TSimbaSynEdit)
     procedure GetWordBoundsAtRowCol(const XY: TPoint; out StartX, EndX: integer); override;
 
     function Add(const S: String): String;
+    procedure AddLine(Flags: EDebugLnFlags; const S: String);
     procedure Empty;
     procedure Flush;
 
@@ -396,6 +397,13 @@ function TSimbaOutputBox.Add(const S: String): String;
   end;
 end;
 
+procedure TSimbaOutputBox.AddLine(Flags: EDebugLnFlags; const S: String);
+begin
+  FLock.Enter();
+  FBuffer.AddObject(S, TObject(PtrUInt(Integer(Flags))));
+  FLock.Leave();
+end;
+
 procedure TSimbaOutputBox.Empty;
 begin
   Add(FlagsToString([EDebugLn.CLEAR]) + LineEnding);

Source/forms/simba.scripttabsform.pas

@@ -84,8 +84,6 @@   TSimbaScriptTabsForm = class(TForm)
     procedure FindNext;
     procedure FindPrevious;
 
-    function FindTab(ScriptInstance: TObject): TSimbaScriptTab;
-
     function AddTab: TSimbaScriptTab;
 
     function CloseTab(Tab: TSimbaScriptTab; KeepOne: Boolean): Boolean;
@@ -466,20 +464,6 @@ procedure TSimbaScriptTabsForm.FindPrevious;
     FEditorFind.FindPrev(CurrentEditor);
 end;
 
-function TSimbaScriptTabsForm.FindTab(ScriptInstance: TObject): TSimbaScriptTab;
-var
-  I: Integer;
-begin
-  for I := 0 to TabCount - 1 do
-    if (Tabs[I].ScriptInstance = ScriptInstance) then
-    begin
-      Result := Tabs[I];
-      Exit;
-    end;
-
-  Result := nil;
-end;
-
 function TSimbaScriptTabsForm.AddTab: TSimbaScriptTab;
 begin
   Result := FTabControl.AddTab() as TSimbaScriptTab;

Source/simba.ide_events.pas

@@ -16,7 +16,7 @@   SimbaIDEEvents = class
       CODETOOLS_SETUP,
       TAB_CARETMOVED, TAB_MODIFIED, TAB_LOADED, TAB_SEARCH, TAB_BEFORECHANGE, TAB_CHANGE, TAB_CLOSED,
       MOUSELOGGER_CHANGE,
-      SCRIPTSTATE_CHANGE
+      SCRIPTSTATE_CHANGE, SCRIPT_RUNNING
     );
   class var
     FMethodLists: array[EMethodType] of TMethodList;
@@ -32,6 +32,7 @@   SimbaIDEEvents = class
     class procedure RegisterOnTabClosed(Proc: TNotifyEvent);
     class procedure CallOnScriptTabClose(Sender: TObject);
 
+
     class procedure CallOnScriptStateChange(Sender: TObject); // Sender = TSimbaScriptInstance
     class procedure CallOnBeforeTabChange(Sender: TObject);
     class procedure CallOnScriptTabChange(Sender: TObject); // Sender = TSimbaScriptTab
@@ -41,6 +42,14 @@   SimbaIDEEvents = class
     class procedure CallOnEditorModified(Sender: TObject);
     class procedure CallOnMouseLoggerChange(Sender: TObject);
 
+
+    // Called every 500ms from a script instance while a script is running.
+    // Sender = TSimbaScriptInstance
+    class procedure CallOnScriptRunning(Sender: TObject);
+    class procedure RegisterMethodOnScriptRunning(Proc: TNotifyEvent);
+    class procedure UnRegisterMethodOnScriptRunning(Proc: TNotifyEvent);
+
+
     class procedure RegisterMethodOnScriptStateChange(Proc: TNotifyEvent);
     class procedure RegisterMethodOnScriptTabChange(Proc: TNotifyEvent);
     class procedure RegisterOnBeforeTabChange(Proc: TNotifyEvent);
@@ -106,6 +115,11 @@ class procedure SimbaIDEEvents.CallOnScriptTabClose(Sender: TObject);
   Call(TAB_CLOSED, Sender);
 end;
 
+class procedure SimbaIDEEvents.CallOnScriptRunning(Sender: TObject);
+begin
+  Call(SCRIPT_RUNNING, Sender);
+end;
+
 class procedure SimbaIDEEvents.CallOnScriptStateChange(Sender: TObject);
 begin
   Call(SCRIPTSTATE_CHANGE, Sender);
@@ -146,6 +160,16 @@ class procedure SimbaIDEEvents.CallOnMouseLoggerChange(Sender: TObject);
   Call(MOUSELOGGER_CHANGE, Sender);
 end;
 
+class procedure SimbaIDEEvents.RegisterMethodOnScriptRunning(Proc: TNotifyEvent);
+begin
+  RegisterMethod(SCRIPT_RUNNING, Proc);
+end;
+
+class procedure SimbaIDEEvents.UnRegisterMethodOnScriptRunning(Proc: TNotifyEvent);
+begin
+  UnRegisterMethod(SCRIPT_RUNNING, Proc);
+end;
+
 class procedure SimbaIDEEvents.RegisterMethodOnScriptStateChange(Proc: TNotifyEvent);
 begin
   RegisterMethod(SCRIPTSTATE_CHANGE, Proc);

Source/simba.ide_mainstatusbar.pas

@@ -1,3 +1,8 @@
+{
+  Author: Raymond van Venetië and Merlijn Wajer
+  Project: Simba (https://github.com/MerlijnWajer/Simba)
+  License: GNU General Public License (https://www.gnu.org/licenses/gpl-3.0)
+}
 unit simba.ide_mainstatusbar;
 
 {$i simba.inc}
@@ -21,6 +26,7 @@   TSimbaMainStatusBar = class
     procedure DoTabSearch(Sender: TObject);
     procedure DoTabChange(Sender: TObject);
     procedure DoScriptStateChange(Sender: TObject);
+    procedure DoScriptRunning(Sender: TObject);
   public
     constructor Create;
 
@@ -89,6 +95,14 @@ procedure TSimbaMainStatusBar.DoScriptStateChange(Sender: TObject);
     SetScriptStatePanel(TSimbaScriptInstance(Sender));
 end;
 
+procedure TSimbaMainStatusBar.DoScriptRunning(Sender: TObject);
+var
+  ScriptInstance: TSimbaScriptInstance absolute Sender;
+begin
+  if (Sender is TSimbaScriptInstance) and ScriptInstance.IsActiveTab() and (ScriptInstance.State <> ESimbaScriptState.STATE_PAUSED) then
+    FStatusBar.PanelText[1] := FormatMilliseconds(ScriptInstance.TimeRunning, 'hh:mm:ss');
+end;
+
 constructor TSimbaMainStatusBar.Create;
 begin
   FStatusBar := TSimbaStatusBar.Create(Application.MainForm);
@@ -106,6 +120,7 @@ constructor TSimbaMainStatusBar.Create;
   SimbaIDEEvents.RegisterMethodOnScriptTabChange(@DoTabLoaded);
   SimbaIDEEvents.RegisterMethodOnScriptStateChange(@DoScriptStateChange);
   SimbaIDEEvents.RegisterMethodOnScriptTabChange(@DoTabChange);
+  SimbaIDEEvents.RegisterMethodOnScriptRunning(@DoScriptRunning);
 end;
 
 procedure TSimbaMainStatusBar.SetMainPanelText(Str: String);

Source/simba.mufasatypes.pas

@@ -400,7 +400,8 @@ procedure Swap(var A, B: TPoint); overload;
 procedure Swap(var A, B: Pointer); overload;
 procedure Swap(var A, B: TColorBGRA); overload;
 
-function IfThen(const Val: Boolean; const IfTrue, IfFalse: String): String; inline; overload;
+function IsDefault(const Item; const Size: SizeInt): Boolean;
+function IfThen(const Val: Boolean; const IfTrue, IfFalse: String): String; overload;
 
 type
   ESimbaException = class(Exception);
@@ -644,6 +645,25 @@ procedure Swap(var A, B: TColorBGRA);
   specialize Swap<TColorBGRA>(A, B);
 end;
 
+function IsDefault(const Item; const Size: SizeInt): Boolean;
+var
+  Ptr: PByte;
+  Upper: PtrUInt;
+begin
+  Result := False;
+
+  Ptr := PByte(@Item);
+  Upper := PtrUInt(Ptr) + Size;
+  while (PtrUInt(Ptr) <= Upper) do
+  begin
+    if (Ptr^ <> 0) then
+      Exit;
+    Inc(Ptr);
+  end;
+
+  Result := True;
+end;
+
 function IfThen(const Val: Boolean; const IfTrue, IfFalse: String): String;
 begin
   if Val then