unit Unit6;

interface

uses Windows, SysUtils, Classes, Graphics, Forms, Controls, StdCtrls,
  Buttons, ExtCtrls, jpeg;

type
  TAboutBox1 = class(TForm)
    Panel1: TPanel;
    ProgramIcon: TImage;
    StaticText1: TStaticText;
    StaticText2: TStaticText;
    StaticText3: TStaticText;
    StaticText4: TStaticText;
    StaticText5: TStaticText;
    Button1: TButton;
    Timer1: TTimer;
    StaticText6: TStaticText;
    procedure Button1Click(Sender: TObject);
    procedure FormPaint(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  AboutBox1: TAboutBox1;

implementation

{$R *.dfm}

procedure TAboutBox1.Button1Click(Sender: TObject);
begin
AboutBox1.Close;
end;

//////////украшение формы--------------
procedure TAboutBox1.FormPaint(Sender: TObject);
type TRGB=record
 b,g,r:byte;
end;
ARGB=array [0..1] of TRGB;
PARGB=^ARGB;
var
 b:TBitMap;
 p:PARGB;
 x,y:integer;
  dc:variant;

begin
 b:=TBitMap.Create;
 b.pixelformat:=pf24bit;
 b.width:= Clientwidth;
 b.height:= Clientheight;
 for y:=0 to b.height-1 do
  begin
  p:=b.scanline[y];
  for x:=0 to b.width-1 do
    begin
p[x].r:=random(250);
p[x].g:=250*x div b.Width;;
p[x].b:=250*x div b.Width;
   end;
  end;
canvas.draw(0,0,b);
 b.free;
end;


procedure TAboutBox1.Timer1Timer(Sender: TObject);
begin
AboutBox1.Paint;
end;

procedure TAboutBox1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
timer1.Enabled:=false;
end;

end.