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

IDE: fixed Disable/EnableAutosizing debug designer form

Browse Source 
git-svn-id: trunk@50180 -
This commit is contained in:
mattias 2015-10-26 22:21:14 +00:00
parent b89ff5d096
commit c6391b6a34
2 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
designer/jitforms.pp
View File

@ -1043,7 +1043,7 @@ begin
//debugln('[TJITForms.DoCreateJITComponent] Creating an instance of JIT class "'+NewClassName+'" = class('+AncestorClass.ClassName+') ...');
Instance:=TComponent(FCurReadClass.NewInstance);
if DisableAutoSize and (Instance is TControl) then
TControl(Instance).DisableAutoSizing{$IFDEF DebugDisableAutoSizing}('TJITComponentList.DoCreateJITComponent'){$ENDIF};
TControl(Instance).DisableAutoSizing{$IFDEF DebugDisableAutoSizing}('TAnchorDockMaster Delayed'){$ENDIF};
//debugln('[TJITForms.DoCreateJITComponent] Initializing new instance ... ',DbgS(Instance));
TComponent(FCurReadJITComponent):=Instance;
try

4
ide/sourcefilemanager.pas
View File

@ -1830,7 +1830,7 @@ begin
DisableAutoSize);
if DisableAutoSize and (NewUnitInfo.Component<>nil)
and (NewUnitInfo.Component is TControl) then
TControl(NewUnitInfo.Component).EnableAutoSizing{$IFDEF DebugDisableAutoSizing}('TLazSourceFileManager.NewFile'){$ENDIF};
TControl(NewUnitInfo.Component).EnableAutoSizing{$IFDEF DebugDisableAutoSizing}('TAnchorDockMaster Delayed'){$ENDIF};
end;
if Result<>mrOk then
begin
@ -5774,7 +5774,7 @@ begin
if ofLoadHiddenResource in OpenFlags then
NewControl.ControlStyle:=NewControl.ControlStyle+[csNoDesignVisible];
if DisableAutoSize then
NewControl.EnableAutoSizing{$IFDEF DebugDisableAutoSizing}('TLazSourceFileManager.LoadLFM'){$ENDIF};
NewControl.EnableAutoSizing{$IFDEF DebugDisableAutoSizing}('TAnchorDockMaster Delayed'){$ENDIF};
end;
if NewComponent is TFrame then