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

Qt5,Qt6: fixes sizepos loop error. issue #41508

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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -4440,6 +4440,12 @@ begin
{$endif} {$endif}
if Handle = 0 then if Handle = 0 then
Exit(False); Exit(False);
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; R := TQtWidget(Handle).getFrameGeometry;
Left := R.Left; Left := R.Left;
Top := R.Top; Top := R.Top;

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

@ -4467,6 +4467,12 @@ begin
{$endif} {$endif}
if Handle = 0 then if Handle = 0 then
Exit(False); Exit(False);
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; R := TQtWidget(Handle).getFrameGeometry;
Left := R.Left; Left := R.Left;
Top := R.Top; Top := R.Top;