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

Qt5,Qt6: fixes sizepos loop error. issue

Browse Source
This commit is contained in:
zeljan1 2025-04-01 21:37:09 +02:00
parent 1fb8e5a099
commit a7c6c82c2b
2 changed files with 14 additions and 2 deletions
lcl/interfaces
qt5
qtwinapi.inc
qt6
qtwinapi.inc

8
lcl/interfaces/qt5/qtwinapi.inc
View File

@ -4440,7 +4440,13 @@ begin
{$endif} {$endif}
if Handle = 0 then if Handle = 0 then
Exit(False); Exit(False);
R := TQtWidget(Handle).getFrameGeometry; if QWidget_isTopLevel(TQtWidget(Handle).Widget) then
begin
R := Rect(0, 0, 0, 0);
if GetWindowRect(Handle, R) = 0 then
R := TQtWidget(Handle).getFrameGeometry;
end else
R := TQtWidget(Handle).getFrameGeometry;
Left := R.Left; Left := R.Left;
Top := R.Top; Top := R.Top;
Result := True; Result := True;

8
lcl/interfaces/qt6/qtwinapi.inc
View File

@ -4467,7 +4467,13 @@ begin
{$endif} {$endif}
if Handle = 0 then if Handle = 0 then
Exit(False); Exit(False);
R := TQtWidget(Handle).getFrameGeometry; if QWidget_isTopLevel(TQtWidget(Handle).Widget) then
begin
R := Rect(0, 0, 0, 0);
if GetWindowRect(Handle, R) = 0 then
R := TQtWidget(Handle).getFrameGeometry;
end else
R := TQtWidget(Handle).getFrameGeometry;
Left := R.Left; Left := R.Left;
Top := R.Top; Top := R.Top;
Result := True; Result := True;