Changeset 12 for branches/bigint/Forms
- Timestamp:
- Apr 24, 2025, 10:12:32 PM (2 months ago)
- Location:
- branches/bigint/Forms
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/bigint/Forms/FormMain.lfm
r6 r12 11 11 OnDestroy = FormDestroy 12 12 OnShow = FormShow 13 LCLVersion = '3. 4.0.0'13 LCLVersion = '3.6.0.0' 14 14 object Memo1: TMemo 15 15 Left = 0 -
branches/bigint/Forms/FormMain.pas
r8 r12 18 18 private 19 19 procedure ConsoleWrite(Sender: TObject); 20 function MouseGetPosition: TPoint; 20 21 public 21 22 SubFormDisassembler: TFormDisassembler; … … 38 39 Machine := TMachine.Create; 39 40 Machine.Console.OnWrite := ConsoleWrite; 41 Machine.Mouse.OnGetPosition := MouseGetPosition; 40 42 end; 41 43 … … 81 83 end; 82 84 85 function TFormMain.MouseGetPosition: TPoint; 86 begin 87 Result := Mouse.CursorPos; 88 end; 89 83 90 end. 84 91
Note:
See TracChangeset
for help on using the changeset viewer.