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

LCL: fixed TAnchorSide.CheckSidePosition circle check

Browse Source 
git-svn-id: trunk@26275 -
This commit is contained in:
mattias 2010-06-24 07:35:43 +00:00
parent f5bc15e6a6
commit 0aca7c0bf4
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
lcl/controls.pp
View File

@ -3663,15 +3663,18 @@ begin
end else if (CurReferenceSide=asrLeft) = (Kind in [akLeft,akTop]) then
begin
// anchor parallel (e.g. a left side to a left side)
NextReferenceSide:=CurReferenceControl.AnchorSide[Kind];
if Kind in CurReferenceControl.Anchors then
NextReferenceSide:=CurReferenceControl.AnchorSide[Kind];
end else begin
// anchor opposite (e.g. a left side to a right side)
NextReferenceSide:=CurReferenceControl.AnchorSide[OppositeAnchor[Kind]];
if OppositeAnchor[Kind] in CurReferenceControl.Anchors then
NextReferenceSide:=CurReferenceControl.AnchorSide[OppositeAnchor[Kind]];
end;
end;
if (NextReferenceSide=nil) then
begin
// no further side => anchor ok
// Note: if anchored control is not visible, it is anchored to the parent
//if CheckPosition(Owner) and (Kind=akRight) then
//if Owner.Name='ClassPartInsertPolicyRadioGroup' then
// DebugLn(['TAnchorSide.GetSidePosition Success ',DbgSName(Owner),' ReferenceControl=',dbgsName(ReferenceControl),' CurReferenceControl=',DbgSName(CurReferenceControl),' CurReferenceSide=',dbgs(Kind,CurReferenceSide)]);