Changeset 238 for branches/CpuSingleSize/Forms/FormAssembler.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/FormAssembler.pas (moved) (moved from branches/CpuSingleSize/Forms/UFormAssembler.pas ) (3 diffs)

branches/CpuSingleSize/Forms/FormAssembler.pas

@@ -1 @@
-unit UFormAssembler;
+unit FormAssembler;
 
 interface
@@ -14 +14 @@
     SynAnySyn1: TSynAnySyn;
     SynEdit1: TSynEdit;
-    procedure FormShow(Sender: TObject);
-  private
-
   public
+    procedure Select(Position: TPoint);
   end;
 
-var
-  FormAssembler: TFormAssembler;
 
 implementation
@@ -29 +25 @@
 { TFormAssembler }
 
-procedure TFormAssembler.FormShow(Sender: TObject);
+procedure TFormAssembler.Select(Position: TPoint);
 begin
+  SynEdit1.CaretXY := Position;
+  SynEdit1.SetFocus;
+  Show;
 end;