paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-26 18:43:50 +02:00
Code Issues Packages Projects Releases Wiki Activity

Qt5: cleanup

Browse Source 
git-svn-id: trunk@62914 -
This commit is contained in:
zeljko 2020-04-08 12:49:07 +00:00
parent 274cab383e
commit 27bce1767b
1 changed files with 1 additions and 2 deletions

3
lcl/interfaces/qt5/qtwidgets.pas
View File

@ -7614,7 +7614,7 @@ begin
R.Top := R.Top - FFrameMargins.Top;
if (R.Left <> QWidget_x(Widget)) or (R.Top <> QWidget_y(Widget)) then
begin
DebugLn('WARNING: QEventActivationChange(*TRUE*) ',GetWindowManager,' wm strange position: ',Format('X11 x %d y %d Qt x %d y %d',[R.Left, R.Top, QWidget_x(Widget), QWidget_y(Widget)]));
DebugLn('WARNING: QEventActivationChange *TRUE* ',GetWindowManager,' wm strange position: ',Format('X11 x %d y %d Qt x %d y %d',[R.Left, R.Top, QWidget_x(Widget), QWidget_y(Widget)]));
FFormHasInvalidPosition := True;
end;
end;
@ -17165,7 +17165,6 @@ end;
function TQtViewPort.EventFilter(Sender: QObjectH; Event: QEventH): Boolean; cdecl;
var
ScrollBar: QScrollBarH;
ASize: TSize;
AResizeEvent: QResizeEventH;
begin