1 files changed, 48 insertions, 0 deletions
diff --git a/apps/windoze/CBuilder5/BibleCS/vrslstfrm.cpp b/apps/windoze/CBuilder5/BibleCS/vrslstfrm.cpp
new file mode 100644
index 0000000..64807c5
--- /dev/null
+++ b/apps/windoze/CBuilder5/BibleCS/vrslstfrm.cpp
@@ -0,0 +1,48 @@
+//---------------------------------------------------------------------------
+#include <vcl.h>
+#pragma hdrstop
+
+#include "vrslstfrm.h"
+//---------------------------------------------------------------------------
+#pragma package(smart_init)
+#pragma resource "*.dfm"
+TVerseListFrm *VerseListFrm;
+//---------------------------------------------------------------------------
+__fastcall TVerseListFrm::TVerseListFrm(TComponent* Owner, ListKey &iVerseList)
+	: TForm(Owner), verseList(iVerseList) {
+	pvrtf = new SWDispRTF(this);
+
+	pvrtf->Parent = plPreview;
+	pvrtf->Align = alClient;
+	pvrtf->ScrollBars = ssVertical;
+	pvrtf->ReadOnly = true;
+}
+//---------------------------------------------------------------------------
+
+void __fastcall TVerseListFrm::ListBox1Click(TObject *Sender) {
+	ModMap::iterator target;
+	target = Form1->mainmgr->Modules.find(Form1->PageControl1->ActivePage->Caption.c_str());
+	if (target != Form1->mainmgr->Modules.end()) {
+		SWKey *savekey = *(*target).second;
+		(*target).second->SetKey(ListBox1->Items->Strings[ListBox1->ItemIndex].c_str());
+		pvrtf->Display(*(*target).second);
+		(*target).second->SetKey(*savekey);
+	}
+}
+//---------------------------------------------------------------------------
+
+void __fastcall TVerseListFrm::ListBox1DblClick(TObject *Sender)
+{
+	*(Form1->DefaultVSKey) = ListBox1->Items->Strings[ListBox1->ItemIndex].c_str();
+	Form1->TextKeyChanged();
+}
+//---------------------------------------------------------------------------
+void __fastcall TVerseListFrm::FormShow(TObject *Sender)
+{
+		for (verseList = TOP; (!verseList.Error()); verseList++)
+			ListBox1->Items->Add((const char *)verseList);
+}
+//---------------------------------------------------------------------------
+
+
+