Changeset 12 for branches/bigint/Forms


Ignore:
Timestamp:
Apr 24, 2025, 10:12:32 PM (2 months ago)
Author:
chronos
Message:
  • Added: More CPU instructions.
  • Added: Mouse device.
Location:
branches/bigint/Forms
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • branches/bigint/Forms/FormMain.lfm

    r6 r12  
    1111  OnDestroy = FormDestroy
    1212  OnShow = FormShow
    13   LCLVersion = '3.4.0.0'
     13  LCLVersion = '3.6.0.0'
    1414  object Memo1: TMemo
    1515    Left = 0
  • branches/bigint/Forms/FormMain.pas

    r8 r12  
    1818  private
    1919    procedure ConsoleWrite(Sender: TObject);
     20    function MouseGetPosition: TPoint;
    2021  public
    2122    SubFormDisassembler: TFormDisassembler;
     
    3839  Machine := TMachine.Create;
    3940  Machine.Console.OnWrite := ConsoleWrite;
     41  Machine.Mouse.OnGetPosition := MouseGetPosition;
    4042end;
    4143
     
    8183end;
    8284
     85function TFormMain.MouseGetPosition: TPoint;
     86begin
     87  Result := Mouse.CursorPos;
     88end;
     89
    8390end.
    8491
Note: See TracChangeset for help on using the changeset viewer.