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

IDE: Fixed compiling for -dDebugDisableAutoSizing.

Browse Source 
git-svn-id: trunk@58301 -
This commit is contained in:
michl 2018-06-18 08:21:28 +00:00
parent b525daf3e8
commit 33d16133fc
3 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/sparta/dockedformeditor/source/sparta_mainide.pas
View File

@ -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;

2
designer/menueditor.pp
View File

@ -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');

4
ide/mainbar.pas
View File

@ -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;