countunit.cpp

16人格测试 16人格测试 16人格测试 16人格测试

//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop

#include "CountUnit.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "RzLabel"
#pragma link "RzPrgres"
#pragma resource "*.dfm"
Tfrm_count *frm_count;
bool ban;
//---------------------------------------------------------------------------
__fastcall Tfrm_count::Tfrm_count(TComponent* Owner)
	: TForm(Owner)
{

	AnsiString  fl;
	fl =  ChangeFileExt(Application->ExeName,".dat");
	if(FileExists(fl))
	{
		ani1->FileName = ChangeFileExt(Application->ExeName,".dat");
		ban = true;
	}

}
//---------------------------------------------------------------------------
void Tfrm_count::upPercent()
{
	//TODO: Add your source code here
	rzprgrsbr1->Percent = rzprgrsbr1->Percent + 1;

}

void __fastcall Tfrm_count::FormShow(TObject *Sender)
{
	if(ban) ani1->Active = true;
	rzprgrsbr1->Percent = 0;
}
//---------------------------------------------------------------------------