paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-30 15:50:25 +02:00
Code Issues Packages Projects Releases Wiki Activity

qt intf: fixed GetWindowRect right and bottom

Browse Source 
git-svn-id: trunk@26108 -
This commit is contained in:
mattias 2010-06-14 11:16:28 +00:00
parent 80f6b8f7de
commit 62d2ab1ab0
1 changed files with 1 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
lcl/interfaces/qt/qtwinapi.inc
View File

@ -3630,14 +3630,7 @@ begin
QWidget_mapToGlobal(AParent, @APos, @APos);
R1 := TQtWidget(Handle).getFrameGeometry;
ARect.Left := APos.x;
ARect.Top := APos.y;
with R1 do
begin
ARect.Right := ARect.Left + (Right - Left);
ARect.Bottom := ARect.Top + (Bottom - Top);
end;
ARect:=Bounds(APos.X,APos.Y,R1.Right-R1.Left,R1.Bottom-R1.Top);
Result := -1;
end;