GdiPlus[4]: TGPColor

TGPColor 是 GdiPlus 的颜色主体, 它虽然是个结构体, 但和类一样, 方法、属性一应俱全.

之所以没有把它定义为类或接口, 我觉得主要是它需要和一个整数值进行隐式转换, 这要用到运算符重载(暂时只有结构有).

TGPColor 的多种构建方法:

---

var

  c1, c2, c3, c4, c5, c6, c7, c8, c9, c10, c11: TGPColor;

begin

  c1 := TGPColor.Create(0, 0, 255);          { 不透明蓝色 }

  c2 := TGPColor.Create(255, 0, 0, 255);     { 不透明蓝色 }

  c3 := TGPColor.Create(128, 0, 0, 255);     { 半透明蓝色 }

  c4 := TGPColor.Create($800000FF);          { 半透明蓝色 }

  c5 := TGPColor.MakeARGB(128, 0, 0, 255);   { 半透明蓝色 }

  c6 := TGPColor.CreateFromColorRef(clBlue); { 半透明蓝色, 参数是 Delphi 传统格式的颜色值 }



  c7.Initialize(0, 0, 255);                  { 不透明蓝色 }

  c8.Initialize(128, 0, 0, 255);             { 半透明蓝色 }

  c9.Initialize($800000FF);                  { 半透明蓝色 }

  c10.InitializeFromColorRef(clBlue);        { 不透明蓝色, 参数是 Delphi 传统格式的颜色值 }



  c11 := TGPColor.Blue;                      { 不透明蓝色, 这是 TGPColor 中 141 个颜色常量之一 }

end;



//因为 TGPColor 使用运算符重载: TGPColor 可与 ARGB(Cardinal) 隐式转换, 所以:

var

  Color: TGPColor;

begin

  Color := $FF00FF00;

  ShowMessageFmt('$%x', [Color.Value]); //$FF00FF00

end;



//反之亦然:

var

  Num: ARGB;

begin

  Num := TGPColor.Lime;

  ShowMessageFmt('$%x', [Num]);         //$FF00FF00

end;


 
   

TGPColor 的属性:

---

var

  C: TGPColor;

begin

  C := TGPColor.Create($11, $22, $33, $44);



  { TGPColor.Value 是颜色值 }

  ShowMessageFmt('$%x', [C.Value]);    //$11223344



  { TGPColor.ColorRef 是 Delphi 传统格式的颜色值 }

  ShowMessageFmt('$%x', [C.ColorRef]); //$443322



  { Alpha、Red、Green、Blue 各分量 }

  ShowMessageFmt('$%.2x, $%.2x, $%.2x, $%.2x', [C.A, C.R, C.G, C.B]); //$11, $22, $33, $44



  { TGPColor.Alpha 与 TGPColor.A 是一回事 }

  ShowMessageFmt('$%.2x, $%.2x', [C.Alpha, C.A]); //$11, $11

end;


 
   

透明色演示代码:

---

uses GdiPlus, GdiPlusHelpers;



procedure TForm1.FormPaint(Sender: TObject);

var

  Image: IGPImage;

  Brush: IGPSolidBrush;

  Rect: TGPRect;

begin

  ChDir('C:\GdiPlusImg\');

  Image := TGPImage.Create('Grapes.jpg');

  Canvas.ToGPGraphics.DrawImage(Image, 20, 10);



  Rect.Initialize(0, 20, Image.Width + 40, 35);

  Brush := TGPSolidBrush.Create(TGPColor.Create(255, 0, 128, 255));

  Canvas.ToGPGraphics.FillRectangle(Brush, Rect);



  Rect.Y := Rect.Y + Rect.Height + 20;

  Brush := TGPSolidBrush.Create(TGPColor.Create(127, 0, 128, 255));

  Canvas.ToGPGraphics.FillRectangle(Brush, Rect);



  Rect.Y := Rect.Y + Rect.Height + 20;

  Brush := TGPSolidBrush.Create(TGPColor.Create(63, 0, 128, 255));

  Canvas.ToGPGraphics.FillRectangle(Brush, Rect);

end;


 
   

效果图:

---