Changeset 10 for branches/ByteArray/Forms/FormMemory.pas

Timestamp:

Aug 7, 2024, 12:12:42 AM (2 months ago)

Author:

chronos

Message:

• Modified: Improved serial console handling.

File:

• branches/ByteArray/Forms/FormMemory.pas (modified) (3 diffs)

branches/ByteArray/Forms/FormMemory.pas

@@ -5 +5 @@
 uses
   Classes, SysUtils, Forms, Controls, Graphics, Dialogs, ComCtrls, ExtCtrls,
-  Memory, Common.FormEx;
+  Menus, Memory, Common.FormEx;
 
 type
@@ -13 +13 @@
   TFormMemory = class(TFormEx)
     ListViewMemory: TListView;
+    MainMenu1: TMainMenu;
+    MenuItem1: TMenuItem;
+    MenuItemClear: TMenuItem;
     Timer1: TTimer;
     procedure FormShow(Sender: TObject);
     procedure ListViewMemoryData(Sender: TObject; Item: TListItem);
+    procedure MenuItemClearClick(Sender: TObject);
     procedure Timer1Timer(Sender: TObject);
   public
@@ -58 +62 @@
 end;
 
+procedure TFormMemory.MenuItemClearClick(Sender: TObject);
+begin
+  Memory.FillZero;
+  Reload;
+end;
+
 procedure TFormMemory.FormShow(Sender: TObject);
 begin