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

#include "GlobalUnit.h"
#include "ProgressThreadUnit.h";
#include "ProgressFormUnit.h"

#define OPERATION_MM_SAVE				1
#define OPERATION_MM_LOAD				2
#define OPERATION_PROJ_LOAD				3
#define OPERATION_PROJ_SAVE				4
#define OPERATION_USER_LOGIN			5
#define OPERATION_USER_CHECKPAYMENT		6
#define OPERATION_USER_CONFIRMPAYMENT 	7
#define OPERATION_USER_SUBMITQA			8
#define OPERATION_USER_REGISTER			9
#define OPERATION_USER_UPLOADSONG		10
#define OPERATION_USER_SUBMITSCORE		11
#define OPERATION_MM_SAVEMEDIA			14

#define STATE_IDLE  					0x00
#define STATE_SAVING	                0x01
#define STATE_SAVE_SUCCESS              0x02
#define STATE_SAVE_FAILED               0x04
#define STATE_CONFIRMING               	0x10
#define STATE_CONFIRM_SUCCESS           0x20
#define STATE_CONFIRM_FAILED           	0x40

//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "PNGButton"
#pragma resource "*.dfm"
TProgressForm *ProgressForm;

//---------------------------------------------------------------------------
__fastcall TProgressForm::TProgressForm(TComponent* Owner)
	: TForm(Owner)
{
	m_lblCaption->Font->Color = RGB(60,43,23);
	m_nMaxPos = m_pbProgress->Width;
	m_nPos = 0;

	m_nParam1 = m_nParam2 = m_nParam3 = m_nParam4 = 0;
	m_pParam1 = m_pParam2 = NULL;
	memset( m_strParam1, 0, sizeof(m_strParam1) );
	memset( m_strBuff, 0, sizeof(m_strBuff) );
	m_pIntParam1 = m_pIntParam2 = NULL;

	m_bmpTileLeft = new TBitmap();
	m_bmpTileLeft->LoadFromResourceName(int(HInstance), L"ProgressLeft");
	m_bmpTileRight = new TBitmap();
	m_bmpTileRight->LoadFromResourceName(int(HInstance), L"ProgressRight");

	m_nTileWidth = m_bmpTileLeft->Width;
	m_nTileHeight = m_bmpTileLeft->Height;

	m_nNextMinPos = 0;
	m_nNextMaxPos = m_nMaxPos;
	m_iOperation = m_iOperationResult = 0;

	m_pConfirmThread = NULL;
	m_iSaveState = STATE_IDLE;
	m_iConfirmResult = m_iFileHandle = 0;

	m_pTimer = new TTimer(this);
	m_pTimer->Enabled = false;
	m_pTimer->Interval = 200;
	m_pTimer->OnTimer = TimerProc;

	m_pThread = new TProgressThread( true, this );

	SetTransparent( this );
}
//---------------------------------------------------------------------------

__fastcall TProgressForm::~TProgressForm()
{
	if( m_pThread )
		delete m_pThread;

	if( m_bmpTileLeft )
		delete m_bmpTileLeft;

	if( m_bmpTileRight )
		delete m_bmpTileRight;

	if( m_pTimer ){
		delete m_pTimer;
	}
}
//---------------------------------------------------------------------------

void __fastcall TProgressForm::FormCreate(TObject *Sender)
{
	//绘制圆角窗体
	HRGN hRgn = CreateRoundRectRgn( 0, 0, Width+1, Height+2, 20, 20 );
	SetWindowRgn( Handle, hRgn, false );
	DeleteObject( hRgn );
}
//---------------------------------------------------------------------------

void __fastcall TProgressForm::WMNCHitTest(TWMNCHitTest &Msg)
{
	TForm::Dispatch(&Msg);

	if( Msg.Result==HTCLIENT && Msg.YPos<Top+24 && Msg.XPos<Left+274 )
		Msg.Result = HTCAPTION;
}

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

void __fastcall TProgressForm::ProgressPaint(TObject *Sender)
{
	int x = 0;
	//左侧平铺
	if( m_nPos>0 ){
		for( int i=0; i<m_nPos/m_nTileWidth+1; i++ ){
			m_pbProgress->Canvas->Draw( x+m_nTileWidth*i, 0, m_bmpTileLeft );
		}
		x += m_nTileWidth;
	}

	//右侧平铺
	x = m_nPos;
	if( m_nPos<m_nMaxPos ){
		for( int i=0; i<(m_nMaxPos-m_nPos)/m_nTileWidth+1; i++ ){
			m_pbProgress->Canvas->Draw( x+m_nTileWidth*i, 0, m_bmpTileRight );
		}
		x += m_nTileWidth;
	}
}
//---------------------------------------------------------------------------

