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:	16
Committed:	Fri Jun 15 20:00:26 2007 UTC (17 years, 11 months ago) by test
File size:	1161 byte(s)
Log Message:	test
#	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	//---------------------------------------------------------------------------
12	__fastcall Tdepscreen::Tdepscreen(TComponent* Owner)
13	: TForm(Owner)
14	{
15	}
16	//---------------------------------------------------------------------------
17	void __fastcall Tdepscreen::FormClose(TObject *Sender, TCloseAction &Action)
18	{
19	Action=caFree;
20	}
21	//---------------------------------------------------------------------------
22	void __fastcall Tdepscreen::FormShow(TObject *Sender)
23	{
24	Timer1->Interval=5000;
25	depscreen->Left=(int)((Screen->Width-depscreen->Width)/2.);
26	depscreen->Top=(int)((Screen->Height-depscreen->Height)/2.);
27
28	}
29	//---------------------------------------------------------------------------
30	void __fastcall Tdepscreen::Timer1Timer(TObject *Sender)
31	{
32	depscreen->Close();
33	}
34	//---------------------------------------------------------------------------
35