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
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
|
//----------------------------------------------------------------------------
// SWTXTDSP.hpp - bcbdcc32 generated hdr (DO NOT EDIT) rev: 0
// From: SWTXTDSP.pas
//----------------------------------------------------------------------------
#ifndef SWTXTDSPHPP
#define SWTXTDSPHPP
//----------------------------------------------------------------------------
#include <ComCtrls.hpp>
#include <StdCtrls.hpp>
#include <Dialogs.hpp>
#include <Forms.hpp>
#include <Controls.hpp>
#include <Graphics.hpp>
#include <Classes.hpp>
#include <SysUtils.hpp>
#include <Messages.hpp>
#include <Windows.hpp>
#include <SWVSKey.hpp>
#include <SWModule.hpp>
#include <IStreams.hpp>
#include <System.hpp>
namespace Swtxtdsp
{
//-- type declarations -------------------------------------------------------
struct charrange
{
long min;
long max;
} ;
class __declspec(delphiclass) TSWTextDisp;
class __declspec(pascalimplementation) TSWTextDisp : public Comctrls::TRichEdit
{
typedef Comctrls::TRichEdit inherited;
private:
Swmodule::TSWModule* FSWModule;
bool FCurVerseMrk;
bool FCurVersePos;
System::AnsiString FRTFHeader;
System::AnsiString FRTFTrailer;
System::AnsiString FRTFChapterMarkPre;
System::AnsiString FRTFChapterMarkPost;
System::AnsiString FRTFVerseMarkPre;
System::AnsiString FRTFVerseMarkPost;
System::AnsiString FRTFVersePre;
System::AnsiString FRTFVersePost;
bool FMarkCurrentVerse;
charrange FCharRange;
bool FAutoPosition;
int __fastcall GetMySelStart(void);
void __fastcall SetMySelStart(int iselstart);
protected:
Classes::TMemoryStream* RTFStream;
virtual void __fastcall SetSWModule(Swmodule::TSWModule* imodule);
virtual Swmodule::TSWModule* __fastcall GetSWModule(void);
virtual void __fastcall Loaded(void);
public:
__fastcall virtual TSWTextDisp(Classes::TComponent* AOwner);
__fastcall virtual ~TSWTextDisp(void);
virtual void __fastcall Display(void);
__published:
__property bool CurVersePos = {read=FCurVersePos, write=FCurVersePos, default=1};
__property bool CurVerseMrk = {read=FCurVerseMrk, write=FCurVerseMrk, default=1};
__property Swmodule::TSWModule* SWModule = {read=GetSWModule, write=SetSWModule, nodefault};
__property System::AnsiString RTFHeader = {read=FRTFHeader, write=FRTFHeader, nodefault};
__property System::AnsiString RTFChapterMarkPre = {read=FRTFChapterMarkPre, write=FRTFChapterMarkPre
, nodefault};
__property System::AnsiString RTFChapterMarkPost = {read=FRTFChapterMarkPost, write=FRTFChapterMarkPost
, nodefault};
__property System::AnsiString RTFVerseMarkPre = {read=FRTFVerseMarkPre, write=FRTFVerseMarkPre, nodefault
};
__property System::AnsiString RTFVerseMarkPost = {read=FRTFVerseMarkPost, write=FRTFVerseMarkPost,
nodefault};
__property System::AnsiString RTFVersePre = {read=FRTFVersePre, write=FRTFVersePre, nodefault};
__property System::AnsiString RTFVersePost = {read=FRTFVersePost, write=FRTFVersePost, nodefault};
__property System::AnsiString RTFTrailer = {read=FRTFTrailer, write=FRTFTrailer, nodefault};
__property bool MarkCurrentVerse = {read=FMarkCurrentVerse, write=FMarkCurrentVerse, default=1};
__property bool AutoPosition = {read=FAutoPosition, write=FAutoPosition, default=1};
public:
/* TWinControl.CreateParented */ __fastcall TSWTextDisp(HWND ParentWindow) : Comctrls::TRichEdit(ParentWindow
) { }
};
//-- var, const, procedure ---------------------------------------------------
extern System::AnsiString defRTFHeader;
extern System::AnsiString defRTFTrailer;
extern System::AnsiString defRTFChapterMarkPre;
extern System::AnsiString defRTFChapterMarkPost;
extern System::AnsiString defRTFVerseMarkPre;
extern System::AnsiString defRTFVerseMarkPost;
extern System::AnsiString defRTFVersePre;
extern System::AnsiString defRTFVersePost;
extern void __fastcall Register(void);
extern void __fastcall finalization(void);
} /* namespace Swtxtdsp */
#if !defined(NO_IMPLICIT_NAMESPACE_USE)
using namespace Swtxtdsp;
#endif
//-- end unit ----------------------------------------------------------------
#endif // SWTXTDSP
|
