瀏覽代碼

+ Fixed cltransparant issue

michael 22 年之前
父節點
當前提交
95d9a6e16e
共有 1 個文件被更改,包括 1 次插入1 次删除
  1. 1 1
      fcl/image/fpimage.inc

+ 1 - 1
fcl/image/fpimage.inc

@@ -232,7 +232,7 @@ constructor TFPMemoryImage.Create (AWidth,AHeight:integer);
 begin
   inherited create (AWidth,AHeight);
   UsePalette := True;
-  Palette.Add (clTransparent);
+  Palette.Add (colTransparent);
 end;
 
 destructor TFPMemoryImage.Destroy;