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

LCL: reordered variables of TAnchorSide as workaround for bug #14364

Browse Source 
git-svn-id: trunk@21345 -
This commit is contained in:
mattias 2009-08-20 10:39:26 +00:00
parent 81a6659dc6
commit 8300860867
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/controls.pp
View File

@ -725,8 +725,8 @@ type
TAnchorSide = class(TPersistent) TAnchorSide = class(TPersistent)
private private
FKind: TAnchorKind; // keep FKind the first property. see bug 14364
FControl: TControl; FControl: TControl;
FKind: TAnchorKind;
FOwner: TControl; FOwner: TControl;
FSide: TAnchorSideReference; FSide: TAnchorSideReference;
function IsSideStored: boolean; function IsSideStored: boolean;