unit1.pas

Delphi7应用编程150例附书源码.rar

unit Unit1;

interface

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

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
    PS:array[0..6] of TPenStyle;
    //定义存储绘图风格的数组
    i:Integer;
begin
    PS[0]:=psSolid;
    PS[1]:=psDash;
    PS[2]:=psDot;
    PS[3]:=psDashDot;
    PS[4]:=psDashDotDot;
    PS[5]:=psClear;
    PS[6]:=psInsideFrame;
    //绘图风格数组赋值
    Canvas.Brush.Style:=bsClear;
    Canvas.Pen.Width:=1;
    for i:=1 to 7 do
    begin
        Canvas.Pen.Style:=PS[i-1];
        Canvas.MoveTo(10,25*i);
        Canvas.LineTo(160,25*i);
    end;
end;

end.