diff options
author | Roberto C. Sanchez <roberto@connexer.com> | 2014-03-29 10:53:49 -0400 |
---|---|---|
committer | Roberto C. Sanchez <roberto@connexer.com> | 2014-03-29 10:53:49 -0400 |
commit | 8c8aa6b07e595cfac56838b5964ab3e96051f1b2 (patch) | |
tree | da38e2c1979148dbd3b0c7b87f930746f5ba7f44 /apps/windoze/CBuilder5/prototype/vrslstfrm.cpp | |
parent | 8d3fc864d094eeadc721f8e93436b37a5fab173e (diff) |
Imported Upstream version 1.5.7
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); -} -//--------------------------------------------------------------------------- - - - |