Changeset 136 for trunk/UTarget.pas

Timestamp:

Mar 5, 2022, 4:14:27 PM (3 years ago)

Author:

chronos

Message:

• Modified: Update recent files list in registry immediately.
• Fixed: Regresion in debugging step in and step out.
• Fixed: Of by one index in loop start command interpretation.
• Fixed: Correctly load directory and file name into open and save dialogs.
• Modified: Faster interval for program output refresh.

File:

• trunk/UTarget.pas (modified) (2 diffs)

trunk/UTarget.pas

@@ -113 +113 @@
     DebugEnabled: Boolean;
     Selected: Boolean;
+    procedure SendMessage(Text: string);
     constructor Create; virtual;
     destructor Destroy; override;
@@ -427 +428 @@
 end;
 
+procedure TTarget.SendMessage(Text: string);
+begin
+  if Assigned(FOnMessage) then
+    FOnMessage(Text);
+end;
+
 procedure TTarget.SetSourceCode(AValue: string);
 begin