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

#include "SplashFormUnit.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TSplashForm *SplashForm;
//---------------------------------------------------------------------------
__fastcall TSplashForm::TSplashForm(TComponent* Owner)
	: TForm(Owner)
{
	m_lblProgress->ControlStyle>>csOpaque;
}
//---------------------------------------------------------------------------

void __fastcall TSplashForm::ShowProgress( String strMsg )
{
	m_lblProgress->Caption = strMsg;
	Update();
}
//---------------------------------------------------------------------------