Browse Source

fix TAnchorKind definition

(cherry picked from commit d9f05d341da1da407344839e874b69addd64aef9)
Ondrej Pokorny 2 years ago
parent
commit
8112997338
1 changed files with 1 additions and 1 deletions
  1. 1 1
      packages/rtl-objpas/src/inc/system.uitypes.pp

+ 1 - 1
packages/rtl-objpas/src/inc/system.uitypes.pp

@@ -291,7 +291,7 @@ type
   TDragMessage = (dmDragEnter, dmDragLeave, dmDragMove, dmDragDrop,
   TDragMessage = (dmDragEnter, dmDragLeave, dmDragMove, dmDragDrop,
                   dmDragCancel,dmFindTarget);
                   dmDragCancel,dmFindTarget);
 
 
-  TAnchorKind = (akLeft, akTop, akRight, akBottom);
+  TAnchorKind = (akTop, akLeft, akRight, akBottom);
   TAnchors = set of TAnchorKind;
   TAnchors = set of TAnchorKind;
   TAnchorSideReference = (asrTop, asrBottom, asrCenter);
   TAnchorSideReference = (asrTop, asrBottom, asrCenter);