作者：纯De魔力_629 | 来源：互联网 | 2023-08-21 10:50
本文为GDI&＃43; for VCL基础系列文章之一&＃xff0c;主要供GDI&＃43;初学者入门参考&＃xff0c;例子使用GDI&＃43;版本下载地址和说明见《GDI&＃43; for VCL基础 -- GDI&＃43; 与 VCL》。如有错误或者建议请来信&＃xff1a;maozefa&＃64;hotmail.com
GDI&＃43;由二维矢量图形、图像和版面等三部分组成&＃xff0c;其中的二维矢量图形的图元&＃xff0c;包括点、线条、曲线和图形等的绘制工具就是画笔和画刷&＃xff0c;而画笔的特征又是由画刷决定的&＃xff08;在以后的关于画笔的文章中介绍&＃xff09;&＃xff0c;因此&＃xff0c;熟练地掌握GDI&＃43;的各种画刷特性和使用方法是绘制GDI&＃43;图形的前提条件。
GDI&＃43;提供了SolidBrush&＃xff08;实色刷&＃xff09;、HatchBrush&＃xff08;阴影刷&＃xff09;、TextureBrush&＃xff08;纹理刷&＃xff09;、LinearGradientBrush&＃xff08;渐变刷&＃xff09;和PathGradientBrush&＃xff08;路径刷&＃xff09;等五种画刷&＃xff0c;在GDI&＃43; for VCL中&＃xff0c;各种画刷在原C&＃43;&＃43;类类名基础上加了TGp前缀&＃xff0c;均派生于TGpBrush&＃xff0c;其中的TGpSolidBrush和TGpHatchBrush相当于VCL中传统的GDI的画刷TBrush。
实色刷是GDI&＃43;最简单也是最基础的画刷&＃xff0c;它以GDI&＃43;的TARGB&＃xff08;GDI&＃43; for BCB中由TGpColor类封装&＃xff09;颜色填充图形。
为了掌握TGpSolidBrush&＃xff0c;在这里有必要简单介绍一下GDI&＃43;的TARGB和VCL的TColor区别。
TARGB与VCL的TColor虽然都定义为如下面的32位整数型&＃xff0c;但它们有很大区别&＃xff0c;首先&＃xff0c;颜色中的RGB排列顺序不一样&＃xff0c;从低字节开始&＃xff0c;TColor的排列顺序为R、G、B&＃xff0c;而TARGB的排列顺序为B、G、R&＃xff1b;其次&＃xff0c;TARGB比TColor多了一个Alpha属性&＃xff0c;用来表示颜色的不透明度&＃xff1b;再次&＃xff0c;TColor虽然定义为32位&＃xff0c;但在表示实际颜色时只用了24位&＃xff0c;其高8位用来表示一些特殊定义的颜色&＃xff0c;如高位为1&＃xff0c;即TColor的值为负数时&＃xff0c;TColor表示系统颜色&＃xff0c;低8位表示系统颜色编号&＃xff0c;不存在RGB属性&＃xff0c;内部使用时转换为COLORREF类型。
// GDI&＃43; 的颜色定义
TARGB &＃61; DWORD;
// VCL 的颜色定义
TColor &＃61; -$7FFFFFFF-1..$7FFFFFFF;
为了在GDI&＃43; for VCL对TColor提供了支持和转换&＃xff0c;在Delphi中是通过几个函数相互转换的&＃xff0c;而在BCB中&＃xff0c;由于TGpColor封装了TARGB&＃xff0c;所以&＃xff0c;其支持和转换方法由TGpColor类提供&＃xff0c;如下面的代码使用VCL的clRed建立GDI&＃43;的实色刷&＃xff1a;
// Delphi 2007
var
Brush: TGpBrush;
begin
Brush :&＃61; TGpSolidBrush.Create(ARGBFromTColor(clRed));
end;
// BCB 2007
TGpBrush *Brush &＃61; new TGpSolidBrush(clRed);
其中&＃xff0c;BCB代码的TGpSolidBrush构造函数参数虽然定义为TGpColor&＃xff0c;但由于TGpColor提供了对TColor的支持&＃xff0c;所以&＃xff0c;clRed可以直接作为参数使用&＃xff08;同理&＃xff0c;TARGB类型也可直接作为参数传递&＃xff09;。具体的支持和转换参见《GDI&＃43; for VCL基础 -- GDI&＃43; 与 VCL》。
GDI&＃43; for VCL定义了141种标准颜色&＃xff08;以kc为前缀&＃xff09;&＃xff0c;下面的代码片断演示了使用标准颜色建立实色刷的例子&＃xff1a;
Delphi例子&＃xff1a;
procedure TForm1.FormCreate(Sender: TObject);
var
backgroundImage: TGpImage;
begin
backgroundImage :&＃61; TGpBitmap.Create(&＃39;../../Media/marble.jpg&＃39;);
try
FBackgroundBrush :&＃61; TGpTextureBrush.Create(backgroundImage);
finally
backgroundImage.Free;
end;
FShadowBrush :&＃61; TGpSolidBrush.Create(ARGB(80, kcBlack));
DoubleBuffered :&＃61; True;
PaintProc :&＃61; SolidPaint;
end;
procedure TForm1.FormDestroy(Sender: TObject);
begin
FBackgroundBrush.Free;
FShadowBrush.Free;
end;
procedure TForm1.GetKnownColorStr(const s: string);
begin
FList.Add(s);
end;
procedure TForm1.SolidPaint(g: TGpGraphics);
var
I, x, y: Integer;
brush: TGpSolidBrush;
begin
FList :&＃61; TStringList.Create;
brush :&＃61; TGpSolidBrush.Create($FFB0B0B0);
try
GetARGBValues(GetKnownColorStr);
y :&＃61; -15;
for I :&＃61; 0 to FList.Count - 1 do
begin
if I mod 14 &＃61; 0 then
begin
x :&＃61; 10;
Inc(y, 25);
end;
brush.Color :&＃61; StringToARGB(FList[I]);
g.FillRectangle(FShadowBrush, x &＃43; 3, y &＃43; 3, 20, 20);
g.FillRectangle(brush, x, y, 20, 20);
Inc(x, 25);
end;
finally
brush.Free;
FList.Free;
end;
end;
procedure TForm1.PaintBox1Paint(Sender: TObject);
var
g: TGpGraphics;
begin
g :&＃61; TGpGraphics.Create(PaintBox1.Canvas.Handle);
try
g.FillRectangle(FBackgroundBrush, GpRect(PaintBox1.ClientRect));
PaintProc(g);
finally
g.Free;
end;
end;
procedure TForm1.SetPaintProc(const Value: TPaintProc);
begin
FProc :&＃61; Value;
PaintBox1.Invalidate;
end;
其中的g.FillRectangle(FShadowBrush, x &＃43; 3, y &＃43; 3, 20, 20);语句显示色块的阴影块&＃xff1b;PaintProc是个方法属性。
C&＃43;&＃43;Builder例子&＃xff1a;
//---------------------------------------------------------------------------
void __fastcall TForm1::FormCreate(TObject *Sender)
{
TGpImage *backgroundImage &＃61; new TGpBitmap("..//..//Media//marble.jpg");
try
{
FBackgroundBrush &＃61; new TGpTextureBrush(backgroundImage);
}
__finally
{
delete backgroundImage;
}
FShadowBrush &＃61; new TGpSolidBrush(TGpColor(80, kcBlack));
DoubleBuffered &＃61; true;
PaintProc &＃61; &SolidPaint;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormDestroy(TObject *Sender)
{
delete FBackgroundBrush;
delete FShadowBrush;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::SetPaintProc(const TPaintProc Value)
{
FProc &＃61; Value;
PaintBox1->Invalidate();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::SolidPaint(TGpGraphics *g)
{
FList &＃61; new TStringList();
TGpSolidBrush *brush &＃61; new TGpSolidBrush(0xFFB0B0B0);
try
{
GetARGBValues(GetKnownColorStr);
int x &＃61; 0, y &＃61; -15;
for (int I &＃61; 0; I < FList->Count; I &＃43;&＃43;)
{
if (I % 14 &＃61;&＃61; 0)
{
x &＃61; 10;
y &＃43;&＃61; 25;
}
brush->Color &＃61; TGpColor::StringToARGB(FList->Strings[I]);
g->FillRectangle(FShadowBrush, x &＃43; 3, y &＃43; 3, 20, 20);
g->FillRectangle(brush, x, y, 20, 20);
x &＃43;&＃61; 25;
}
}
__finally
{
delete brush;
delete FList;
}
}
//---------------------------------------------------------------------------
void __fastcall TForm1::GetKnownColorStr(const AnsiString s)
{
FList->Add(s);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::PaintBox1Paint(TObject *Sender)
{
TGpGraphics *g &＃61; new TGpGraphics(PaintBox1->Canvas->Handle);
try
{
g->FillRectangle(FBackgroundBrush, TGpRect(PaintBox1->ClientRect));
PaintProc(g);
}
__finally
{
delete g;
}
}
//---------------------------------------------------------------------------
运行效果图&＃xff1a;
GDI&＃43; for VCL提供了TGpSolidBrush类型的Brushs全局变量(C&＃43;&＃43;Builder)或者全局函数(Delphi)&＃xff0c;在大多数需要使用实色刷的地方可以由其替代&＃xff0c;如&＃xff1a;
// Delphi 2007
// 用标准红色刷填充矩形
g.FillRectangle(Brushs.Red, x, y, 35, 30);
// 用自定义颜色&＃xff08;半透明蓝色&＃xff09;刷填充矩形
g.FillRectangle(Brushs[$800000FF], x, y, 35, 30);
// BCB 2007
// 用标准红色刷填充矩形
g->FillRectangle(Brushs.Red, x, y, 35, 30);
// 用自定义颜色&＃xff08;半透明蓝色&＃xff09;刷填充矩形
g->FillRectangle(Brushs[0x800000FF], x, y, 35, 30);
京公网安备 11010802041100号