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

LCL: TControl.SetAnchors: during disabled autosize: update basebounds when changing Anchors, bug #21730

Browse Source 
git-svn-id: trunk@36882 -
This commit is contained in:
mattias 2012-04-17 08:59:52 +00:00
parent e5ffde0bbc
commit 3a53d3f869
1 changed files with 7 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
lcl/include/control.inc
View File

@ -3747,6 +3747,13 @@ begin
for a:=Low(TAnchorKind) to high(TAnchorKind) do for a:=Low(TAnchorKind) to high(TAnchorKind) do
if (a in NewAnchors) and (AnchorSide[a].Side=asrCenter) then if (a in NewAnchors) and (AnchorSide[a].Side=asrCenter) then
AnchorSide[a].FixCenterAnchoring; AnchorSide[a].FixCenterAnchoring;
// Delphi Anchors depend on the current bounds of Self and Parent.ClientRect
// => fetch current BaseBounds
// for example:
// during disabled autosizing: Width:=100; Anchors:=Anchors+[akRight];
UpdateAnchorRules;
AdjustSize; AdjustSize;
end; end;