Changeset 13 for trunk/Forms/FormMemory.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/FormMemory.pas (modified) (7 diffs)

trunk/Forms/FormMemory.pas

@@ -5 +5 @@
 uses
   Classes, SysUtils, Forms, Controls, Graphics, Dialogs, ComCtrls, ExtCtrls,
-  StdCtrls, Memory, Generics.Collections;
+  StdCtrls, MemoryTypes, Generics.Collections;
 
 type
@@ -24 +24 @@
     procedure Timer1Timer(Sender: TObject);
   private
-    Memory: TMemory;
-    Size: Integer;
+    FReloadPending: Boolean;
+    FMemory: TMemory;
+    FSize: Integer;
   public
     Areas: TObjectList<TMemory>;
@@ -45 +46 @@
 procedure TFormMemory.Reload;
 begin
-  ListViewMemory.Items.Count := Size div ItemsPerLine;
+  ListViewMemory.Items.Count := FSize div ItemsPerLine;
   ListViewMemory.Refresh;
 end;
@@ -56 +57 @@
   One: Byte;
 begin
-  if Item.Index < Size div ItemsPerLine then begin
+  if Item.Index < FSize div ItemsPerLine then begin
     Line := '';
     Text := '';
     for I := 0 to ItemsPerLine - 1 do begin
-      One := Memory.Read(Item.Index * ItemsPerLine + I);
+      One := FMemory.Read(Item.Index * ItemsPerLine + I);
       Line := Line + IntToHex(One, 2) + ' ';
       if One >= 32 then Text := Text + Char(One)
@@ -75 +76 @@
   ReloadAreas;
   ComboBoxAreaSelect(nil);
+  FReloadPending := True;
 end;
 
@@ -85 +87 @@
 begin
   if ComboBoxArea.ItemIndex >= 0 then begin
-    Memory := TMemory(ComboBoxArea.Items.Objects[ComboBoxArea.ItemIndex]);
-    Size := Memory.Size;
+    FMemory := TMemory(ComboBoxArea.Items.Objects[ComboBoxArea.ItemIndex]);
+    FSize := FMemory.Size;
   end else begin
-    Memory := nil;
-    Size := 0;
+    FMemory := nil;
+    FSize := 0;
   end;
   Reload;
@@ -101 +103 @@
 procedure TFormMemory.Timer1Timer(Sender: TObject);
 begin
-  if Visible then Reload;
+  if FReloadPending then begin
+    FReloadPending := False;
+    Reload;
+  end;
 end;