Changeset 12 for branches/bigint/Forms

Timestamp:

Apr 24, 2025, 10:12:32 PM (3 months ago)

Author:

chronos

Message:

• Added: More CPU instructions.
• Added: Mouse device.

Location:

branches/bigint/Forms

Files:

• FormMain.lfm (modified) (1 diff)
• FormMain.pas (modified) (3 diffs)

branches/bigint/Forms/FormMain.lfm

@@ -11 +11 @@
   OnDestroy = FormDestroy
   OnShow = FormShow
-  LCLVersion = '3.4.0.0'
+  LCLVersion = '3.6.0.0'
   object Memo1: TMemo
     Left = 0

branches/bigint/Forms/FormMain.pas

@@ -18 +18 @@
   private
     procedure ConsoleWrite(Sender: TObject);
+    function MouseGetPosition: TPoint;
   public
     SubFormDisassembler: TFormDisassembler;
@@ -38 +39 @@
   Machine := TMachine.Create;
   Machine.Console.OnWrite := ConsoleWrite;
+  Machine.Mouse.OnGetPosition := MouseGetPosition;
 end;
 
@@ -81 +83 @@
 end;
 
+function TFormMain.MouseGetPosition: TPoint;
+begin
+  Result := Mouse.CursorPos;
+end;
+
 end.