diff --git a/lcl/controls.pp b/lcl/controls.pp index ca686b9681..ea6a9d0067 100644 --- a/lcl/controls.pp +++ b/lcl/controls.pp @@ -1301,7 +1301,7 @@ type procedure DisableAutoSizing{$IFDEF DebugDisableAutoSizing}(const Reason: string){$ENDIF}; procedure EnableAutoSizing{$IFDEF DebugDisableAutoSizing}(const Reason: string){$ENDIF}; {$IFDEF DebugDisableAutoSizing} - procedure WriteAutoSizeReasons; + procedure WriteAutoSizeReasons(NotIfEmpty: boolean); {$ENDIF} procedure UpdateBaseBounds(StoreBounds, StoreParentClientSize, UseLoadedValues: boolean); virtual; diff --git a/lcl/include/control.inc b/lcl/include/control.inc index a4be39947b..96b49ed5a5 100644 --- a/lcl/include/control.inc +++ b/lcl/include/control.inc @@ -4922,8 +4922,9 @@ begin end; {$IFDEF DebugDisableAutoSizing} -procedure TControl.WriteAutoSizeReasons; +procedure TControl.WriteAutoSizeReasons(NotIfEmpty: boolean); begin + if NotIfEmpty and (FAutoSizingLockReasons.Count=0) then exit; DebugLn(['TControl.WriteAutoSizeReasons ',DbgSName(Self)]); debugln(FAutoSizingLockReasons.Text); end; diff --git a/lcl/include/customform.inc b/lcl/include/customform.inc index 0f285f8ac7..c890749429 100644 --- a/lcl/include/customform.inc +++ b/lcl/include/customform.inc @@ -1367,7 +1367,7 @@ var I: Integer; begin if (csDesigning in ComponentState) or (not Showing) then exit; - {$IFDEF DebugDisableAutoSizing}WriteAutoSizeReasons;{$ENDIF} + {$IFDEF DebugDisableAutoSizing}WriteAutoSizeReasons(true);{$ENDIF} // update this form InitiateAction; // update main menu's top-most items