Changeset 217 for branches/CpuSingleSize/Forms

Timestamp:

Oct 14, 2020, 7:34:55 PM (4 years ago)

Author:

chronos

Message:

• Modified: Improved assembler parsing.
• Modified: TParser moved to separate unit.

Location:

branches/CpuSingleSize

Files:

• . (modified) (1 prop)
• Forms/UFormMessages.lfm (modified) (1 diff)
• Forms/UFormMessages.pas (modified) (3 diffs)

branches/CpuSingleSize/Forms/UFormMessages.lfm

@@ -30 +30 @@
     ViewStyle = vsReport
     OnData = ListView1Data
+    OnDblClick = ListView1DblClick
   end
 end

branches/CpuSingleSize/Forms/UFormMessages.pas

@@ -15 +15 @@
     ListView1: TListView;
     procedure ListView1Data(Sender: TObject; Item: TListItem);
+    procedure ListView1DblClick(Sender: TObject);
   private
   public
@@ -29 +30 @@
 
 uses
-  UCore, UMessages;
+  UCore, UMessages, UFormAssembler;
 
 { TFormMessages }
@@ -44 +45 @@
 end;
 
+procedure TFormMessages.ListView1DblClick(Sender: TObject);
+begin
+  if Assigned(ListView1.Selected) then begin
+    FormAssembler.SynEdit1.CaretXY := TMessage(ListView1.Selected.Data).Position;
+    FormAssembler.SynEdit1.SetFocus;
+    FormAssembler.Show;
+  end;
+end;
+
 procedure TFormMessages.Reload;
 begin