paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-11 15:00:38 +01:00
Code Issues Packages Projects Releases Wiki Activity

Qt: small workaround in SlotMove for kde3 and kde4 desktop environment.

Browse Source 
git-svn-id: trunk@51884 -
This commit is contained in:
zeljko 2016-03-09 14:33:35 +00:00
parent 66c1a36997
commit 75b1694ce7
1 changed files with 30 additions and 27 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

57
lcl/interfaces/qt/qtwidgets.pas
View File

@ -3946,8 +3946,8 @@ var
{$IFDEF HASX11} {$IFDEF HASX11}
ACurrPos: TQtPoint; ACurrPos: TQtPoint;
{$IFDEF QtUseAccurateFrame} {$IFDEF QtUseAccurateFrame}
//X11Pos: TQtPoint; X11Pos: TQtPoint;
//ALeft, ATop, ABorder, AWidth, AHeight: integer; ALeft, ATop, ABorder, AWidth, AHeight: integer;
{$ENDIF} {$ENDIF}
{$ENDIF} {$ENDIF}
FrameRect, WindowRect: TRect; FrameRect, WindowRect: TRect;
@ -4011,36 +4011,39 @@ begin
{$IF DEFINED(DEBUGQTUSEACCURATEFRAME) OR DEFINED(DEBUGQTCHECKMOVESIZE)} {$IF DEFINED(DEBUGQTUSEACCURATEFRAME) OR DEFINED(DEBUGQTCHECKMOVESIZE)}
DebugLn('WARNING: SlotMove(',dbgsName(LCLObject),') frame and geometry have same values geom=',dbgs(WindowRect),' frame=',dbgs(FrameRect),' MARGINS=',dbgs(FrameMargins),' WS=',dbgs(QtWidgetSet.WSFrameMargins),' InvPos=',dbgs(TQtMainWindow(Self).FFormHasInvalidPosition)); DebugLn('WARNING: SlotMove(',dbgsName(LCLObject),') frame and geometry have same values geom=',dbgs(WindowRect),' frame=',dbgs(FrameRect),' MARGINS=',dbgs(FrameMargins),' WS=',dbgs(QtWidgetSet.WSFrameMargins),' InvPos=',dbgs(TQtMainWindow(Self).FFormHasInvalidPosition));
{$ENDIF} {$ENDIF}
TQtMainWindow(Self).FFormHasInvalidPosition := True; {TODO: KWin4 is find with FFormHasInvalidPosition := True, but gtk based wm's like
exit; xfce,gnome-shell and cinnamon and kwin5 aren''t, so we must use code below.}
(* if (GetKdeSessionVersion = 3) or (GetKdeSessionVersion = 4) then
GetX11WindowPos(QWidget_winId(Widget), X11Pos.x, X11Pos.y); TQtMainWindow(Self).FFormHasInvalidPosition := True
else
if GetX11WindowAttributes(QWidget_winID(Widget), ALeft, ATop, AWidth, AHeight, ABorder) then
begin begin
if ALeft = 0 then GetX11WindowPos(QWidget_winId(Widget), X11Pos.x, X11Pos.y);
if GetX11WindowAttributes(QWidget_winID(Widget), ALeft, ATop, AWidth, AHeight, ABorder) then
begin
if ALeft = 0 then
X11Pos.x -= FFrameMargins.Left;
if ATop = 0 then
X11Pos.y -= FFrameMargins.Top;
end else
begin
X11Pos.x -= FFrameMargins.Left; X11Pos.x -= FFrameMargins.Left;
if ATop = 0 then
X11Pos.y -= FFrameMargins.Top; X11Pos.y -= FFrameMargins.Top;
end else end;
begin
X11Pos.x -= FFrameMargins.Left;
X11Pos.y -= FFrameMargins.Top;
end;
if (X11Pos.x = LCLObject.Left) and (X11Pos.y = LCLObject.Top) and if (X11Pos.x = LCLObject.Left) and (X11Pos.y = LCLObject.Top) and
((QWidget_x(Widget) <> X11Pos.x) or (QWidget_y(Widget) <> X11Pos.y)) then ((QWidget_x(Widget) <> X11Pos.x) or (QWidget_y(Widget) <> X11Pos.y)) then
begin begin
{$IF DEFINED(DEBUGQTUSEACCURATEFRAME) OR DEFINED(DEBUGQTCHECKMOVESIZE)} {$IF DEFINED(DEBUGQTUSEACCURATEFRAME) OR DEFINED(DEBUGQTCHECKMOVESIZE)}
DebugLn('1.*error: *** SlotMove(',dbgsName(LCLObject),Format(' calculated pos x %d y %d',[Msg.XPos, Msg.YPos]),' realized=',dbgs(GetX11WindowRealized(QWidget_winId(Widget)))); DebugLn('1.*error: *** SlotMove(',dbgsName(LCLObject),Format(' calculated pos x %d y %d',[Msg.XPos, Msg.YPos]),' realized=',dbgs(GetX11WindowRealized(QWidget_winId(Widget))));
DebugLn(' > ',Format('current LCL x %d y %d Qt x %d y %d X11 x %d y %d CALC x %d y %d',[LCLObject.Left, LCLObject.Top, QWidget_x(Widget), QWidget_y(Widget), X11Pos.x, X11Pos.y, Msg.XPos, Msg.YPos])); DebugLn(' > ',Format('current LCL x %d y %d Qt x %d y %d X11 x %d y %d CALC x %d y %d',[LCLObject.Left, LCLObject.Top, QWidget_x(Widget), QWidget_y(Widget), X11Pos.x, X11Pos.y, Msg.XPos, Msg.YPos]));
DebugLn(' > FrameRect=',dbgs(FrameRect),' WindowRect=',dbgs(WindowRect),' Margins=',dbgs(FFrameMargins)); DebugLn(' > FrameRect=',dbgs(FrameRect),' WindowRect=',dbgs(WindowRect),' Margins=',dbgs(FFrameMargins));
DebugLn('< sending valid values to Qt and LCL ',Format('x %d y %d compositor %s ',[X11Pos.X, X11Pos.y,dbgs(QX11Info_isCompositingManagerRunning)])); DebugLn('< sending valid values to Qt and LCL ',Format('x %d y %d compositor %s ',[X11Pos.X, X11Pos.y,dbgs(QX11Info_isCompositingManagerRunning)]));
{$ENDIF} {$ENDIF}
QWidget_move(Widget, X11Pos.x, X11Pos.y); QWidget_move(Widget, X11Pos.x, X11Pos.y);
exit; exit;
end;
end; end;
*)
end; end;
end; end;
{$ENDIF} {$ENDIF}