mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-06-10 17:38:25 +02:00
DockedFormEditor: Win32: Fixed wrong form size after changing AutoScroll, see issue #38856
git-svn-id: trunk@65093 -
This commit is contained in:
parent
66493736c2
commit
c8e8ad8dc8
@ -10,13 +10,18 @@
|
|||||||
}
|
}
|
||||||
|
|
||||||
procedure TScrollingWinControl.SetAutoScroll(Value: Boolean);
|
procedure TScrollingWinControl.SetAutoScroll(Value: Boolean);
|
||||||
|
var
|
||||||
|
LOldBounds: TRect;
|
||||||
begin
|
begin
|
||||||
if FAutoScroll = Value then Exit;
|
if FAutoScroll = Value then Exit;
|
||||||
FAutoScroll := Value;
|
FAutoScroll := Value;
|
||||||
|
LOldBounds := BoundsRect;
|
||||||
if Value then
|
if Value then
|
||||||
UpdateScrollBars
|
UpdateScrollBars
|
||||||
else
|
else
|
||||||
HideScrollbars;
|
HideScrollbars;
|
||||||
|
if LOldBounds <> BoundsRect then
|
||||||
|
BoundsRect := LOldBounds;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
procedure TScrollingWinControl.CreateWnd;
|
procedure TScrollingWinControl.CreateWnd;
|
||||||
|
Loading…
Reference in New Issue
Block a user