www.pudn.com > 推箱子源码.rar > CAbout.pas

unit CAbout; 
 
interface 
 
uses Windows, SysUtils, Classes, Graphics, Forms, Controls, StdCtrls, 
  Buttons, ExtCtrls; 
 
type 
  TAboutBox = class(TForm) 
    Panel1: TPanel; 
    ProgramIcon: TImage; 
    ProductName: TLabel; 
    Version: TLabel; 
    Copyright: TLabel; 
    OKButton: TButton; 
    Label1: TLabel; 
    Pic1: TPaintBox; 
    Timer1: TTimer; 
    Label2: TLabel; 
    procedure Timer1Timer(Sender: TObject); 
    procedure FormCreate(Sender: TObject); 
    procedure OKButtonClick(Sender: TObject); 
    procedure FormClose(Sender: TObject; var Action: TCloseAction); 
    procedure FormActivate(Sender: TObject); 
  private 
    { Private declarations } 
  public 
    { Public declarations } 
  end; 
 
var 
  AboutBox: TAboutBox; 
 
implementation 
 
{$R *.DFM} 
var 
   r:integer; 
   g:integer; 
   b:integer; 
   rr,gg,bb:boolean; 
procedure TAboutBox.Timer1Timer(Sender: TObject); 
var 
i:integer; 
begin 
i:=random(2); 
case i of 
0:begin 
   if rr then begin 
     r:=r+15; 
     if r>255 then begin 
       r:=255; 
       rr:=false; 
     end; 
   end 
   else begin 
     r:=r-15; 
     if r<0 then begin 
       r:=0; 
       rr:=true; 
     end; 
   end; 
  end; 
 
1:begin 
   if gg then begin 
     g:=g+15; 
     if g>255 then begin 
       g:=255; 
       gg:=false; 
     end; 
   end 
   else begin 
     g:=g-15; 
     if g<0 then begin 
       g:=0; 
       gg:=true; 
     end; 
   end; 
  end; 
 
2:begin 
   if bb then begin 
     b:=b+15; 
     if b>255 then begin 
       b:=255; 
       bb:=false; 
     end; 
   end 
   else begin 
     b:=b-15; 
     if b<0 then begin 
       b:=0; 
       bb:=true; 
     end; 
   end; 
  end; 
end; 
pic1.canvas.pen.color:=rgb(r,g,b); 
pic1.Canvas.Brush.Color :=pic1.canvas.pen.color; 
pic1.canvas.Ellipse(10,10,60,60); 
 
end; 
 
procedure TAboutBox.FormCreate(Sender: TObject); 
begin 
randomize; 
r:=random(255); 
g:=random(255); 
b:=random(255); 
rr:=true; 
gg:=true; 
bb:=true; 
 
end; 
 
procedure TAboutBox.OKButtonClick(Sender: TObject); 
begin 
timer1.Enabled:=false; 
close; 
end; 
 
procedure TAboutBox.FormClose(Sender: TObject; var Action: TCloseAction); 
begin 
timer1.Enabled:=false; 
end; 
 
procedure TAboutBox.FormActivate(Sender: TObject); 
begin 
timer1.Enabled:=true; 
end; 
 
 
end.