void __fastcall TProgressForm::UMOperateFailed(TMessage &Message)
{
//	m_pThread->Terminate();
//	ModalResult = Message.WParam;

	m_pThread->WaitFor();// >Terminate();
	m_iOperationResult = Message.WParam;

	if( m_iOperation==OPERATION_MM_SAVEMEDIA ){
		m_iSaveState &= ~STATE_SAVING;
		m_iSaveState |= STATE_SAVE_FAILED;
	}

	Canceled();
}
//---------------------------------------------------------------------------

void __fastcall TProgressForm::UMOperatePercent(TMessage &Message)
{
	TRect rcRedraw( m_nPos, 0, m_nMaxPos, m_nTileHeight );
	m_nPos = m_nNextMinPos + Message.WParam * (m_nNextMaxPos - m_nNextMinPos) / 100;

	rcRedraw.right = m_nPos;

//	m_pbProgress->Invalidate();
	InvalidateRect( m_panelProgress->Handle, &rcRedraw, false );

	if( m_iOperation==OPERATION_MM_SAVEMEDIA ){
		if( m_iSaveState<STATE_CONFIRMING && Message.WParam>95 ){
			StartConfirm();
		}
	}
}
//---------------------------------------------------------------------------

void __fastcall TProgressForm::UMOperateComplete(TMessage &Message)
{
	m_pThread->WaitFor();
	m_iOperationResult = Message.WParam;

	if( m_iOperation==OPERATION_MM_SAVEMEDIA ){
		m_iSaveState &= ~STATE_SAVING;
		m_iSaveState |= STATE_SAVE_SUCCESS;

		if( m_iSaveState & STATE_CONFIRM_SUCCESS ){
			ModalResult = mrOk;
		}
		else{
			if( m_iFileHandle==0 && FileExists(m_strParam1) ){
				m_iFileHandle = FileOpen( m_strParam1, fmOpenRead|fmShareExclusive );
			}

			if( m_iSaveState<STATE_CONFIRMING )
				StartConfirm();
		}
	}
	else{
		ModalResult = mrOk;
	}
//	m_pThread->Terminate();
//	ModalResult = mrOk;
}
//---------------------------------------------------------------------------

void __fastcall TProgressForm::UMOperateNextRange(TMessage &Message)
{
	m_nNextMinPos = Message.WParam * m_nMaxPos / 100;
	m_nNextMaxPos = ( Message.LParam==0 ? m_nMaxPos : Message.LParam * m_nMaxPos / 100 );
}
//---------------------------------------------------------------------------

void __fastcall TProgressForm::UMRecordComplete(TMessage &Message)
{
	m_MsgTransparent = Message;
	m_pThread->WaitFor();
//	m_pThread->Terminate();
	ModalResult = mrOk;
}
//---------------------------------------------------------------------------

void TProgressForm::StartConfirm()
{
	if( m_iSaveState<STATE_CONFIRMING ){
		m_iSaveState |= STATE_CONFIRMING;
		m_pTimer->Interval = 60000; //1分钟
		m_pTimer->Enabled = true;

		m_pConfirmThread = new TProgressThread( true, this );
		m_pConfirmThread->Start();

		DebugPrint( "Start confirm thread.\n" );
	}
}
//---------------------------------------------------------------------------

void __fastcall TProgressForm::UMPaymentConfirmed(TMessage &Message)
{
	m_pTimer->Enabled = false;
	m_pConfirmThread->WaitFor();
//	m_pConfirmThread->Terminate();

	m_iSaveState &= ~STATE_CONFIRMING;

	if( m_iConfirmResult==0 ){
		m_iSaveState |= STATE_CONFIRM_SUCCESS;

		if( m_iSaveState & STATE_SAVE_SUCCESS ){
			if( m_iFileHandle>0 ){
				FileClose( m_iFileHandle );
				m_iFileHandle = 0;
			}

			ModalResult = mrOk;
		}
		else if( m_iSaveState & STATE_SAVE_FAILED )
			Canceled();

		DebugPrint( "Payment confirmed.\n" );
	}
	else{
		m_iSaveState |= STATE_CONFIRM_FAILED;
		m_iOperationResult = m_iConfirmResult;

		//ModalResult = mrCancel;
		Canceled();
	}
}
//---------------------------------------------------------------------------

