paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-11 05:56:16 +02:00
Code Issues Packages Projects Releases Wiki Activity

LCL-CustomDrawn-X11: Implements GetCursorPos

Browse Source 
git-svn-id: trunk@36571 -
This commit is contained in:
sekelsenmat 2012-04-05 08:49:20 +00:00
parent 1bf4624e3c
commit 0a48c5dbe4
1 changed files with 26 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

32
lcl/interfaces/customdrawn/customdrawnwinapi_x11.inc
View File

@ -2714,15 +2714,35 @@ end;*)
Returns: True if succesful
------------------------------------------------------------------------------}
function TCDWidgetSet.GetCursorPos(var lpPoint: TPoint ): Boolean;
{var
vPoint: TQtPoint;}
var
number_of_screens, i: cint;
root_windows: PWindow;
window_returned: TWindow;
root_x, root_y, win_x, win_y: cint;
mask_return: cuint;
olderrorhandler: TXErrorHandler;
lScreen: XLib.TScreen;
begin
// QCursor_pos(@vPoint);
root_x := 0;
root_y := 0;
lpPoint.x := 1;
lpPoint.y := 1;
//olderrorhandler := XSetErrorHandler(_XlibErrorHandler);
number_of_screens := XScreenCount(FDisplay);
//lScreen := XLib.DefaultScreen(FDisplay);
root_windows := GetMem(sizeof(TWindow) * number_of_screens);
Result := True;
for i := 0 to number_of_screens-1 do
begin
root_windows[i] := XRootWindow(FDisplay, i);
Result := XQueryPointer(FDisplay, root_windows[i], @window_returned,
@window_returned, @root_x, @root_y, @win_x, @win_y, @mask_return);
if Result then Break;
end;
lpPoint.x := root_x;
lpPoint.y := root_y;
FreeMem(root_windows);
end;
(*{------------------------------------------------------------------------------