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

Qt: take into account vertical and horizontal scrollbars position when setting bounds for children of TScrollBox.issue #18993

Browse Source 
git-svn-id: trunk@30072 -
This commit is contained in:
zeljko 2011-03-29 16:25:19 +00:00
parent bde4fc65af
commit 1c92a3ea27
1 changed files with 25 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

27
lcl/interfaces/qt/qtwscontrols.pp
View File

@ -415,12 +415,35 @@ end;
------------------------------------------------------------------------------}
class procedure TQtWSWinControl.SetBounds(const AWinControl: TWinControl;
const ALeft, ATop, AWidth, AHeight: Integer);
var
Pt: TQtPoint;
R: TRect;
Box: TQtWidget;
begin
if not WSCheckHandleAllocated(AWincontrol, 'SetBounds') then
Exit;
R := Rect(ALeft, ATop, AWidth, AHeight);
Box := nil;
if Assigned(AWinControl.Parent) and
AWinControl.Parent.HandleAllocated then
Box := TQtWidget(AWinControl.Parent.Handle);
if Assigned(Box) and
(Box.ChildOfComplexWidget = ccwScrollingWinControl) then
begin
Pt := TQtWidget(AWinControl.Handle).getPos;
R := Rect(ALeft - TQtCustomControl(Box).horizontalScrollBar.getValue,
ATop - TQtCustomControl(Box).verticalScrollBar.getValue, AWidth, AHeight);
end;
TQtWidget(AWinControl.Handle).BeginUpdate;
TQtWidget(AWinControl.Handle).move(ALeft, ATop);
TQtWidget(AWinControl.Handle).resize(AWidth, AHeight);
with R do
begin
TQtWidget(AWinControl.Handle).move(Left, Top);
TQtWidget(AWinControl.Handle).resize(Right, Bottom);
end;
TQtWidget(AWinControl.Handle).EndUpdate;
end;