aboutsummaryrefslogtreecommitdiffstats
path: root/apps/windoze/swdisprtf.cpp
diff options
context:
space:
mode:
authordanglassey <danglassey>2002-08-14 09:55:38 +0000
committerdanglassey <danglassey>2002-08-14 09:55:38 +0000
commit6d6973e035aac5ec1676efccd5b8ada70c40b639 (patch)
tree4e92da327f60a083fe610e6b68d016434653b5b4 /apps/windoze/swdisprtf.cpp
parentc9458897ebbb739d8db83c80e06512d8a612f743 (diff)
downloadsword-sf-cvs-6d6973e035aac5ec1676efccd5b8ada70c40b639.tar.gz
Initial import for syncing from crosswire CVS
Diffstat (limited to 'apps/windoze/swdisprtf.cpp')
-rw-r--r--apps/windoze/swdisprtf.cpp113
1 files changed, 0 insertions, 113 deletions
diff --git a/apps/windoze/swdisprtf.cpp b/apps/windoze/swdisprtf.cpp
deleted file mode 100644
index 3a725af..0000000
--- a/apps/windoze/swdisprtf.cpp
+++ /dev/null
@@ -1,113 +0,0 @@
-//---------------------------------------------------------------------------
-#include <vcl\vcl.h>
-#pragma hdrstop
-
-#include "swdisprtf.h"
-#include <unicodertf.h>
-
-
-
-//---------------------------------------------------------------------------
-__fastcall SWDispRTF::SWDispRTF(TWinControl *Owner)
- : TRxRichEditX(Owner) {
- RTFStream = new TMemoryStream();
-
- ExpandNewLine = true;
- this->AutoURLDetect = true;
-}
-
-__fastcall SWDispRTF::~SWDispRTF()
-{
- if (RTFStream)
- delete RTFStream;
-}
-
-
-void __fastcall SWDispRTF::Loaded(void)
-{
- TRxRichEditX::Loaded();
-}
-
-
-int __fastcall SWDispRTF::GetMySelStart() {
- CHARRANGE cr;
-
- SendMessage(Handle, EM_EXGETSEL, 0, (long)&cr);
- return cr.cpMin;
-}
-
-
-void __fastcall SWDispRTF::SetMySelStart(int iselstart) {
- CHARRANGE cr;
-
- cr.cpMin = iselstart;
- cr.cpMax = iselstart;
- SendMessage(Handle, EM_EXSETSEL, 0, (long)&cr);
-}
-
-// Display for Comm and LD
-char SWDispRTF::Display(SWModule &Module) {
- System::AnsiString newtext, tmptext;
- static UnicodeRTF filter;
- char buf[255];
-
- module = &Module;
- type = "Default";
-
- recalcAppearance();
-
- newtext = RTFHeader;
- newtext = newtext + RTFHeadMargin;
- Module.Error(); // clear error;
- newtext = newtext + "\\pard \\nowidctlpar \\cf7\\f0 ";
- (const char *)Module; // force key to snap to entry before pulling out the text of the key
- strcpy(buf, Module.KeyText());
- SWKey *key = Module;
-
- // VerseKey locales are not yet UTF8, so don't try to convert them.
- if (!SWDYNAMIC_CAST(VerseKey, key))
- filter.ProcessText(buf, 253, Module, &Module);
-
- newtext = newtext + RTFHeadingPre + buf + RTFHeadingPost + ":\\par ";
- tmptext = "";
-
- tmptext = (const char *)Module;
-
- newtext = newtext + RTFVersePre + " " + tmptext + RTFVersePost;
- newtext = newtext + RTFTrailer;
- RTFStream->Clear();
- RTFStream->WriteBuffer(newtext.c_str(), newtext.Length());
- RTFStream->Position = 0;
- Lines->LoadFromStream(RTFStream);
-
- // make links
- while (true) {
- int start, len, foundAt, endAt;
-
- start = (SelLength) ? SelStart + SelLength : 0;
- len = Text.Length() - start;
- foundAt = this->SearchText("<a href=\"\">", start, len, TRichSearchTypes());
- if (foundAt == -1)
- break;
-
- SelStart = foundAt;
- SelLength = 11;
- this->SelText = "";
- endAt = this->SearchText("</a>", foundAt, len, TRichSearchTypes());
- if (foundAt == -1)
- break;
- SelStart = endAt;
- SelLength = 4;
- this->SelText = "";
- SelStart = foundAt;
- SelLength = endAt - foundAt;
- this->SelAttributes->Link = true;
- }
- SelLength = 0;
-
- return 0;
-}
-
-//---------------------------------------------------------------------------
-
-