Changeset 238 for branches/CpuSingleSize/Forms/FormMessages.pas

Timestamp:

Jul 15, 2023, 12:51:15 AM (16 months ago)

Author:

chronos

Message:

• Modified: Removed U prefix from unit names.
• Fixed: Memory leaks.

File:

• branches/CpuSingleSize/Forms/FormMessages.pas (moved) (moved from branches/CpuSingleSize/Forms/UFormMessages.pas ) (7 diffs)

branches/CpuSingleSize/Forms/FormMessages.pas

@@ -1 @@
-unit UFormMessages;
+unit FormMessages;
 
 interface
@@ -7 +7 @@
 
 type
+  TSelectEvent = procedure (Position: TPoint) of object;
 
   { TFormMessages }
@@ -15 +16 @@
     procedure ListView1DblClick(Sender: TObject);
   private
+    FOnSelect: TSelectEvent;
   public
     procedure Reload;
+    property OnSelect: TSelectEvent read FOnSelect write FOnSelect;
   end;
-
-var
-  FormMessages: TFormMessages;
 
 
@@ -28 +28 @@
 
 uses
-  UCore, UMessages, UFormAssembler;
+  Core, Message, FormAssembler;
 
 { TFormMessages }
@@ -34 +34 @@
 procedure TFormMessages.ListView1Data(Sender: TObject; Item: TListItem);
 begin
-  with Core.Assembler do
-  if (Item.Index >= 0) and (Item.Index < Messages.Count) then
-  with TMessage(Messages[Item.Index]) do begin
+  with Core.Core.Assembler do
+  if (Item.Index >= 0) and (Item.Index < Message.Count) then
+  with TMessage(Message[Item.Index]) do begin
     Item.Caption := IntToStr(Position.X) + ', ' + IntToStr(Position.Y);
-    Item.Data := Messages[Item.Index];
+    Item.Data := Message[Item.Index];
     Item.SubItems.Add(Text);
   end;
@@ -46 +46 @@
 begin
   if Assigned(ListView1.Selected) then begin
-    FormAssembler.SynEdit1.CaretXY := TMessage(ListView1.Selected.Data).Position;
-    FormAssembler.SynEdit1.SetFocus;
-    FormAssembler.Show;
+    if Assigned(FOnSelect) then
+      FOnSelect(TMessage(ListView1.Selected.Data).Position);
   end;
 end;
@@ -54 +53 @@
 procedure TFormMessages.Reload;
 begin
-  ListView1.Items.Count := Core.Assembler.Messages.Count;
+  ListView1.Items.Count := Core.Core.Assembler.Message.Count;
   ListView1.Refresh;
 end;
 
-
 end.