unit1.pas

本光盘是《Delphi 7应用教程》一书的配套光盘

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
  Var
     bitmap:TBitmap;//用来存放创建位图，该位图作为填充图像
     CurDir:String;//存放应用程序当前目录
begin
    GetDir(0,CurDir);//获得应用程序的当前目录
    With Canvas  do
      begin
          Bitmap:=TBitmap.Create;//创建位图
          Try
             Bitmap.LoadFromFile(Curdir+'\1.BMP');//装载位图
             Brush.Bitmap :=Bitmap; // 把创建的位图赋值给Brush.Bitmap，作为填充图像
             Ellipse(0,0,100,100); //画椭圆，以位图填充
          Finally
             Form1.Canvas.Brush.Bitmap :=nil; //卸除Bitmap位图
          end;
       end;
     With Canvas do
       begin
         pen.Color :=RGB(0,0,255);//设置画笔颜色为蓝色
         pen.Width :=5;  //设置画笔的宽度为5个像素
         brush.Color :=$00FF0000; //设置画刷的填充颜色为蓝色
         brush.Style :=bsDiagCross;  //设置画刷的填充风格为交叉对角线
         RoundRect(110,10,210,100,0,0); //画圆角矩形
         brush.Color :=$0000FF00; // 设置画刷的填充颜色为绿色
         brush.Style :=bsCross;   // 设置画刷的填充风格为交叉线
         RoundRect(210,10,310,100,50,50);//画圆角矩形
         brush.Color :=$000000FF; // 设置画刷的填充颜色为红色
         brush.Style :=bsBDiagonal; //设置画刷的填充风格为斜对角线
         RoundRect(310,10,410,100,100,100); //画圆角矩形
       End;

end;

end.