aboutsummaryrefslogtreecommitdiffstats
path: root/apps/windoze/CBuilder5/BibleCS/rtfhintfrm.cpp
blob: 0fbe3112e06f824206d9893ec155226051b23057 (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
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop

#include "rtfhintfrm.h"
#include <clipbrd.hpp>
#include <swdisprtf.h>
#include <swdisprtfchap.h>
#include "mainfrm.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"

TRTFHintForm *RTFHintForm;


__fastcall TRTFHintForm::TRTFHintForm(TComponent* Owner)
	: TForm(Owner)
{
	rtfDrawer = new TRxRichEditX(Panel1);
	rtfDrawer->Parent = Panel1;
	rtfDrawer->Align = alTop;
	// I  changed this to white because our defual now needs to be white so you can use it for controls like the search window with little extra formatting info.
	rtfDrawer->Color = 14680063; //TColor(0xB4CDBB);
	rtfDrawer->BorderStyle = bsNone;
	rtfDrawer->Text = "yoyo";
	rtfDrawer->Name = "rtfDrawer";
	rtfDrawer->Enabled = true;
	rtfDrawer->Visible = true;
	rtfDrawer->DoubleBuffered = false;
	searchListDrawer = new TRxRichEditX(Panel1);
	searchListDrawer->Parent = Panel1;
	searchListDrawer->Align = alBottom;
	searchListDrawer->Color = clWindow; //TColor(0xB4CDBB);
	searchListDrawer->BorderStyle = bsNone;
	searchListDrawer->Text = "yoyo";
	searchListDrawer->Name = "searchListDrawer";
	searchListDrawer->Enabled = true;
	searchListDrawer->Visible = true;
	searchListDrawer->DoubleBuffered = false;
}
//---------------------------------------------------------------------------
void __fastcall TRTFHintForm::Button1Click(TObject *Sender)
{
	Clipboard()->Assign(this->GetFormImage());	
}
//---------------------------------------------------------------------------