unit1.pas

来自「这有很多Delphi应用的例子」· PAS 代码 · 共 53 行

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
   i,j:Integer;
   x1,y1,x2,y2:Integer;
begin
   Canvas.Pen.Width:=1;
   for i:=1 to 3 do
     begin
       x1:=trunc(i*ClientWidth/3-ClientWidth/3)+40;
       x2:=trunc(i*ClientWidth/3)-20;
       for j:=1 to 2 do
         begin
           y1:=trunc(j*ClientHeight/2-ClientHeight/2)+40;
           y2:=trunc(j*ClientHeight/2)-20;
           case 2*i-j+1 of
           1: Canvas.Pen.Style:=PsSolid;
           2: Canvas.Pen.Style:=PsDash;
           3: Canvas.Pen.Style:=PsDashDot;
           4: Canvas.Pen.Style:=PsDashDotDot;
           5: Canvas.Pen.Style:=PsInsideFrame;
           6: Canvas.Pen.Style:=PsClear;
           end;
           Canvas.Rectangle(x1,y1,x2,y2);
         end;
     end;
end;

end.