paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-01 22:00:20 +02:00
Code Issues Packages Projects Releases Wiki Activity

Qt: added GetX11SupportedAtoms() helper function so we know what specific WM supports.

Browse Source 
git-svn-id: trunk@51844 -
This commit is contained in:
zeljko 2016-03-07 12:43:24 +00:00
parent bdb7f2d033
commit 8df175aa85
2 changed files with 53 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

@ -265,6 +265,7 @@ type
{force mapping}
procedure MapX11Window(AWinID: LongWord);
{$IFDEF QtUseAccurateFrame}
function GetX11SupportedAtoms(AWinID: LongWord; AList: TStrings): boolean;
function GetX11WindowPos(AWinID: LongWord; out ALeft, ATop: integer): boolean;
{check if wm supports request for frame extents}
function AskX11_NET_REQUEST_FRAME_EXTENTS(AWinID: LongWord; out AMargins: TRect): boolean;

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

@ -402,6 +402,7 @@ begin
if X11Window = 0 then
exit;
{TODO: compositing wm must provide shadow decorations _KDE_NET_WM_SHADOW, find others}
WMAtom := XInternAtom(Display,'_NET_FRAME_EXTENTS', True);
if WMAtom > 0 then
begin
@ -533,5 +534,56 @@ begin
DebugLn('QtLCL error: "'+GetWindowManager+'" wm does not support _NET_REQUEST_FRAME_EXTENTS.');
end;
end;
function GetX11SupportedAtoms(AWinID: LongWord; AList: TStrings): boolean;
var
d: PDisplay;
ARoot: TWindow;
WMAtom: TAtom;
typeReturned: TAtom;
formatReturned: Integer;
nitemsReturned: PtrInt;
unused: PtrInt;
data: Pointer;
ANewData: PAtom;
begin
Result := False;
d := QX11Info_display;
if d = nil then
exit;
ARoot := XRootWindow(d, QX11Info_appScreen);
WMAtom := XInternAtom(d, '_NET_SUPPORTED', True);
if WMAtom = 0 then
begin
DebugLn('ERROR : QtLCL: _NET_SUPPORTED not provided by wm ',GetWindowManager);
exit;
end;
data := nil;
if XGetWindowProperty(d, ARoot, WMAtom, 0, (65536 div sizeof(LongInt)), False, AnyPropertyType,
@typeReturned, @formatReturned, @nitemsReturned,
@unused, @data) = Success then
begin
if (typeReturned = XA_ATOM) and (formatReturned = 32) and
(Data <> nil) then
begin
ANewData := Data;
while nitemsReturned > 0 do
begin
AList.AddObject(XGetAtomName(d, ANewData^),TObject(ANewData^));
dec(nItemsReturned);
if Result or (nItemsReturned = 0) then
break;
inc(ANewData);
end;
Result := True;
if nitemsReturned > 0 then
XFree(Data);
Data := nil;
end;
end;
end;
{$ENDIF}