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

IDE: anchor editor: fixed reading space

Browse Source 
git-svn-id: trunk@32560 -
This commit is contained in:
mattias 2011-09-29 18:56:32 +00:00
parent f99dd2f18d
commit df7c65a674
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
designer/anchoreditor.pas
View File

@ -1061,7 +1061,7 @@ var
CurSide: TAnchorSide;
begin
FAmbiguousBorderSpace:=false;
FBorderSpace:=AControl.BorderSpacing.GetSideSpace(FAnchorKind);
FBorderSpace:=AControl.BorderSpacing.GetSpace(FAnchorKind);
FAmbiguousEnabled:=false;
FEnabled:=(FAnchorKind in AControl.Anchors);
CurSide:=AControl.AnchorSide[FAnchorKind];
@ -1076,7 +1076,7 @@ var
CurSide: TAnchorSide;
begin
FAmbiguousBorderSpace:=FAmbiguousBorderSpace
or (FBorderSpace<>AControl.BorderSpacing.GetSideSpace(FAnchorKind));
or (FBorderSpace<>AControl.BorderSpacing.GetSpace(FAnchorKind));
FAmbiguousEnabled:=FAmbiguousEnabled
or (FEnabled<>(FAnchorKind in AControl.Anchors));
CurSide:=AControl.AnchorSide[FAnchorKind];