//---------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop

#include "About.h"
//--------------------------------------------------------------------- 
#pragma resource "*.dfm"
TAboutBox *AboutBox;
//--------------------------------------------------------------------- 
__fastcall TAboutBox::TAboutBox(TComponent *Owner)
	: TForm(Owner)
{
}
//---------------------------------------------------------------------
void __fastcall TAboutBox::FormShow(TObject *Sender)
{
Animate1->Active=true;
}
//---------------------------------------------------------------------------


void __fastcall TAboutBox::FormCloseQuery(TObject *Sender, bool &CanClose)
{
Animate1->Active=false;
}
//---------------------------------------------------------------------------

void __fastcall TAboutBox::FormCreate(TObject *Sender)
{
Animate1->ResName="Earth";
}
//---------------------------------------------------------------------------