blob: a75b7b2f17f3fce2a3b1d045a8fcf288fe5537ca (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
|
//---------------------------------------------------------------------------
#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;
}
//---------------------------------------------------------------------------
|
