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

#include "UnsuFrm.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TUnsuForm *UnsuForm;
//---------------------------------------------------------------------------
__fastcall TUnsuForm::TUnsuForm(TComponent* Owner)
	: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TUnsuForm::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 TUnsuForm::SpeedButton1Click(TObject *Sender)
{
	ModalResult = mrOk;
}
//---------------------------------------------------------------------------
void __fastcall TUnsuForm::SpeedButton2Click(TObject *Sender)
{
	ModalResult = mrIgnore;
}
//---------------------------------------------------------------------------