paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-06 13:00:47 +02:00
Code Issues Packages Projects Releases Wiki Activity

fix one occurrence of DebugDisableAutoSizing

Browse Source 
git-svn-id: trunk@32151 -
This commit is contained in:
martin 2011-09-01 22:44:37 +00:00
parent d0d565f788
commit bb8ada822a
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lcl/include/control.inc
View File

@ -3235,7 +3235,7 @@ var
begin
if FAlign = Value then exit;
//DebugLn(['TControl.SetAlign ',DbgSName(Self),' Old=',AlignNames[FAlign],' New=',AlignNames[Value],' ',Anchors<>AnchorAlign[FAlign]]);
DisableAutoSizing;
DisableAutoSizing{$IFDEF DebugDisableAutoSizing}('TControl.setalign'){$ENDIF};
OldAlign := FAlign;
FAlign := Value;
for a:=low(TAnchorKind) to High(TAnchorKind) do
@ -3250,7 +3250,7 @@ begin
Anchors := AnchorAlign[FAlign];
if not (csLoading in ComponentState) then
BoundsRect:=BaseBounds;
EnableAutoSizing;
EnableAutoSizing{$IFDEF DebugDisableAutoSizing}('TControl.setalign'){$ENDIF};
end;
{------------------------------------------------------------------------------