int __fastcall TProgressForm::MM_SaveMedia( int iSaveType, int iFileType, LPCTSTR strFileName,
													int iOp, int nIdCount, UINT aIdStyle[] )
{
	wcscpy( m_strParam1, strFileName );
	if( iSaveType==0 ){
	   iSaveType = SAVE_COMPOSESONG;
	   m_lblCaption->Caption = L"正在生成歌曲";
	}
	else{
	   m_lblCaption->Caption = L"正在保存";
	}

	m_nParam1 = iFileType;
	m_nParam2 = iSaveType;
	m_nParam3 = nIdCount;
	m_nParam4 = iOp;
	m_pParam1 = aIdStyle;

	m_iOperation = OPERATION_MM_SAVEMEDIA;
	m_btnClose->Show();
	m_pThread->Start();

	return ShowModal();
}
//---------------------------------------------------------------------------

int __fastcall TProgressForm::MM_Save( int iSaveType, LPCTSTR strFileName, int iFileType )
{
	wcscpy( m_strParam1, strFileName );
	if( iSaveType==0 ){
	   iSaveType = SAVE_COMPOSESONG;
	   m_lblCaption->Caption = L"正在生成歌曲";
	}
	else{
		m_lblCaption->Caption = L"正在保存";
	}

	m_nParam1 = iFileType;
	m_nParam2 = iSaveType;
	m_iOperation = OPERATION_MM_SAVE;
	m_btnClose->Show();
	m_pThread->Start();

	return ShowModal();
}
//---------------------------------------------------------------------------

int __fastcall TProgressForm::MM_Load( LPCTSTR strFileName, int iFileType )
{
	wcscpy( m_strParam1, strFileName );
	m_iOperation = OPERATION_MM_LOAD;
	m_nParam1 = iFileType;
	
	m_lblCaption->Caption = L"正在处理";

	m_pThread->Start();

	return ShowModal();
}
//---------------------------------------------------------------------------

int __fastcall TProgressForm::Project_Save( LPCTSTR strFileName )
{
	wcscpy( m_strParam1, strFileName );
	m_iOperation = OPERATION_PROJ_SAVE;

	m_pThread->Start();

	return ShowModal();
}
//---------------------------------------------------------------------------

int __fastcall TProgressForm::Project_Load( LPCTSTR strFileName )
{
	wcscpy( m_strParam1, strFileName );
	m_iOperation = OPERATION_PROJ_LOAD;
	m_lblCaption->Caption = L"正在打开";
	m_pThread->Start();

	return ShowModal();
}
//---------------------------------------------------------------------------

int __fastcall TProgressForm::User_Login()
{
	m_iOperation = OPERATION_USER_LOGIN;
	m_lblCaption->Caption = L"正在登录";
	m_btnClose->Show();
	m_pTimer->Enabled = true;
	m_pThread->Start();

	return ShowModal();
}
//---------------------------------------------------------------------------

int __fastcall TProgressForm::User_Register( int isEmailOrMobile )
{
	m_nParam1 = isEmailOrMobile;
	m_iOperation = OPERATION_USER_REGISTER;
	m_lblCaption->Caption = L"正在注册";
	m_btnClose->Show();
	m_pTimer->Enabled = true;
	m_pThread->Start();

	return ShowModal();
}
//---------------------------------------------------------------------------

int __fastcall TProgressForm::User_CheckPayment( int iOperation, int nIdCount, UINT aIdStyle[],
												int aStyleCost[], int* pCost , int* pBalance )
{
	m_nParam1 = nIdCount;
	m_pParam1 = aIdStyle;
	m_pParam2 = aStyleCost;
	m_pIntParam2 = pCost;
	m_pIntParam1 = pBalance;
	m_nParam2 = iOperation;
	m_iOperation = OPERATION_USER_CHECKPAYMENT;
	m_lblCaption->Caption = L"正在鉴权";
	m_btnClose->Show();
	m_pTimer->Enabled = true;
	m_pThread->Start();

	return ShowModal();
}
//---------------------------------------------------------------------------

