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

LCL: debugging for disableautosizing

Browse Source 
git-svn-id: trunk@24096 -
This commit is contained in:
mattias 2010-03-19 11:24:42 +00:00
parent 79930ba4a7
commit c70222fe4e
3 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/controls.pp
View File

@ -1301,7 +1301,7 @@ type
procedure DisableAutoSizing{$IFDEF DebugDisableAutoSizing}(const Reason: string){$ENDIF}; procedure DisableAutoSizing{$IFDEF DebugDisableAutoSizing}(const Reason: string){$ENDIF};
procedure EnableAutoSizing{$IFDEF DebugDisableAutoSizing}(const Reason: string){$ENDIF}; procedure EnableAutoSizing{$IFDEF DebugDisableAutoSizing}(const Reason: string){$ENDIF};
{$IFDEF DebugDisableAutoSizing} {$IFDEF DebugDisableAutoSizing}
procedure WriteAutoSizeReasons; procedure WriteAutoSizeReasons(NotIfEmpty: boolean);
{$ENDIF} {$ENDIF}
procedure UpdateBaseBounds(StoreBounds, StoreParentClientSize, procedure UpdateBaseBounds(StoreBounds, StoreParentClientSize,
UseLoadedValues: boolean); virtual; UseLoadedValues: boolean); virtual;

3
lcl/include/control.inc
View File

@ -4922,8 +4922,9 @@ begin
end; end;
{$IFDEF DebugDisableAutoSizing} {$IFDEF DebugDisableAutoSizing}
procedure TControl.WriteAutoSizeReasons; procedure TControl.WriteAutoSizeReasons(NotIfEmpty: boolean);
begin begin
if NotIfEmpty and (FAutoSizingLockReasons.Count=0) then exit;
DebugLn(['TControl.WriteAutoSizeReasons ',DbgSName(Self)]); DebugLn(['TControl.WriteAutoSizeReasons ',DbgSName(Self)]);
debugln(FAutoSizingLockReasons.Text); debugln(FAutoSizingLockReasons.Text);
end; end;

2
lcl/include/customform.inc
View File

@ -1367,7 +1367,7 @@ var
I: Integer; I: Integer;
begin begin
if (csDesigning in ComponentState) or (not Showing) then exit; if (csDesigning in ComponentState) or (not Showing) then exit;
{$IFDEF DebugDisableAutoSizing}WriteAutoSizeReasons;{$ENDIF} {$IFDEF DebugDisableAutoSizing}WriteAutoSizeReasons(true);{$ENDIF}
// update this form // update this form
InitiateAction; InitiateAction;
// update main menu's top-most items // update main menu's top-most items