summaryrefslogtreecommitdiff
path: root/apps/windoze/CBuilder4/BibleCS/RangeMaintFrm.cpp
diff options
context:
space:
mode:
Diffstat (limited to 'apps/windoze/CBuilder4/BibleCS/RangeMaintFrm.cpp')
-rw-r--r--apps/windoze/CBuilder4/BibleCS/RangeMaintFrm.cpp130
1 files changed, 0 insertions, 130 deletions
diff --git a/apps/windoze/CBuilder4/BibleCS/RangeMaintFrm.cpp b/apps/windoze/CBuilder4/BibleCS/RangeMaintFrm.cpp
deleted file mode 100644
index ef84061..0000000
--- a/apps/windoze/CBuilder4/BibleCS/RangeMaintFrm.cpp
+++ /dev/null
@@ -1,130 +0,0 @@
-//---------------------------------------------------------------------------
-
-#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));
- }
-}
-//---------------------------------------------------------------------------
-