Changeset 13 for trunk/Forms/FormMessages.pas

Timestamp:

Apr 21, 2026, 2:55:51 PM (6 days ago)

Author:

chronos

Message:

• Added: Call stack window.
• Modified: Use reload pending boolean variable and reload from timer instead of Thread.Synchronize to not delay CPU execution.

File:

• trunk/Forms/FormMessages.pas (modified) (3 diffs)

trunk/Forms/FormMessages.pas

@@ -4 +4 @@
 
 uses
-  Classes, SysUtils, Forms, Controls, Graphics, Dialogs, StdCtrls;
+  Classes, SysUtils, Forms, Controls, Graphics, Dialogs, ExtCtrls, StdCtrls,
+  Generics.Collections;
 
 type
+  TMessage = class
+    Text: string;
+  end;
+
+  { TMessages }
+
+  TMessages = class(TObjectList<TMessage>)
+    function AddNew(Text: string): TMessage;
+  end;
 
   { TFormMessages }
@@ -12 +22 @@
   TFormMessages = class(TForm)
     Memo1: TMemo;
+    Timer1: TTimer;
+    procedure FormCreate(Sender: TObject);
+    procedure FormDestroy(Sender: TObject);
+    procedure Timer1Timer(Sender: TObject);
   private
-
+    FMessages: TMessages;
+    FReloadPending: Boolean;
   public
     procedure AddMessage(Text: string);
@@ -23 +38 @@
 {$R *.lfm}
 
+{ TMessages }
+
+function TMessages.AddNew(Text: string): TMessage;
+begin
+  Result := TMessage.Create;
+  Result.Text := Text;
+  Add(Result);
+end;
+
 { TFormMessages }
+
+procedure TFormMessages.Timer1Timer(Sender: TObject);
+var
+  I: Integer;
+begin
+  if FReloadPending then begin
+    FReloadPending := False;
+    Memo1.Lines.BeginUpdate;
+    Memo1.Lines.Clear;
+    for I := 0 to FMessages.Count - 1 do
+      Memo1.Lines.Add(FMessages[I].Text);
+    Memo1.Lines.EndUpdate;
+  end;
+end;
+
+procedure TFormMessages.FormCreate(Sender: TObject);
+begin
+  FMessages := TMessages.Create;
+end;
+
+procedure TFormMessages.FormDestroy(Sender: TObject);
+begin
+  FreeAndNil(FMessages);
+end;
 
 procedure TFormMessages.AddMessage(Text: string);
 begin
-  Memo1.Lines.Add(Text);
+  FMessages.AddNew(Text);
+  FReloadPending := True;
 end;