int __fastcall TProgressForm::User_ConfirmPayment( int iOperation, int nIdCount, UINT aIdStyle[],
																				int* pBalance )
{
	m_nParam1 = nIdCount;
	m_pParam1 = aIdStyle;
	m_pIntParam1 = pBalance;
	m_nParam2 = iOperation;
	m_iOperation = OPERATION_USER_CONFIRMPAYMENT;
	m_lblCaption->Caption = L"正在支付";
	m_btnClose->Show();
	m_pTimer->Enabled = true;
	m_pThread->Start();

	return ShowModal();
}
//---------------------------------------------------------------------------

int __fastcall TProgressForm::User_SubmitQuestin( LPCSTR strQuestion )
{
	//wcscpy( m_strParam, strQuestion );
	strcpy( m_strBuff, strQuestion );
	m_iOperation = OPERATION_USER_SUBMITQA;
	m_lblCaption->Caption = L"正在提交";
	m_btnClose->Show();
	m_pTimer->Enabled = true;
	m_pThread->Start();

	return ShowModal();
}
//---------------------------------------------------------------------------

int __fastcall TProgressForm::User_StyleScore( UINT idStyle, int* pScrUser, int* pScrAverage )
{
	//add laq
	m_iOperation = OPERATION_USER_SUBMITSCORE;

	if( *pScrUser<0 )
		m_lblCaption->Caption = L"正在获取评分";
	else
		m_lblCaption->Caption = L"正在提交评分";

	m_nParam1 = idStyle;
	m_pIntParam1 = pScrUser;
	m_pIntParam2 = pScrAverage;

	m_pTimer->Enabled = true;
	m_pThread->Start();

	return ShowModal();
}
//---------------------------------------------------------------------------


int __fastcall TProgressForm::User_UploadSong( LPCTSTR strFileName, TSHAREINFO* pShareInfo )
{
	m_iOperation = OPERATION_USER_UPLOADSONG;

	if( pShareInfo ){
		wcscpy( m_strParam1, strFileName );
//		m_pParam = (void*)pSongInfo;
		m_lblCaption->Caption = L"正在上传";
		m_pParam1 = (void*)pShareInfo;
	}
	else{
		m_lblCaption->Caption = L"正在验证上传许可";
		m_pTimer->Enabled = true;
	}

	m_btnClose->Show();
	m_pThread->Start();

	return ShowModal();
}
//---------------------------------------------------------------------------

