unit MainForm;

interface

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

type
  TMain = class(TForm)
    Image1: TImage;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    procedure FormCreate(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    procedure OnStart(Sender: TObject);
    procedure OnEnd(Sender: TObject);
  end;

var
  Main: TMain;

implementation

{$R *.dfm}

procedure TMain.OnEnd(Sender: TObject);
begin
  Hide;
end;

procedure TMain.OnStart(Sender: TObject);
begin
  Show;
end;

procedure TMain.FormCreate(Sender: TObject);
begin
  Enabled := False;
  Left := (Screen.Width - Width) shr 1;
  Top := (Screen.Height - Height) shr 1;
  AlphaFX(Self, afx_DoubleVertical, 2, 1000, True, False, OnStart, nil);
  Enabled := True;
end;

procedure TMain.SpeedButton1Click(Sender: TObject);
begin
  Enabled := False;
  AlphaFX(Self, afx([afxRadarRandom]), 1, 500, False, True, nil, OnEnd);
  Application.Terminate;
end;

procedure TMain.SpeedButton2Click(Sender: TObject);
var Count: Integer;
begin
  Count := Random(4) + 1;
  Enabled := False;
  AlphaFX(Self, afx_Random(Count), Count, Count * 500, False, True, nil, nil);
  AlphaFX(Self, afx_Random(Count), Count, Count * 500, True, False, nil, nil);
  Enabled := True;
end;

end.