REPOS_ERICCA/mesh/depart.cpp

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

#include "depart.h"
//---------------------------------------------------------------------------
#pragma resource "*.dfm"
Tdepscreen *depscreen;
//---------------------------------------------------------------------------
__fastcall Tdepscreen::Tdepscreen(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall Tdepscreen::FormClose(TObject *Sender, TCloseAction &Action)
{
Action=caFree;
}
//---------------------------------------------------------------------------
void __fastcall Tdepscreen::FormShow(TObject *Sender)
{
Timer1->Interval=5000;
depscreen->Left=(int)((Screen->Width-depscreen->Width)/2.);
depscreen->Top=(int)((Screen->Height-depscreen->Height)/2.);

}
//---------------------------------------------------------------------------
void __fastcall Tdepscreen::Timer1Timer(TObject *Sender)
{
depscreen->Close();
}
//---------------------------------------------------------------------------

Revision:	3
Committed:	Tue Jun 12 12:42:51 2007 UTC (18 years, 2 months ago)
File size:	1159 byte(s)
Log Message:
#	Content
1	//---------------------------------------------------------------------------
2	#include <vcl\vcl.h>
3	#include <stdio.h>
4	#pragma hdrstop
5
6	#include "depart.h"
7	//---------------------------------------------------------------------------
8	#pragma resource "*.dfm"
9	Tdepscreen *depscreen;
10	//---------------------------------------------------------------------------
11	__fastcall Tdepscreen::Tdepscreen(TComponent* Owner)
12	: TForm(Owner)
13	{
14	}
15	//---------------------------------------------------------------------------
16	void __fastcall Tdepscreen::FormClose(TObject *Sender, TCloseAction &Action)
17	{
18	Action=caFree;
19	}
20	//---------------------------------------------------------------------------
21	void __fastcall Tdepscreen::FormShow(TObject *Sender)
22	{
23	Timer1->Interval=5000;
24	depscreen->Left=(int)((Screen->Width-depscreen->Width)/2.);
25	depscreen->Top=(int)((Screen->Height-depscreen->Height)/2.);
26
27	}
28	//---------------------------------------------------------------------------
29	void __fastcall Tdepscreen::Timer1Timer(TObject *Sender)
30	{
31	depscreen->Close();
32	}
33	//---------------------------------------------------------------------------
34