diff options
Diffstat (limited to 'apps/windoze/CBuilder5/prototype/vrslstfrm.cpp')
-rw-r--r-- | apps/windoze/CBuilder5/prototype/vrslstfrm.cpp | 50 |
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); -} -//--------------------------------------------------------------------------- - - - |