Changeset 68 for branches/Independent/SystemApi.pas

Timestamp:

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

Author:

chronos

Message:

• Added: Mouse API support.

File:

• branches/Independent/SystemApi.pas (modified) (2 diffs)

branches/Independent/SystemApi.pas

@@ -25 +25 @@
     procedure SetWindowRect(Handle: THandle; Rect: TRect); override;
     procedure SetWindowVisible(Handle: THandle; Visible: Boolean); override;
+    function GetMousePosition: TPoint; override;
   end;
 
@@ -101 +102 @@
 end;
 
+function TSystemApi.GetMousePosition: TPoint;
+begin
+  Result := System.Mouse.GetPosition;
+end;
+
 end.