void __fastcall TProgressForm::Operation()
{
	switch( m_iOperation ){
		case OPERATION_MM_SAVEMEDIA:
			if( m_iSaveState==STATE_IDLE ){
				m_iSaveState = STATE_SAVING;

				f_MM_Save( Handle, m_nParam2, ((AnsiString)m_strParam1).c_str(), m_nParam1 );
			}
			else if( m_iSaveState & STATE_CONFIRMING ){
				int nBalance;
				m_iConfirmResult = f_CS_ConfirmPayment( g_infoUser.accountInfo.ID, m_nParam4,
													m_nParam3, (UINT*)m_pParam1, &nBalance );

				if( m_iConfirmResult==e_VerifyInsufficient || m_iConfirmResult==0 )
					g_infoUser.accountInfo.balance = nBalance;

				PostMessage( Handle, MSG_PAYMENTCONFIRMED, -1, 0 );
			}
			break;

		case OPERATION_MM_SAVE:
			f_MM_Save( Handle, m_nParam2, ((AnsiString)m_strParam1).c_str(), m_nParam1 );

			break;

		case OPERATION_MM_LOAD:
			if( m_nParam1==FILETYPE_MIDI ){
				m_iOperationResult = f_MM_LoadMidiMelody( Handle, ((AnsiString)m_strParam1).c_str() );
			}
			else{
				m_iOperationResult = f_MM_LoadAudio(Handle, ((AnsiString)m_strParam1).c_str(),
												g_iMelodyTimeSignature, g_nMelodyTempo);
			}

			if( m_iOperationResult!=S_OK )
				PostMessage( Handle, MSG_OPERATE_FAILED, m_iOperationResult, 0 );

			break;

		case OPERATION_PROJ_SAVE:
			if( SaveProject( ((AnsiString)m_strParam1).c_str(), PROJ_MODE_NORMAL, Handle )==TRUE ){
			}
			else{
			}

			break;

		case OPERATION_PROJ_LOAD:
			if( LoadProject( m_strParam1, Handle )==TRUE ){
			}
			else{
			}
			break;

		case OPERATION_USER_LOGIN:
			m_iOperationResult = f_CS_Login( &g_infoUser, true );
			PostMessage( Handle, MSG_OPERATE_COMPLETE, m_iOperationResult, 0 );
			break;

		case OPERATION_USER_REGISTER:
			m_iOperationResult = f_CS_Register( &g_infoUser, m_nParam1 );
			if( m_iOperationResult==0 ){
				PostMessage( Application->MainForm->Handle, MSG_NETWORKMESSAGE,
						MAKELONG( 0, e_loginResponse ), (LPARAM)&g_infoUser );
			}

			PostMessage( Handle, MSG_OPERATE_COMPLETE, m_iOperationResult, 0 );
			break;

		case OPERATION_USER_CHECKPAYMENT:
			m_iOperationResult = f_CS_CheckPayment( g_infoUser.accountInfo.ID, m_nParam2,
													m_nParam1, (UINT*)m_pParam1, (int*)m_pParam2,
													m_pIntParam2, m_pIntParam1 );
			PostMessage( Handle, MSG_OPERATE_COMPLETE, m_iOperationResult, 0 );
			break;

		case OPERATION_USER_CONFIRMPAYMENT:
			m_iOperationResult = f_CS_ConfirmPayment( g_infoUser.accountInfo.ID, m_nParam2,
													m_nParam1, (UINT*)m_pParam1, m_pIntParam1 );
			PostMessage( Handle, MSG_OPERATE_COMPLETE, m_iOperationResult, 0 );
			break;

		case OPERATION_USER_SUBMITQA:

			m_iOperationResult = f_CS_SubmitQnA( g_infoUser.accountInfo.ID, m_strBuff );
			PostMessage( Handle, MSG_OPERATE_COMPLETE, m_iOperationResult, 0 );
			break;

		case OPERATION_USER_SUBMITSCORE:
/*			m_iOperationResult = f_CS_StyleScore( g_infoUser.accountInfo.ID,
													m_nParam1, m_pIntParam1, m_pIntParam2 );
			PostMessage( Handle, MSG_OPERATE_COMPLETE, 0, 0 );
*/			break;

		case OPERATION_USER_UPLOADSONG:
		{
			TSONGINFO infoSong;

			if( m_pParam1 ){

//				memcpy( &infoSong, &g_infoSong, sizeof(TSONGINFO) );

				string strTmp = GBToUTF8(g_infoSong.strSongName);
				strcpy( infoSong.strSongName, strTmp.c_str() );

				strTmp = GBToUTF8(g_infoSong.strSinger);
				strcpy( infoSong.strSinger, strTmp.c_str() );

				strTmp = GBToUTF8(g_infoSong.strOriginal);
				strcpy( infoSong.strOriginal, strTmp.c_str() );

				strTmp = GBToUTF8(g_infoSong.strArranger);
				strcpy( infoSong.strArranger, strTmp.c_str() );

				strTmp = GBToUTF8(g_infoSong.strLyricist);
				strcpy( infoSong.strLyricist, strTmp.c_str() );

				strTmp = GBToUTF8(g_infoSong.strComposer);
				strcpy( infoSong.strComposer, strTmp.c_str() );

				strTmp = GBToUTF8(g_infoSong.strDescription);
				strcpy( infoSong.strDescription, strTmp.c_str() );

				memcpy( infoSong.iMusicStyle, g_infoSong.iMusicStyle, sizeof(char)*4 );
				memcpy( infoSong.aStyleIDs, g_infoSong.aStyleIDs, sizeof(UINT)*32 );
				infoSong.iCreation   = g_infoSong.iCreation;
				infoSong.iSubmit     = g_infoSong.iSubmit;
				infoSong.size        = g_infoSong.size;
				infoSong.iTempo      = g_infoSong.iTempo;
				infoSong.iTS         = g_infoSong.iTS;
				infoSong.iSingerType = g_infoSong.iSingerType;
				infoSong.cpjPrice    = g_infoSong.cpjPrice;
				infoSong.cpjVersion  = g_infoSong.cpjVersion;

				int lenght;
				if( g_infoSong.strIconName ){

					lenght = strlen(g_infoSong.strIconName);
					infoSong.strIconName = new char[lenght+1];
					strcpy( infoSong.strIconName, g_infoSong.strIconName );
					infoSong.strIconName[lenght] = '\0';
				}

				if( g_infoSong.strLyric ){

					strTmp = GBToUTF8(g_infoSong.strLyric);
					lenght = strlen(strTmp.c_str());
					infoSong.strLyric = new char[lenght+1];
					strcpy( infoSong.strLyric, strTmp.c_str() );
					infoSong.strLyric[lenght] = '\0';
				}

				if( g_infoSong.strCpjName ){
					lenght = strlen(g_infoSong.strCpjName);
					infoSong.strCpjName = new char[lenght+1];
					strcpy( infoSong.strCpjName, g_infoSong.strCpjName );
					infoSong.strCpjName[lenght] = '\0';
				}

				infoSong.strMp3Name = new char[((AnsiString)m_strParam1).Length()+1];
				strcpy( infoSong.strMp3Name, ((AnsiString)m_strParam1).c_str() );
			}

			m_iOperationResult = f_CS_UploadSong( g_infoUser.accountInfo.ID,
										m_pParam1 ? &infoSong : NULL,
										Handle,
										(TSHAREINFO*)m_pParam1 );
			PostMessage( Handle, MSG_OPERATE_COMPLETE, m_iOperationResult, 0 );

/*
			SAFE_DELETE(infoSong.strIconName)
			SAFE_DELETE(infoSong.strLyric)
			SAFE_DELETE(infoSong.strMp3Name)
*/
		}
	}
}
//---------------------------------------------------------------------------

