From c1f3bfbe36381d745acaffc7a3f3b2ccfc7d0285 Mon Sep 17 00:00:00 2001 From: mattias Date: Tue, 1 Dec 2015 13:13:51 +0000 Subject: [PATCH] LCL: TWinControl.ScollBy: less overhead git-svn-id: trunk@50551 - --- lcl/include/wincontrol.inc | 11 ++++++++--- 1 file changed, 8 insertions(+), 3 deletions(-) diff --git a/lcl/include/wincontrol.inc b/lcl/include/wincontrol.inc index e13a453613..0e8a6737a3 100644 --- a/lcl/include/wincontrol.inc +++ b/lcl/include/wincontrol.inc @@ -6147,9 +6147,14 @@ var i: Integer; begin // scroll inner controls - for i := 0 to ControlCount - 1 do - with Controls[i] do - SetBounds(Left + DeltaX, Top + DeltaY, Width, Height); + DisableAutoSizing; + try + for i := 0 to ControlCount - 1 do + with Controls[i] do + SetBounds(Left + DeltaX, Top + DeltaY, Width, Height); + finally + EnableAutoSizing; + end; end; {------------------------------------------------------------------------------