本文为GDI+ for VCL基础系列文章之一,主要供GDI+初学者入门参考,例子使用GDI+版本下载地址和说明见《GDI+ for VCL基础 -- GDI+ 与 VCL》。如有错误或者建议请来信:maozefa@hotmail.com
GDI+由二维矢量图形、图像和版面等三部分组成,其中的二维矢量图形的图元,包括点、线条、曲线和图形等的绘制工具就是画笔和画刷,而画笔的特征又是由画刷决定的(在以后的关于画笔的文章中介绍),因此,熟练地掌握GDI+的各种画刷特性和使用方法是绘制GDI+图形的前提条件。
GDI+提供了SolidBrush(实色刷)、HatchBrush(阴影刷)、TextureBrush(纹理刷)、LinearGradientBrush(渐变刷)和PathGradientBrush(路径刷)等五种画刷,在GDI+ for VCL中,各种画刷在原C++类类名基础上加了TGp前缀,均派生于TGpBrush,其中的TGpSolidBrush和TGpHatchBrush相当于VCL中传统的GDI的画刷TBrush。
实色刷是GDI+最简单也是最基础的画刷,它以GDI+的TARGB(GDI+ for BCB中由TGpColor类封装)颜色填充图形。
为了掌握TGpSolidBrush,在这里有必要简单介绍一下GDI+的TARGB和VCL的TColor区别。
TARGB与VCL的TColor虽然都定义为如下面的32位整数型,但它们有很大区别,首先,颜色中的RGB排列顺序不一样,从低字节开始,TColor的排列顺序为R、G、B,而TARGB的排列顺序为B、G、R;其次,TARGB比TColor多了一个Alpha属性,用来表示颜色的不透明度;再次,TColor虽然定义为32位,但在表示实际颜色时只用了24位,其高8位用来表示一些特殊定义的颜色,如高位为1,即TColor的值为负数时,TColor表示系统颜色,低8位表示系统颜色编号,不存在RGB属性,内部使用时转换为COLORREF类型。
//GDI+的颜色定义
TARGB=DWORD;
//VCL的颜色定义
TColor=-$7FFFFFFF-1..$7FFFFFFF;
为了在GDI+ for VCL对TColor提供了支持和转换,在Delphi中是通过几个函数相互转换的,而在BCB中,由于TGpColor封装了TARGB,所以,其支持和转换方法由TGpColor类提供,如下面的代码使用VCL的clRed建立GDI+的实色刷:
//Delphi2007
var
Brush:TGpBrush;
begin
Brush:=TGpSolidBrush.Create(ARGBFromTColor(clRed));
end;
//BCB2007
TGpBrush*Brush=newTGpSolidBrush(clRed);
其中,BCB代码的TGpSolidBrush构造函数参数虽然定义为TGpColor,但由于TGpColor提供了对TColor的支持,所以,clRed可以直接作为参数使用(同理,TARGB类型也可直接作为参数传递)。具体的支持和转换参见《GDI+ for VCL基础 -- GDI+ 与 VCL》。
GDI+ for VCL定义了141种标准颜色(以kc为前缀),下面的代码片断演示了使用标准颜色建立实色刷的例子:
Delphi例子:
procedure TForm1.FormCreate(Sender: TObject);
var
backgroundImage: TGpImage;
begin
backgroundImage := TGpBitmap.Create('..\..\Media\marble.jpg');
try
FBackgroundBrush := TGpTextureBrush.Create(backgroundImage);
finally
backgroundImage.Free;
end;
FShadowBrush := TGpSolidBrush.Create(ARGB(80, kcBlack));
DoubleBuffered := True;
PaintProc := SolidPaint;
end;
procedure TForm1.FormDestroy(Sender: TObject);
begin
FBackgroundBrush.Free;
FShadowBrush.Free;
end;
procedureTForm1.GetKnownColorStr(consts:string);
begin
FList.Add(s);
end;
procedureTForm1.SolidPaint(g:TGpGraphics);
var
I,x,y:Integer;
brush:TGpSolidBrush;
begin
FList:=TStringList.Create;
brush:=TGpSolidBrush.Create($FFB0B0B0);
try
GetARGBValues(GetKnownColorStr);
y:=-15;
forI:=0toFList.Count-1do
begin
ifImod14=0then
begin
x:=10;
Inc(y,25);
end;
brush.Color:=StringToARGB(FList[I]);
g.FillRectangle(FShadowBrush,x+3,y+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 := 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 := Value;
PaintBox1.Invalidate;
end;
其中的g.FillRectangle(FShadowBrush,x+3,y+3,20,20);语句显示色块的阴影块;PaintProc是个方法属性。
C++Builder例子:
//---------------------------------------------------------------------------
void__fastcallTForm1::FormCreate(TObject*Sender)
{
TGpImage *backgroundImage = new TGpBitmap("..\\..\\Media\\marble.jpg");
try
{
FBackgroundBrush = new TGpTextureBrush(backgroundImage);
}
__finally
{
delete backgroundImage;
}
FShadowBrush = new TGpSolidBrush(TGpColor(80, kcBlack));
DoubleBuffered = true;
PaintProc = &SolidPaint;
}
//---------------------------------------------------------------------------
void__fastcallTForm1::FormDestroy(TObject*Sender)
{
deleteFBackgroundBrush;
deleteFShadowBrush;
}
//---------------------------------------------------------------------------
void__fastcallTForm1::SetPaintProc(constTPaintProcValue)
{
FProc=Value;
PaintBox1->Invalidate();
}
//---------------------------------------------------------------------------
void__fastcallTForm1::SolidPaint(TGpGraphics*g)
{
FList=newTStringList();
TGpSolidBrush*brush=newTGpSolidBrush(0xFFB0B0B0);
try
{
GetARGBValues(GetKnownColorStr);
intx=0,y=-15;
for(intI=0;I<FList->Count;I++)
{
if(I%14==0)
{
x=10;
y+=25;
}
brush->Color=TGpColor::StringToARGB(FList->Strings[I]);
g->FillRectangle(FShadowBrush,x+3,y+3,20,20);
g->FillRectangle(brush,x,y,20,20);
x+=25;
}
}
__finally
{
deletebrush;
deleteFList;
}
}
//---------------------------------------------------------------------------
void__fastcallTForm1::GetKnownColorStr(constAnsiStrings)
{
FList->Add(s);
}
//---------------------------------------------------------------------------
void__fastcallTForm1::PaintBox1Paint(TObject*Sender)
{
TGpGraphics*g=newTGpGraphics(PaintBox1->Canvas->Handle);
try
{
g->FillRectangle(FBackgroundBrush,TGpRect(PaintBox1->ClientRect));
PaintProc(g);
}
__finally
{
deleteg;
}
}
//---------------------------------------------------------------------------
运行效果图:
GDI+ for VCL提供了TGpSolidBrush类型的Brushs全局变量(C++Builder)或者全局函数(Delphi),在大多数需要使用实色刷的地方可以由其替代,如:
//Delphi2007
//用标准红色刷填充矩形
g.FillRectangle(Brushs.Red,x,y,35,30);
//用自定义颜色(半透明蓝色)刷填充矩形
g.FillRectangle(Brushs[$800000FF],x,y,35,30);
//BCB2007
//用标准红色刷填充矩形
g->FillRectangle(Brushs.Red,x,y,35,30);
//用自定义颜色(半透明蓝色)刷填充矩形
g->FillRectangle(Brushs[0x800000FF],x,y,35,30);
分享到:
相关推荐
GDI+ for Delphi,GDI+ for C++Builder 原资料Gdiplus for VCL(Delphi and C Builder)的修改版。
GDI+ for VCL and GDI+ for C语言2010.10.7最新修改版。 如有错误,请反馈,不胜感激!
FastReport+VCL+v5.4.6+Pro+for+D7-D10.2+Full+Source
GDI+是伴随Windows XP系统...但是,对于Delphi和C++Builder所共用的VCL来说,由于VCL通过TCanvas、TBitmap和TImage等及其相关的类,把传统的GDI封装的几乎无可挑剔,类似C++的GDI+类,在易操作上就没什么优势可言了。
DevExpressVCL+17.2.4+V1+XE-RAD10.2.2+FullSource+Fix+By+Flying+Wang+自动编译安装+带汉化包+V2018-02-14.zip
Delphi用的强大的控件DevExpressVCL一键编译安装工具_v10.0+-+2018-03-18(2018新春版)
+------ ExpressCommon Library | +------ Packages ------- Sources ------- ... +------ ExpressBars 6 | +------ Packages +------ Sources +------ ... +------ ExpressQuantumGrid 6 | +------ ...
+------ ExpressCommon Library | +------ Packages ------- Sources ------- ... +------ ExpressBars 6 | +------ Packages +------ Sources +------ ... +------ ExpressQuantumGrid 6 | +------ ...
DBISAM VCL Client-Server with Source Code 4.02 for Delphi 567;压缩包含DBISAM Additional Software and Utilities 4.02。DBISAM VCL Client-Server是一个优秀的文件型数据库引擎,拥用自己特有的文件格式和接口...
Nginx-rtmp流媒体服务器+OBS+VCL 资料, Nginx-rtmp流媒体服务器+OBS+VCL 资料 Nginx-rtmp流媒体服务器+OBS+VCL 资料
ElevateDB VCL 203--Dbisam的替代数据库
DynamicSkinForm VCL D6 - XE10.2 v14.01
DBISAM VCL Client-Server是一个优秀的文件型数据库引擎,拥用自己特有的文件格式和接口,编译后的程序可以独立运行,不需要BDE、ODBC或者是ADO的支持,其引擎已包含在编译后的EXE文件中,支持标准的SQL查询,支持多...
DevExpress VCL 14.2.2 For XE8
DevExpress Vcl 14.1.3 For d7 --Xe7 内含自动安装工具2.1.2
DevExpress VCL Auto-Installer v1.6
JCL+JVCL超过300个组件的非可视/可视大型组件包。
DevExpress VCL10.2.2-2004 DevExpress是 Developer Express的缩写,DevExpress是一家全球知名的控件开发公司。 DevExpress 也特指此公司出品的控件集合或某系列控件或其中某控件
RealThinClient SDK是用于开发标准的HTTP(S)服务器,ISAPI扩展以及客户端的VCL控件。