void TProgressForm::Canceled()
{
	DebugPrint( "Canceled.\n" );

	if( m_iOperation==OPERATION_MM_SAVEMEDIA ){
		if( m_iSaveState & STATE_SAVING ){
			f_MM_UserCanceled();
			m_pThread->WaitFor();
		}
		if( m_iSaveState & STATE_CONFIRMING ){
			m_pTimer->Enabled = false;
			f_CS_CancelOperation();
			m_pConfirmThread->WaitFor();
		}

		if( m_iFileHandle>0 ){
			FileClose( m_iFileHandle );
			m_iFileHandle = 0;
		}

		if( FileExists( m_strParam1 ) )
			DeleteFile( m_strParam1 );
	}
	else{
		if( m_iOperation==OPERATION_MM_LOAD || m_iOperation==OPERATION_MM_SAVE ){
			f_MM_UserCanceled();
		}
		else if( m_iOperation==OPERATION_USER_LOGIN
						|| m_iOperation==OPERATION_USER_REGISTER
						|| m_iOperation==OPERATION_USER_CHECKPAYMENT
						|| m_iOperation==OPERATION_USER_CONFIRMPAYMENT
						|| m_iOperation==OPERATION_USER_SUBMITQA
						|| m_iOperation==OPERATION_USER_UPLOADSONG ){
			m_pTimer->Enabled = false;
			f_CS_CancelOperation();
		}

		m_pThread->WaitFor();
	}

	m_iOperation = 0;
	ModalResult = mrCancel;
	DebugPrint( "exit progress.\n" );
}
//---------------------------------------------------------------------------

void __fastcall TProgressForm::CloseClick(TObject *Sender)
{
	m_iOperationResult = e_UserCanceled;
	Canceled();
}
//---------------------------------------------------------------------------

void __fastcall TProgressForm::TimerProc(TObject* Sender)
{
	if( m_pTimer->Interval==200 ){
		m_nPos += 20;

		if( m_nPos>=m_nMaxPos ){
			m_nPos -= m_nMaxPos;
		}

		m_pbProgress->Invalidate();
	}
	else{
		m_iOperationResult = e_WaitTimeout;
		Canceled();
	}
}
//---------------------------------------------------------------------------
void __fastcall TProgressForm::FormKeyDown(TObject *Sender, WORD &Key, TShiftState Shift)
{
	switch( Key ){
	case VK_ESCAPE:
		if( m_btnClose->Visible )
			CloseClick( NULL );
		break;
	}
}
//---------------------------------------------------------------------------

void __fastcall TProgressForm::FormClose(TObject *Sender, TCloseAction &Action)
{
	if( m_iFileHandle>0 ){
		FileClose( m_iFileHandle );
		m_iFileHandle = 0;
	}
}
//---------------------------------------------------------------------------