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

#include "InfoFrm.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TInfoForm *InfoForm;
//---------------------------------------------------------------------------
__fastcall TInfoForm::TInfoForm(TComponent* Owner)
	: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TInfoForm::FormShow(TObject *Sender)
{
	AnsiString abouttext = "";
	TMemoryStream *RTFStream = new TMemoryStream();

	abouttext = abouttext + "{\\fs20\\cf0 " + info.c_str() + " }";
	RTFStream->Clear();
	RTFStream->WriteBuffer(abouttext.c_str(), abouttext.Length());
	RTFStream->Position = 0;
	InfoText->Lines->LoadFromStream(RTFStream);
	delete RTFStream;
}
//---------------------------------------------------------------------------
void __fastcall TInfoForm::SpeedButton1Click(TObject *Sender)
{
	ModalResult = mrOk;	
}
//---------------------------------------------------------------------------