GDI+ for VCL基础 -- 画刷之SolidBrush

本文详细介绍了GDI+forVCL中实色刷TGpSolidBrush的使用方法,包括如何创建实色刷、设置颜色以及填充图形等。同时对比了TGpSolidBrush与VCL中TColor的区别。

摘要生成于 C知道 ,由 DeepSeek-R1 满血版支持, 前往体验 >

        本文为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+的实色刷

//  Delphi 2007
var
  Brush: TGpBrush;
begin
  Brush :
=  TGpSolidBrush.Create(ARGBFromTColor(clRed));
end;

//  BCB 2007
TGpBrush  * Brush  =   new  TGpSolidBrush(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;
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 :
=  TStringList.Create;
  brush :
=  TGpSolidBrush.Create($FFB0B0B0);
  
try
    GetARGBValues(GetKnownColorStr);
    y :
=   - 15 ;
    
for  I : =   0  to FList.Count  -   1   do
    begin
      
if  I mod  14   =   0  then
      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 + 32020);语句显示色块的阴影块;PaintProc是个方法属性。

        C++Builder例子:       

// ---------------------------------------------------------------------------
void  __fastcall TForm1::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  __fastcall TForm1::FormDestroy(TObject  * Sender)
{
    delete FBackgroundBrush;
    delete FShadowBrush;
}
// ---------------------------------------------------------------------------
void  __fastcall TForm1::SetPaintProc( const  TPaintProc Value)
{
    FProc 
=  Value;
    PaintBox1
-> Invalidate();
}
// ---------------------------------------------------------------------------
void  __fastcall TForm1::SolidPaint(TGpGraphics  * g)
{
    FList 
=   new  TStringList();
    TGpSolidBrush 
* brush  =   new  TGpSolidBrush( 0xFFB0B0B0 );
    
try
    {
        GetARGBValues(GetKnownColorStr);
        
int  x  =   0 , y  =   - 15 ;
        
for  ( int  I  =   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
    {
        delete brush;
        delete FList;
    }
}
// ---------------------------------------------------------------------------
void  __fastcall TForm1::GetKnownColorStr( const  AnsiString s)
{
    FList
-> Add(s);
}
// ---------------------------------------------------------------------------
void  __fastcall TForm1::PaintBox1Paint(TObject  * Sender)
{
    TGpGraphics 
* =   new  TGpGraphics(PaintBox1 -> Canvas -> Handle);
    
try
    {
        g
-> FillRectangle(FBackgroundBrush, TGpRect(PaintBox1 -> ClientRect));
        PaintProc(g);
    }
    __finally
    {
        delete g;
    }
}
// ---------------------------------------------------------------------------

运行效果图:

           

       GDI+ for VCL提供了TGpSolidBrush类型的Brushs全局变量(C++Builder)或者全局函数(Delphi),在大多数需要使用实色刷的地方可以由其替代,如:

//  Delphi 2007

//  用标准红色刷填充矩形
g.FillRectangle(Brushs.Red, x, y,  35 30 );
//  用自定义颜色(半透明蓝色)刷填充矩形
g.FillRectangle(Brushs[$800000FF], x, y,  35 30 );

//  BCB 2007
//  用标准红色刷填充矩形
g -> FillRectangle(Brushs.Red, x, y,  35 30 );
//  用自定义颜色(半透明蓝色)刷填充矩形
g -> FillRectangle(Brushs[ 0x800000FF ], x, y,  35 30 );

 

评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值