unit1.pas

来自「Delphi7应用编程150例附书源码.rar」· PAS 代码 · 共 49 行

unit Unit1;

interface

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

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

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormPaint(Sender: TObject);
var
    BS:array[0..7] of TBrushStyle;
    //定义存储绘图风格的数组
    i:Integer;
begin
    BS[0]:=bsBDiagonal;
    BS[1]:=bsDiagCross;
    BS[2]:=bsFDiagonal;
    BS[3]:=bsClear;
    BS[4]:=bsHorizontal;
    BS[5]:=bsCross;
    BS[6]:=bsSolid;
    BS[7]:=bsVertical;
    //绘图风格数组赋值
    for i:=1 to 8 do
    begin
        Canvas.Brush.Style:=BS[i-1];
        Canvas.Rectangle(10,25*i,160,25*i+20);
    end;

end;

end.