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

最新推荐文章于 2024-09-06 14:02:55 发布

原创最新推荐文章于 2024-09-06 14:02:55 发布 · 8.1k 阅读

1 ·

CC 4.0 BY-SA版权

文章标签：

#gdi+ #delphi #c++builder #图形 #integer #delete

GDI+(VCL)基础专栏收录该内容

11 篇文章

订阅专栏

本文详细介绍了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 + 3, 20, 20);语句显示色块的阴影块；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 * g = new TGpGraphics(PaintBox1 -> Canvas -> Handle);
     try
    {
        g -> FillRectangle(FBackgroundBrush, TGpRect(PaintBox1 -> ClientRect));
        PaintProc(g);
    }
    __finally
    {
        delete g;
    }
}
// ---------------------------------------------------------------------------

运行效果图：