summaryrefslogtreecommitdiff
path: root/apps/windoze/CBuilder5/prototype/vrslstfrm.cpp
diff options
context:
space:
mode:
Diffstat (limited to 'apps/windoze/CBuilder5/prototype/vrslstfrm.cpp')
-rw-r--r--apps/windoze/CBuilder5/prototype/vrslstfrm.cpp50
1 files changed, 0 insertions, 50 deletions
diff --git a/apps/windoze/CBuilder5/prototype/vrslstfrm.cpp b/apps/windoze/CBuilder5/prototype/vrslstfrm.cpp
deleted file mode 100644
index f20e6a8..0000000
--- a/apps/windoze/CBuilder5/prototype/vrslstfrm.cpp
+++ /dev/null
@@ -1,50 +0,0 @@
-//---------------------------------------------------------------------------
-#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->textTabs->pageControl->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);
-}
-//---------------------------------------------------------------------------
-
-
-