Windows图形设备接口（GDI）有许多对象，这些对象定义着一个设备描述环境的功能。使用最普遍的GDI对象是笔、刷子和字体。其他GDI对象包括调色板、位图和区域。首先了解一下笔、刷子和字体，然后转向更为复杂的对象。
笔Pens, 刷子Brushes, and 字体Fonts
笔、刷子和字体都是简明易懂的，先一一介绍一下这些对象以及TCanvas类如何使用它们的。
笔Pens
笔定义为用于画线的对象。线可以是从一点到下一点的简单直线，也可以是围绕矩形、椭圆和菱形所画的边界。笔可以通过TCanvas类的Pen属性存取并且它是TPen类的一个实例。
TPen类继承关系如下：
下面表格中勒出了TPen的属性。
表1. TPen属性
属性 描述 Color 设置线条颜色。 Handle 句柄，用于访问GDI时。 Mode 指定画布的ROP（raster operation光栅操作）模式（正向、反向等）。 Style 笔类型，不可视线、虚线、点划线、双点划线、点线、内框和实线等。 Width 画笔的笔宽（像素为单位）
这些属性大部分可满足用户的使用。下面的例子为画红色虚线。
Canvas.Pen.Color := clRed; { 画笔为红色}
Canvas.Pen.Style := psDash; { 画笔样式为虚线}
Canvas.MoveTo(20, 20);
Canvas.LineTo(120, 20);
要检验该段代码，可在窗体上放置一个按钮并将程序录入到按钮的OnClick事件中，运行程序点击按钮，直线就被画在窗体上，如下图：
Note
之后讲解的所有简单例子均可以用以上这种方式去检验。但是如果用其他应用程序覆盖住该应用程序，然后再返回到该应用程序，这些图画都将要消失，这时因为这些图画是暂时的。如果需要图画长久保存，则要将图画代码置于窗体的OnPaint事件中。一旦Windows窗口需要重画，其OnPaint事件就产生了，图画代码将被执行。
点划线（dotted and dashed）只适用于宽度为1的画笔。psClear画笔样式用于清除Windows GDI在对象外边所绘制的线条（如矩形、椭圆形以及填充的菱形）。
Tip
可通过放置在窗体上Shape组件，试验TPen的各种属性并修改图形的Pen属性，这些对于弄清TPen类的Mode属性的作用尤为有用。
下面我们编写了一个简单的测试按钮（具体请参看示例代码），可以模拟显示各种画笔样式的效果，如下图：
刷子Brushes
画布的刷子用于填充画布上的区域和图形。与TPen不同的是，画笔用来在画布上画线，而刷子用不同的颜色、样式和形状来填充画布的区域。
TCanvas类中有个Brush属性，它可用来控制刷子的各种特性。Brush属性是TBrush类的一个实例，具体继承关系如下：
表2. TBrush属性
属性 描述 Bitmap 指定一个位图，用于刷子的背景，位图不能大于 8 x 8像素。 Color 刷子的颜色 Handle 句柄，用于直接访问GDI。 Style 刷子的样式，包括8种样式。
默认时，Style属性被设置为bsSolid，颜色为clWhite，没有位图。如果要填充图案，应该设置Style属性为bsHorizontal，bsVertical，bsFDiagonal，bsBDiagonal，bsCross或者bsDiagCross中的某一种。各种Style样式效果如下图：（具体详见代码示例中）
下面的例子就是利用45度图案在窗体上画圆，代码如下：
Canvas.Brush.Color := clBlue; Canvas.Brush.Style := bsDiagCross; Canvas.Ellipse(20, 20, 220, 220);
下图就是上面代码运行后显示的效果：
使用图案刷子时，刷子的Color属性定义为构成图案的线条颜色，由于某种原因，当使用图案填充时，VCL自动使背景模式为透明的，这意味着刷子的背景色与图形所在的Windows背景颜色相同。（如上图中，圆的背景色与窗体相同，灰色），如果指定某种颜色，则需要避开VCL而利用API，如果需要在白色背景上使用蓝色图案，代码如下：
Canvas.Brush.Color := clBlue; Canvas.Brush.Style := bsDiagCross; SetBkMode(Canvas.Handle, OPAQUE); SetBkColor(Canvas.Handle, clWhite); Canvas.Ellipse(20, 20, 220, 220);
现在刷子的背景色为白色了，如下图显示的圆。
刷子另一个有趣的特性就是位图背景的选择，先看看程序代码，再讨论位图刷子，代码如下：
Canvas.Brush.Bitmap := TBitmap.Create;
Canvas.Brush.Bitmap.LoadFromFile('bkgnd.bmp');
Canvas.Ellipse(20, 20, 220, 220);
Canvas.Brush.Bitmap.Free;
该代码中第一行创建TBitmap对象并将它赋给刷子的Bitmap属性，缺省时Bitmap属性不被赋值。因此，必须明确创建一个TBitmap对象并将它赋给Bitmap属性。
第二行是从文件中装载位图，位图不能大于8 x 8像素，可以使用较大的位图，但会被裁减到8 x 8。（在Win7测试可以使用大于 8 x 8像素的位图）。
第三行画椭圆。椭圆绘制完毕后，删除刷子属性，此时VCL不会删除刷子属性，因此必须手动删除，否则会使内存溢出。
下图显示了位图刷子所绘制的圆。
有时需要空心的刷子（hollow brush），空心刷子使北京颜色能够显露出来，要创建空心刷子，只需设置Style属性为bsClear即可，仍以上面的例子为例，利用空心刷子在第一个圆内增加另一个圆，代码如下：
Canvas.Brush.Bitmap := TBitmap.Create;
Canvas.Brush.Bitmap.LoadFromFile('bkgnd.bmp');
Canvas.Ellipse(20, 20, 220, 220);
Canvas.Brush.Style := bsClear;
Canvas.Pen.Width := 5;
Canvas.Ellipse(70, 70, 170, 170);
Canvas.Brush.Bitmap.Free;
显示效果如下图：
若直接进入API可用刷子做其他事情，当然，大多数情况下，VCL TBrush类都可以处理这种工作的。
字体（Fonts）
字体对于大家来说不是什么新鲜东西。整个学习过程中都在一直用它，利用TCanvas类使用的字体同窗体或其他组件使用的字体属性没有什么区别。要改变画布的字体，只需要输入以下代码即可。
Canvas.Font.Name := 'Courier New'; Canvas.Font.Size := 20; Canvas.Font.Style := Canvas.Font.Style + [fsBold]; Canvas.TextOut(20, 20, 'Testing');
显示效果如下：
在之后的讲解中还会详细提到如何处理字体。
以上代码均在Delphi7中测试通过，本讲示例代码下载：GDI对象之画笔.rar