|
|
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "vrslstfrm.h"
#include "rtfhintfrm.h"
#include "PrintFrm.h"
#include <io.h>
#include <localemgr.h>
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TVerseListForm *VerseListForm;
//---------------------------------------------------------------------------
//TODO: add toolbar
//TODO: add print to toolbar that will call up print form and populate print range
//TODO: add const char *ListKey::rangeToString() to ListKey to allow easy implementation of above
//TODO: add const char *VerseKey::rangeToString() to VerseKey to allow easy implementation of above
//TODO: add save to toolbar
//TODO: add add current verse to toolbar
//TODO: add edit entry to toolbar
//TODO: add new verse list to mainfrm
//TODO: add open verse list to mainfrm
__fastcall TVerseListForm::TVerseListForm(TComponent* Owner, ListKey &iVerseList)
: TForm(Owner), verseList(iVerseList) {
pvrtf = new TRxRichEditX(this);
pvrtf->Parent = plPreview;
pvrtf->Align = alClient;
pvrtf->ScrollBars = ssVertical;
pvrtf->ReadOnly = true;
}
//---------------------------------------------------------------------------
void __fastcall TVerseListForm::ListBox1Click(TObject *Sender) {
ModMap::iterator target;
target = Form1->mainmgr->Modules.find(Form1->TextPageControl->ActivePage->Caption.c_str());
if (target != Form1->mainmgr->Modules.end()) {
ListKey key;
SWKey *tkey = target->second->CreateKey();
*tkey = ListBox1->Items->Strings[ListBox1->ItemIndex].c_str();
key << *tkey;
delete tkey;
pvrtf->fillWithVerses(target->second, &key, true, false);
}
}
//---------------------------------------------------------------------------
void __fastcall TVerseListForm::ListBox1DblClick(TObject *Sender)
{
*(Form1->DefaultVSKey) = ListBox1->Items->Strings[ListBox1->ItemIndex].c_str();
Form1->TextKeyChanged();
}
//---------------------------------------------------------------------------
void __fastcall TVerseListForm::FormShow(TObject *Sender)
{
Caption = _tr("Verse List");
SpeedButton1->Hint = _tr("Add Current Verse To List");
SpeedButton2->Hint = _tr("Remove Highlighted Entry From List");
SpeedButton3->Hint = _tr("Copy All Entries To Clipboard");
SpeedButton4->Hint = _tr("Print All Entries");
SpeedButton5->Hint = _tr("Save Verse List To File");
SpeedButton6->Hint = _tr("Load Verse List From File");
fillWithVerseList(verseList);
}
//---------------------------------------------------------------------------
void TVerseListForm::fillWithVerseList(ListKey &verseList) {
ListBox1->Items->Clear();
for (verseList = TOP; (!verseList.Error()); verseList++)
ListBox1->Items->Add((const char *)verseList);
}
void __fastcall TVerseListForm::SpeedButton1Click(TObject *Sender)
{
ListBox1->Items->Add((const char *)*(Form1->DefaultVSKey));
}
//---------------------------------------------------------------------------
void __fastcall TVerseListForm::SpeedButton2Click(TObject *Sender)
{
int item = ListBox1->ItemIndex;
if (item >=0) {
ListBox1->Items->Delete(item);
}
}
//---------------------------------------------------------------------------
void __fastcall TVerseListForm::SpeedButton3Click(TObject *Sender)
{
ListKey verses;
for (int i = 0; i < ListBox1->Items->Count; i++) {
verses << ListBox1->Items->Strings[i].c_str();
}
TPageControl *targetpc = Form1->TextPageControl;
if ((Form1->ActiveControl == Form1->CommentaryPageControl) || (IsChild(Form1->CommentaryPageControl->Handle, Form1->ActiveControl->Handle)))
targetpc = Form1->CommentaryPageControl;
if ((Form1->ActiveControl == Form1->LexDictPageControl) || (IsChild(Form1->LexDictPageControl->Handle, Form1->ActiveControl->Handle)))
targetpc = Form1->LexDictPageControl;
ModMap::iterator it = Form1->mainmgr->Modules.find(targetpc->ActivePage->Caption.c_str());
if (it != Form1->mainmgr->Modules.end()) {
RTFHintForm->rtfDrawer->fillWithVerses(it->second, &verses, true, true);
RTFHintForm->rtfDrawer->SelectAll();
RTFHintForm->rtfDrawer->CopyToClipboard();
}
}
//---------------------------------------------------------------------------
void __fastcall TVerseListForm::SpeedButton4Click(TObject *Sender)
{
ListKey verses;
for (int i = 0; i < ListBox1->Items->Count; i++) {
verses << ListBox1->Items->Strings[i].c_str();
}
PrintForm->print(&verses);
}
//---------------------------------------------------------------------------
void __fastcall TVerseListForm::SpeedButton5Click(TObject *Sender)
{
int result = VLSaveDialog->Execute();
SetCurrentDir(ExtractFilePath(Application->ExeName));
if (result) {
if (FileMgr::existsFile(VLSaveDialog->FileName.c_str())) {
string message = _tr("File exists. Overwrite?");
string header = _tr("Overwrite File");
if (MessageBox(Handle, message.c_str(), header.c_str(), MB_YESNO) != IDYES) {
return;
}
}
FileDesc *fd;
unlink(VLSaveDialog->FileName.c_str());
fd = FileMgr::systemFileMgr.open(VLSaveDialog->FileName.c_str(), O_CREAT|O_WRONLY|O_BINARY, S_IREAD|S_IWRITE);
ListKey verses;
for (int i = 0; i < ListBox1->Items->Count; i++) {
VerseKey toEn;
toEn = ListBox1->Items->Strings[i].c_str();
toEn.getText();
toEn.setLocale("en_us");
verses << toEn.getText();
}
const char *rangeText = verses.getRangeText();
write(fd->getFd(), rangeText, strlen(rangeText));
FileMgr::systemFileMgr.close(fd);
}
}
//---------------------------------------------------------------------------
void __fastcall TVerseListForm::SpeedButton6Click(TObject *Sender)
{
int result = VLOpenDialog->Execute();
SetCurrentDir(ExtractFilePath(Application->ExeName));
if (result) {
if (!FileMgr::existsFile(VLOpenDialog->FileName.c_str())) {
return;
}
FileDesc *fd;
fd = FileMgr::systemFileMgr.open(VLOpenDialog->FileName.c_str(), O_RDONLY|O_BINARY);
ListKey verses;
VerseKey parser;
long size = lseek(fd->getFd(), 0, SEEK_END);
lseek(fd->getFd(), 0, SEEK_SET);
char *buf = new char[size+5];
memset(buf, 0, size+5);
read(fd->getFd(), buf, size);
FileMgr::systemFileMgr.close(fd);
verses = parser.ParseVerseList(buf, parser, false);
fillWithVerseList(verses);
delete [] buf;
}
}
//---------------------------------------------------------------------------
|
