1 files changed, 130 insertions, 0 deletions
diff --git a/apps/windoze/CBuilder4/BibleCS/RangeMaintFrm.cpp b/apps/windoze/CBuilder4/BibleCS/RangeMaintFrm.cpp
new file mode 100644
index 0000000..ef84061
--- /dev/null
+++ b/apps/windoze/CBuilder4/BibleCS/RangeMaintFrm.cpp
@@ -0,0 +1,130 @@
+//---------------------------------------------------------------------------
+
+#include <vcl.h>
+#pragma hdrstop
+
+#include "RangeMaintFrm.h"
+#include <versekey.h>
+#include <listkey.h>
+//---------------------------------------------------------------------------
+#pragma package(smart_init)
+#pragma resource "*.dfm"
+TRangeMaintForm *RangeMaintForm;
+
+//---------------------------------------------------------------------------
+__fastcall TRangeMaintForm::TRangeMaintForm(TComponent* Owner)
+	: TForm(Owner)
+{
+}
+//---------------------------------------------------------------------------
+void __fastcall TRangeMaintForm::FormShow(TObject *Sender)
+{
+	ConfigEntMap::iterator loop, end;
+	config = new SWConfig("./options.conf");	
+	ListBox1->Clear();
+	loop = config->Sections["CustomRanges"].begin();
+	end = config->Sections["CustomRanges"].end();
+	while (loop != end) {
+		TCustomRange *rs = new TCustomRange(loop->first.c_str(), loop->second.c_str());
+		ListBox1->Items->AddObject(rs->name.c_str(), rs);
+		loop++;
+	}
+	ListBox1->ItemIndex = 0;
+	if (ListBox1->ItemIndex) {
+		SpeedButton1Click(0);
+	}
+	else {
+		ListBox1Click(0);
+		Button1Click(0);
+	}
+}
+//---------------------------------------------------------------------------
+void __fastcall TRangeMaintForm::FormClose(TObject *Sender,
+	 TCloseAction &Action)
+{
+	delete config;	
+}
+//---------------------------------------------------------------------------
+void __fastcall TRangeMaintForm::SpeedButton4Click(TObject *Sender)
+{
+	ModalResult = mrCancel;	
+}
+//---------------------------------------------------------------------------
+void __fastcall TRangeMaintForm::ListBox1Click(TObject *Sender)
+{
+	if (ListBox1->ItemIndex >= 0) {
+		TCustomRange *rs = (TCustomRange *)ListBox1->Items->Objects[ListBox1->ItemIndex];
+
+		NameEdit->Text = rs->name.c_str();
+		TextEdit->Text = rs->text.c_str();
+	}
+	else {
+		NameEdit->Text = "";
+		TextEdit->Text = "";
+	}
+	Button1Click(0);
+}
+//---------------------------------------------------------------------------
+void __fastcall TRangeMaintForm::NameEditChange(TObject *Sender)
+{
+	if (ListBox1->ItemIndex < 0)
+		return;
+	TCustomRange *rs = (TCustomRange *)ListBox1->Items->Objects[ListBox1->ItemIndex];
+	rs->name = NameEdit->Text.c_str();
+	ListBox1->Items->Strings[ListBox1->ItemIndex] = rs->name.c_str();
+}
+//---------------------------------------------------------------------------
+void __fastcall TRangeMaintForm::TextEditChange(TObject *Sender)
+{
+	if (ListBox1->ItemIndex < 0)
+		return;
+	TCustomRange *rs = (TCustomRange *)ListBox1->Items->Objects[ListBox1->ItemIndex];
+	rs->text = TextEdit->Text.c_str();
+	Button1Click(0);
+}
+//---------------------------------------------------------------------------
+void __fastcall TRangeMaintForm::SpeedButton2Click(TObject *Sender)
+{
+	if (ListBox1->ItemIndex < 0)
+		return;
+	int delItem = ListBox1->ItemIndex;
+	ListBox1->Items->Delete(delItem);
+	ListBox1->ItemIndex = (delItem < ListBox1->Items->Count) ? delItem : delItem - 1;
+	ListBox1Click(0);
+}
+//---------------------------------------------------------------------------
+void __fastcall TRangeMaintForm::SpeedButton1Click(TObject *Sender)
+{
+	TCustomRange *rs = new TCustomRange("[New Custom Range]", "");
+	ListBox1->ItemIndex = ListBox1->Items->AddObject(rs->name.c_str(), rs);
+	
+	ListBox1Click(0);
+}
+//---------------------------------------------------------------------------
+void __fastcall TRangeMaintForm::SpeedButton3Click(TObject *Sender)
+{
+	TCustomRange *rs;
+	config->Sections["CustomRanges"].erase(config->Sections["CustomRanges"].begin(), config->Sections["CustomRanges"].end());
+	for (int i = 0; i < ListBox1->Items->Count; i++) {
+		rs = (TCustomRange *)ListBox1->Items->Objects[i];
+		config->Sections["CustomRanges"].insert(ConfigEntMap::value_type(rs->name.c_str(), rs->text.c_str()));
+	}
+	config->Save();
+	ModalResult = mrOk;
+}
+//---------------------------------------------------------------------------
+void __fastcall TRangeMaintForm::Button1Click(TObject *Sender)
+{
+	VerseKey key;
+	ListBox2->Clear();
+	ListKey verses = key.ParseVerseList(TextEdit->Text.c_str(), key, true);
+	for (int i = 0; i < verses.Count(); i++) {
+		VerseKey *element = dynamic_cast<VerseKey *>(verses.GetElement(i));
+		if (element) {
+			ListBox2->Items->Add((string(element->LowerBound()) + " - " + string(element->UpperBound())).c_str());
+		}
+		else	ListBox2->Items->Add((const char *)*verses.GetElement(i));
+	}
+}
+//---------------------------------------------------------------------------
+