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

fixed storing AnchorSide.Side

Browse Source 
git-svn-id: trunk@8448 -
This commit is contained in:
mattias 2006-01-04 22:54:32 +00:00
parent f6c2971980
commit 7f19762926
1 changed files with 2 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lcl/controls.pp
View File

@ -657,8 +657,7 @@ type
property Kind: TAnchorKind read FKind;
published
property Control: TControl read FControl write SetControl;
property Side: TAnchorSideReference read FSide write SetSide
stored IsSideStored default asrTop;
property Side: TAnchorSideReference read FSide write SetSide default asrTop;
end;
@ -2808,7 +2807,7 @@ begin
inherited Create;
FOwner:=TheOwner;
FKind:=TheKind;
FSide:=DefaultSideForAnchorKind[FKind];
FSide:=asrTop;
end;
destructor TAnchorSide.Destroy;