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 (18 years, 2 months ago) by test
File size:	1161 byte(s)
Log Message:	test
#	User	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	test	16
11		3	//---------------------------------------------------------------------------
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