Changeset 68 for branches/Independent/Forms/FormMain.pas

Timestamp:

Dec 17, 2024, 11:10:31 PM (4 days ago)

Author:

chronos

Message:

• Added: Mouse API support.

File:

• branches/Independent/Forms/FormMain.pas (modified) (3 diffs)

branches/Independent/Forms/FormMain.pas

@@ -34 +34 @@
     procedure ConsoleWrite(Text: string);
     function LoadFile(Name: string): string;
+    function GetMousePosition: TPoint;
   public
     FormConsole: TFormConsole;
@@ -58 +59 @@
   System.Console.OnWrite := ConsoleWrite;
   System.FileSystem.OnLoadFile := LoadFile;
+  System.Mouse.OnGetPosition := GetMousePosition;
   System.OnDraw := FormScreen.Redraw;
   FormScreen.System := System;
@@ -115 +117 @@
 end;
 
+function TFormName.GetMousePosition: TPoint;
+begin
+  Result := Mouse.CursorPos;
+end;
+
 end.