Changeset 14 for trunk/Forms/FormMessages.pas

Timestamp:

Apr 21, 2026, 3:52:53 PM (6 days ago)

Author:

chronos

Message:

• Modified: Pausing CPU thread execution with event object instead of freeing thread object.

File:

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

trunk/Forms/FormMessages.pas

@@ -27 +27 @@
     procedure Timer1Timer(Sender: TObject);
   private
-    FMessages: TMessages;
     FReloadPending: Boolean;
   public
+    Messages: TMessages;
     procedure AddMessage(Text: string);
   end;
@@ -57 +57 @@
     Memo1.Lines.BeginUpdate;
     Memo1.Lines.Clear;
-    for I := 0 to FMessages.Count - 1 do
-      Memo1.Lines.Add(FMessages[I].Text);
+    for I := 0 to Messages.Count - 1 do
+      Memo1.Lines.Add(Messages[I].Text);
     Memo1.Lines.EndUpdate;
   end;
@@ -65 +65 @@
 procedure TFormMessages.FormCreate(Sender: TObject);
 begin
-  FMessages := TMessages.Create;
+  Messages := TMessages.Create;
 end;
 
 procedure TFormMessages.FormDestroy(Sender: TObject);
 begin
-  FreeAndNil(FMessages);
+  FreeAndNil(Messages);
 end;
 
 procedure TFormMessages.AddMessage(Text: string);
 begin
-  FMessages.AddNew(Text);
+  Messages.AddNew(Text);
   FReloadPending := True;
 end;