1 unit fpguicrosshelpers;
2
3 {$mode objfpc}{$H+}
4
5 interface
6
7 uses
8 Classes
9 , SysUtils
10 , fpg_main
11 {$IFDEF WINDOWS}
12 , windows
13 {$ENDIF}
14 {$IFDEF UNIX}
15 {$ENDIF}
16 ;
17
GetCursorPosnull18 function GetCursorPos(var aPoint: TPoint): Boolean;
19
20 implementation
21
GetCursorPosnull22 function GetCursorPos(var aPoint: TPoint): Boolean;
23 begin
24 {$IFDEF WINDOWS}
25 Result:=windows.GetCursorPos(aPoint);
26 {$ENDIF}
27 {$IFDEF UNIX}
28 // TODO: Implement XQueryPointer
29 // Bool XQueryPointer(display, w, root_return, child_return, root_x_return, root_y_return,
30 // win_x_return, win_y_return, mask_return)
31 // XQueryPointer(xapplication.Display, wh, @root_return, @child_return, @root_x_return, @root_y_return, @win_x_return, @win_y_return, @mask_return);
32 aPoint.x:=0;
33 aPoint.y:=0;
34 Result:=false;
35 {$ENDIF}
36 end;
37
38 end.
39
40