paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-13 11:09:22 +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 EnableAutoSizing{$IFDEF DebugDisableAutoSizing}(const Reason: string){$ENDIF};
{$IFDEF DebugDisableAutoSizing}
procedure WriteAutoSizeReasons;
procedure WriteAutoSizeReasons(NotIfEmpty: boolean);
{$ENDIF}
procedure UpdateBaseBounds(StoreBounds, StoreParentClientSize,
UseLoadedValues: boolean); virtual;

3
lcl/include/control.inc
View File

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

2
lcl/include/customform.inc
View File

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