GdiPlus[4]:TGPColor

varc1, c2, c3, c4, c5, c6, c7, c8, c9, c10, c11: TGPColor;
beginc1 :&＃61; TGPColor.Create(0, 0, 255); { 不透明蓝色 }c2 :&＃61; TGPColor.Create(255, 0, 0, 255); { 不透明蓝色 }c3 :&＃61; TGPColor.Create(128, 0, 0, 255); { 半透明蓝色 }c4 :&＃61; TGPColor.Create($800000FF); { 半透明蓝色 }c5 :&＃61; TGPColor.MakeARGB(128, 0, 0, 255); { 半透明蓝色 }c6 :&＃61; TGPColor.CreateFromColorRef(clBlue); { 半透明蓝色, 参数是 Delphi 传统格式的颜色值 }c7.Initialize(0, 0, 255); { 不透明蓝色 }c8.Initialize(128, 0, 0, 255); { 半透明蓝色 }c9.Initialize($800000FF); { 半透明蓝色 }c10.InitializeFromColorRef(clBlue); { 不透明蓝色, 参数是 Delphi 传统格式的颜色值 }c11 :&＃61; TGPColor.Blue; { 不透明蓝色, 这是 TGPColor 中 141 个颜色常量之一 }
end;//因为 TGPColor 使用运算符重载: TGPColor 可与 ARGB(Cardinal) 隐式转换, 所以:
varColor: TGPColor;
beginColor :&＃61; $FF00FF00;ShowMessageFmt(&＃39;$%x&＃39;, [Color.Value]); //$FF00FF00
end;//反之亦然:
varNum: ARGB;
beginNum :&＃61; TGPColor.Lime;ShowMessageFmt(&＃39;$%x&＃39;, [Num]); //$FF00FF00
end;
TGPColor 的属性:

varC: TGPColor;
beginC :&＃61; TGPColor.Create($11, $22, $33, $44);{ TGPColor.Value 是颜色值 }ShowMessageFmt(&＃39;$%x&＃39;, [C.Value]); //$11223344{ TGPColor.ColorRef 是 Delphi 传统格式的颜色值 }ShowMessageFmt(&＃39;$%x&＃39;, [C.ColorRef]); //$443322{ Alpha、Red、Green、Blue 各分量 }ShowMessageFmt(&＃39;$%.2x, $%.2x, $%.2x, $%.2x&＃39;, [C.A, C.R, C.G, C.B]); //$11, $22, $33, $44{ TGPColor.Alpha 与 TGPColor.A 是一回事 }ShowMessageFmt(&＃39;$%.2x, $%.2x&＃39;, [C.Alpha, C.A]); //$11, $11
end;
透明色演示代码:

uses GdiPlus, GdiPlusHelpers;procedure TForm1.FormPaint(Sender: TObject);
varImage: IGPImage;Brush: IGPSolidBrush;Rect: TGPRect;
beginChDir(&＃39;C:\GdiPlusImg\&＃39;);Image :&＃61; TGPImage.Create(&＃39;Grapes.jpg&＃39;);Canvas.ToGPGraphics.DrawImage(Image, 20, 10);Rect.Initialize(0, 20, Image.Width &＃43; 40, 35);Brush :&＃61; TGPSolidBrush.Create(TGPColor.Create(255, 0, 128, 255));Canvas.ToGPGraphics.FillRectangle(Brush, Rect);Rect.Y :&＃61; Rect.Y &＃43; Rect.Height &＃43; 20;Brush :&＃61; TGPSolidBrush.Create(TGPColor.Create(127, 0, 128, 255));Canvas.ToGPGraphics.FillRectangle(Brush, Rect);Rect.Y :&＃61; Rect.Y &＃43; Rect.Height &＃43; 20;Brush :&＃61; TGPSolidBrush.Create(TGPColor.Create(63, 0, 128, 255));Canvas.ToGPGraphics.FillRectangle(Brush, Rect);
end;
效果图: