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

Qt: Set Left & Top of form direct via X11 instead via Qt when we are under OpenBox wm - still to investigate why Qt have totally wrong idea about our position.

Browse Source 
git-svn-id: trunk@51890 -
This commit is contained in:
zeljko 2016-03-09 18:45:36 +00:00
parent 7baab65040
commit 4aad165455
1 changed files with 13 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
lcl/interfaces/qt/qtwscontrols.pp
View File

@ -542,7 +542,20 @@ begin
TQtWidget(AWinControl.Handle).BeginUpdate; TQtWidget(AWinControl.Handle).BeginUpdate;
with R do with R do
begin begin
{$IF DEFINED(QTUSEACCURATEFRAME) AND DEFINED(HASX11)}
// DO NOT TOUCH THIS UNTIL COMPLETE PROBLEM IS INVESTIGATED
// WITH OPENBOX WM. Qt most of time have wrong assumption about position.
if TQtWidget(AWinControl.Handle).IsFramedWidget and
GetX11WindowRealized(QWidget_winID(TQtWidget(AWinControl.Handle).Widget)) and
(GetWindowManager = 'Openbox') then
begin
SetX11WindowPos(QWidget_winID(TQtWidget(AWinControl.Handle).Widget), Left, Top);
// QApplication_syncX;
end else
TQtWidget(AWinControl.Handle).move(Left, Top);
{$ELSE}
TQtWidget(AWinControl.Handle).move(Left, Top); TQtWidget(AWinControl.Handle).move(Left, Top);
{$ENDIF}
TQtWidget(AWinControl.Handle).resize(Right, Bottom); TQtWidget(AWinControl.Handle).resize(Right, Bottom);
end; end;
TQtWidget(AWinControl.Handle).EndUpdate; TQtWidget(AWinControl.Handle).EndUpdate;