paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-10-03 05:39:37 +02:00
Code Issues Packages Projects Releases Wiki Activity

Qt: added GetX11WindowGeometry() helper function.

Browse Source 
git-svn-id: trunk@51887 -
This commit is contained in:
zeljko 2016-03-09 17:36:40 +00:00
parent 821414b0ce
commit 0536648325
2 changed files with 29 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
lcl/interfaces/qt/qtint.pp
View File

@ -273,6 +273,7 @@ type
{Ask for _NET_FRAME_EXTENTS,_KDE_NET_WM_SHADOW,_GTK_NET_FRAME_EXTENTS}
function GetX11RectForAtom(AWinID: LongWord; const AAtomName: string; out ARect: TRect): boolean;
function GetX11WindowPos(AWinID: LongWord; out ALeft, ATop: integer): boolean;
function GetX11WindowGeometry(AWinID: LongWord; out ARect: TRect): boolean;
{check if wm supports request for frame extents}
function AskX11_NET_REQUEST_FRAME_EXTENTS(AWinID: LongWord; out AMargins: TRect): boolean;
{$ENDIF}

28
lcl/interfaces/qt/qtx11.inc
View File

@ -510,6 +510,34 @@ begin
end;
end;
function GetX11WindowGeometry(AWinID: LongWord; out ARect: TRect): boolean;
var
d: PDisplay;
ARootWin, X11Window: TWindow;
ABorder, ADepth: integer;
begin
Result := False;
d := QX11Info_display();
with ARect do
begin
Left := 0;
Top := 0;
Right := 0;
Bottom := 0;
end;
if d = nil then
exit;
if AWinID = 0 then
begin
X11Window := XRootWindow(d, QX11Info_appScreen);
end else
X11Window := TWindow(AWinID);
if X11Window = 0 then
exit;
Result := XGetGeometry(d, X11Window, @ARootWin, @ARect.Left, @ARect.Top, @ARect.Right, @ARect.Bottom, @ABorder, @ADepth) = 1;
end;
function GetX11RectForAtom(AWinID: LongWord; const AAtomName: string; out ARect: TRect): boolean;
var
d: PDisplay;