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

Qt: do not trigger warning "level 2 comment found" when compiling ws.

Browse Source 
git-svn-id: trunk@61140 -
This commit is contained in:
zeljko 2019-05-05 09:30:52 +00:00
parent 485494fb4d
commit 5f50baabd0
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -7582,7 +7582,7 @@ begin
R.Top := R.Top - FFrameMargins.Top; R.Top := R.Top - FFrameMargins.Top;
if (R.Left <> QWidget_x(Widget)) or (R.Top <> QWidget_y(Widget)) then if (R.Left <> QWidget_x(Widget)) or (R.Top <> QWidget_y(Widget)) then
begin 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; FFormHasInvalidPosition := True;
end; end;
end; end;