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 (17 years, 11 months ago)
File size:	1159 byte(s)
Log Message:
#	Rev	Content
1	3	//---------------------------------------------------------------------------
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