瀏覽代碼

* Make color distinct from cardinal

Michaël Van Canneyt 1 年之前
父節點
當前提交
cbbcc4356a
共有 1 個文件被更改,包括 2 次插入2 次删除
  1. 2 2
      packages/rtl-objpas/src/inc/system.uitypes.pp

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

@@ -25,9 +25,9 @@ interface
 Type  
     TColor      = -$7FFFFFFF-1..$7FFFFFFF;
     PColor      = ^TColor;
-    TColorRef   = Cardinal;
+    TColorRef   = Type Cardinal;
     PColorRef   = ^TColorRef;
-    TAlphaColor = Cardinal;
+    TAlphaColor = Type Cardinal;
     PAlphaColor = ^TAlphaColor;
     TImageIndex = type Integer;