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

LCL: TControl.SetAlign: change back to BaseBounds like VCL Explicit*

Browse Source 
git-svn-id: trunk@30822 -
This commit is contained in:
mattias 2011-05-19 21:15:08 +00:00
parent d123c41d7a
commit ab7c9eb2f2
1 changed files with 0 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/include/control.inc
View File

@ -3245,10 +3245,8 @@ begin
// This is done for Delphi compatibility. // This is done for Delphi compatibility.
if (Anchors = AnchorAlign[OldAlign]) and (Anchors <> AnchorAlign[FAlign]) then if (Anchors = AnchorAlign[OldAlign]) and (Anchors <> AnchorAlign[FAlign]) then
Anchors := AnchorAlign[FAlign]; Anchors := AnchorAlign[FAlign];
{$IFDEF EnableExplicitBounds}
if not (csLoading in ComponentState) then if not (csLoading in ComponentState) then
BoundsRect:=BaseBounds; BoundsRect:=BaseBounds;
{$ENDIF}
EnableAutoSizing; EnableAutoSizing;
end; end;