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

DockedFormEditor: Win32: Fixed wrong form size after changing AutoScroll, see issue #38856

Browse Source 
git-svn-id: trunk@65093 -
This commit is contained in:
michl 2021-05-07 19:59:30 +00:00
parent 66493736c2
commit c8e8ad8dc8
1 changed files with 5 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lcl/include/scrollingwincontrol.inc
View File

@ -10,13 +10,18 @@
}
procedure TScrollingWinControl.SetAutoScroll(Value: Boolean);
var
LOldBounds: TRect;
begin
if FAutoScroll = Value then Exit;
FAutoScroll := Value;
LOldBounds := BoundsRect;
if Value then
UpdateScrollBars
else
HideScrollbars;
if LOldBounds <> BoundsRect then
BoundsRect := LOldBounds;
end;
procedure TScrollingWinControl.CreateWnd;