unit1.pas

Delphi7编程80例(完全版)

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    Image1: TImage;
    Image2: TImage;
    Label1: TLabel;
    Label2: TLabel;
    Image3: TImage;
    Label3: TLabel;
    Image4: TImage;
    Timer1: TTimer;
    Label4: TLabel;
    procedure Button1Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var i:Integer;
begin
With Image1 Do
For i:=0 To 64 DO     //菱形扩散效果
   Begin
   Canvas.Brush.Color:=RGB(3*i+45,3*i+45,3*i+45);
   Canvas.FillRect(Rect(i,i,64,64));
   Canvas.FillRect(Rect(i,128-i,64,64));
   Canvas.FillRect(Rect(128-i,i,64,64));
  Canvas.FillRect(Rect(128-i,128-i,64,64));
   end;
With Image2 Do         // 中心向左右扩散
For i:=0 To 64 DO
   Begin
   Canvas.Brush.Color:=RGB(3*i+45,3*i+45,3*i+45);
   Canvas.FillRect(Rect(i,0,i+1,128));
   Canvas.FillRect(Rect(128-i,0,128-i+1,128));
end;
With Image3 Do        //中心向上下扩散
For i:=0 To 64 DO
   Begin
   Canvas.Brush.Color:=RGB(3*i+45,3*i+45,3*i+45);
   Canvas.FillRect(Rect(0,i,128,i+1));
   Canvas.FillRect(Rect(0,128-i+1,128,128-i));
   end;
Timer1.enabled:=True;
 end;

procedure TForm1.Timer1Timer(Sender: TObject);
var k:Integer;
begin
With Image4 Do
For k:=0 To 64 DO     //动画矩形效果
   Begin
   Canvas.Brush.Color:=RGB(Random(255),Random(255),Random(255));
   Canvas.FillRect(Rect(k,k,64,64));
   Canvas.FillRect(Rect(k,128-k,64,64));
   Canvas.FillRect(Rect(128-k,k,64,64));
  Canvas.FillRect(Rect(128-k,128-k,64,64));
   end;
end;
procedure TForm1.FormDestroy(Sender: TObject);
begin
Timer1.Enabled:=False;  //关闭时钟
end;

end.