Changeset 68 for branches/Independent/Forms

Timestamp:

Dec 17, 2024, 11:10:31 PM (6 weeks ago)

Author:

chronos

Message:

• Added: Mouse API support.

Location:

branches/Independent/Forms

Files:

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

branches/Independent/Forms/FormMain.lfm

@@ -1 +1 @@
 object FormName: TFormName
   Left = 465
-  Height = 535
+  Height = 569
   Top = 352
   Width = 971

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.