瀏覽代碼

fix TAnchorKind definition

(cherry picked from commit d9f05d341da1da407344839e874b69addd64aef9)
Ondrej Pokorny 2 年之前
父節點
當前提交
8112997338
共有 1 個文件被更改,包括 1 次插入1 次删除
  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,
                   dmDragCancel,dmFindTarget);
 
-  TAnchorKind = (akLeft, akTop, akRight, akBottom);
+  TAnchorKind = (akTop, akLeft, akRight, akBottom);
   TAnchors = set of TAnchorKind;
   TAnchorSideReference = (asrTop, asrBottom, asrCenter);