diff --git a/components/sparta/dockedformeditor/source/sparta_mainide.pas b/components/sparta/dockedformeditor/source/sparta_mainide.pas index 486c307bd6..b76366a06a 100644 --- a/components/sparta/dockedformeditor/source/sparta_mainide.pas +++ b/components/sparta/dockedformeditor/source/sparta_mainide.pas @@ -819,7 +819,7 @@ begin and (not (AForm is TNonControlProxyDesignerForm)) and (not (AForm is TFrameProxyDesignerForm)) then begin FAutoSizeFormList.Delete(AIndex); - AForm.EnableAutoSizing; + AForm.EnableAutoSizing{$IFDEF DebugDisableAutoSizing}('TAnchorDockMaster Delayed'){$ENDIF}; end; end; diff --git a/designer/menueditor.pp b/designer/menueditor.pp index 4179f80dcd..6e5d36e2d0 100644 --- a/designer/menueditor.pp +++ b/designer/menueditor.pp @@ -933,7 +933,7 @@ var si: TShadowItemBase; begin sb:=GetParentBoxForMenuItem(aMI); - sb.DisableAutoSizing; + sb.DisableAutoSizing{$IFDEF DebugDisableAutoSizing}('TShadowMenu.DeleteBox'){$ENDIF}; for i:=aMI.Count-1 downto 0 do DeleteBox(aMI.Items[i]); Assert(sb<>nil,'TShadowMenu.DeleteBox: internal error'); diff --git a/ide/mainbar.pas b/ide/mainbar.pas index 22097cfb71..dea8161a42 100644 --- a/ide/mainbar.pas +++ b/ide/mainbar.pas @@ -417,7 +417,7 @@ begin //DebugLn(['TMainIDEBar.DoSetMainIDEHeight: IDEStarted=', LazarusIDE.IDEStarted]); - DisableAutoSizing; + DisableAutoSizing{$IFDEF DebugDisableAutoSizing}('TMainIDEBar.DoSetMainIDEHeight'){$ENDIF}; try if Assigned(IDEDockMaster) then begin @@ -451,7 +451,7 @@ begin end; end; finally - EnableAutoSizing; + EnableAutoSizing{$IFDEF DebugDisableAutoSizing}('TMainIDEBar.DoSetMainIDEHeight'){$ENDIF}; end; end;