Initial import from crosswire CVS for syncingimport-1.1.1

1 files changed, 441 insertions, 0 deletions

diff --git a/apps/windoze/CBuilder5/BibleCS/PrintFrm.cpp b/apps/windoze/CBuilder5/BibleCS/PrintFrm.cpp
new file mode 100644
index 0000000..9d6b85f
--- /dev/null
+++ b/apps/windoze/CBuilder5/BibleCS/PrintFrm.cpp
@@ -0,0 +1,441 @@
+//---------------------------------------------------------------------------
+
+#include <vcl.h>
+#pragma hdrstop
+
+#include "PrintFrm.h"
+#include "mainfrm.h"
+#include <Printers.hpp>
+#include <Math.hpp>
+#include <localemgr.h>
+#include "PreviewForm.h"
+//---------------------------------------------------------------------------
+#pragma package(smart_init)
+#pragma link "RxCombos"
+#pragma resource "*.dfm"
+TPrintForm *PrintForm;
+
+//---------------------------------------------------------------------------
+__fastcall TPrintForm::TPrintForm(TComponent* Owner)
+	: TForm(Owner)
+{
+	rtfPrint = new TRxRichEditX(this);
+	rtfPrint->Parent = this;
+	rtfPrint->Visible = false;
+	rtfPrint->Font->Name = "Arial";
+
+    // Put in the RXLib Font combobox component
+	cmbFont = new TFontComboBox(this);
+	cmbFont->Parent = pnlFontComboBox;
+	cmbFont->Align = alClient;
+	cmbFont->Font->Size = 12;
+	cmbFont->ParentFont = true;
+	cmbFont->UseFonts = true;
+	cmbFont->ItemIndex = cmbFont->Items->IndexOf("Arial");
+}
+//---------------------------------------------------------------------------
+
+void __fastcall TPrintForm::FormShow(TObject *Sender)
+{
+	
+	if(Form1->optionsconf->Sections["Printing"]["Notice"] != "1"){
+		Application->MessageBox("This release of The Sword Printer is preliminary and is not yet fully functional, therefore some of the features here have been disabled. Please be sure to take a look at the formatting options to be able to fully take control of how your page will look. Also be sure to use the \"Print Preview\" feature to preview how your page(s) will look on paper before printing. Enjoy! From, The Sword Project Development Team!", "The Sword Printer", MB_ICONINFORMATION | MB_OK);
+		Form1->optionsconf->Sections["Printing"]["Notice"] = "1";
+		Form1->optionsconf->Save();
+	}
+	ConfigEntMap::iterator eit;
+	AnsiString fontName;
+	BibleCSMGR *manager = Form1->mainmgr;
+	ModMap::iterator mods;
+	TPageControl* pc;
+
+	if ((Form1->ActiveControl == Form1->CommentaryPageControl) || (IsChild(Form1->CommentaryPageControl->Handle, Form1->ActiveControl->Handle))){
+		pc = Form1->CommentaryPageControl;
+		radComm->Checked = true;
+		staticRange->Caption = "Verse Range or List";
+		editStart->Text =  Form1->DefaultVSKey->getText();
+	}
+	else if ((Form1->ActiveControl == Form1->LexDictPageControl) || (IsChild(Form1->LexDictPageControl->Handle, Form1->ActiveControl->Handle))){
+		pc = Form1->LexDictPageControl;
+	radLD->Checked = true;
+        staticRange->Caption = "Lookup Range";
+        editStart->Text =  Form1->DictKeyEdit->Text;
+    }
+    else{
+    	pc = Form1->TextPageControl;
+		radText->Checked = true;
+		staticRange->Caption = "Verse Range or List";
+        editStart->Text =  Form1->DefaultVSKey->getText();
+    }
+    FillModuleCombo();
+
+    AnsiString temp;
+    for(int count = 0; count < cmbModule->Items->Count; count++){
+    	temp =  cmbModule->Items->Strings[count].SubString(2, cmbModule->Items->Strings[count].Pos("]") - 2);
+    	if(temp == pc->ActivePage->Caption)
+        	cmbModule->ItemIndex = count;
+    }
+    SetHint();
+	fontName = ((eit = Form1->optionsconf->Sections["PrintPrefs"].find("PrintFontName")) != Form1->optionsconf->Sections["PrintPrefs"].end())? (*eit).second.c_str() : "Times New Roman";
+    cmbFont->ItemIndex = cmbFont->Items->IndexOf(fontName);
+    PageControl1->ActivePage = shtSelection;
+
+	SetDefaultOps();
+
+}
+//---------------------------------------------------------------------------
+
+void __fastcall TPrintForm::btnCloseClick(TObject *Sender)
+{
+	Close();
+}
+//---------------------------------------------------------------------------
+
+
+void TPrintForm::FillModuleCombo()
+{
+	TStringList *moduleNames = new TStringList;
+	BibleCSMGR *manager = Form1->mainmgr;
+	ModMap::iterator mods;
+	AnsiString modName;
+
+	for (mods = manager->Modules.begin(); mods != manager->Modules.end(); mods++) {
+		modName = "[" + (AnsiString)mods->second->Name() + "] " + (AnsiString)mods->second->Description();
+		if(!strncmp(mods->second->Type(), "Bibl", 4) && radText->Checked){
+		moduleNames->Add(modName);
+		}else if(!strncmp(mods->second->Type(), "Comm", 4) && radComm->Checked){
+		moduleNames->Add(modName);
+		}else if(!strncmp(mods->second->Type(), "Lexi", 4) && radLD->Checked){
+		moduleNames->Add(modName);
+		}
+	}
+	cmbModule->Items = moduleNames;
+	cmbModule->ItemIndex = 0;
+}
+
+void __fastcall TPrintForm::radTextClick(TObject *Sender)
+{
+	cmbModule->Enabled = true;
+	staticRange->Caption = _tr("Verse Range or List");
+	SetHint();
+	FillModuleCombo();
+	SetDefaultOps();
+}
+//---------------------------------------------------------------------------
+
+void __fastcall TPrintForm::radCommClick(TObject *Sender)
+{
+	staticRange->Caption = _tr("Verse Range or List");
+	SetHint();
+	FillModuleCombo();
+	SetDefaultOps();
+}
+//---------------------------------------------------------------------------
+
+void __fastcall TPrintForm::radLDClick(TObject *Sender)
+{
+	cmbModule->Enabled = true;
+	staticRange->Caption = _tr("Lookup Entry");
+	SetHint();
+	FillModuleCombo();
+	SetDefaultOps();
+}
+//---------------------------------------------------------------------------
+
+void __fastcall TPrintForm::spinLeftClick(TObject *Sender,
+      TUDBtnType Button)
+{
+	if(Button == Comctrls::btNext)
+    	editLeft->Text = FloatToStr(StrToFloat(editLeft->Text) + .05);
+    else
+    	editLeft->Text = FloatToStr(StrToFloat(editLeft->Text) - .05);
+
+}
+//---------------------------------------------------------------------------
+
+void __fastcall TPrintForm::spinRightClick(TObject *Sender,
+      TUDBtnType Button)
+{
+	if(Button == Comctrls::btNext)
+    	editRight->Text = FloatToStr(StrToFloat(editRight->Text) + .05);
+    else
+    	editRight->Text = FloatToStr(StrToFloat(editRight->Text) - .05);
+}
+//---------------------------------------------------------------------------
+
+void __fastcall TPrintForm::spinBottomClick(TObject *Sender,
+      TUDBtnType Button)
+{
+	if(Button == Comctrls::btNext)
+    	editBottom->Text = FloatToStr(StrToFloat(editBottom->Text) + .05);
+    else
+    	editBottom->Text = FloatToStr(StrToFloat(editBottom->Text) - .05);
+}
+//---------------------------------------------------------------------------
+
+void __fastcall TPrintForm::spinTopClick(TObject *Sender,
+      TUDBtnType Button)
+{
+	if(Button == Comctrls::btNext)
+    	editTop->Text = FloatToStr(StrToFloat(editTop->Text) + .05);
+    else
+    	editTop->Text = FloatToStr(StrToFloat(editTop->Text) - .05);
+}
+//---------------------------------------------------------------------------
+
+void __fastcall TPrintForm::btnPrintClick(TObject *Sender)
+{
+	if(cmbModule->Text.data() != NULL && editStart->Text.data() != NULL){
+		PrepareRTF();
+		OnPrint(rtfPrint);
+	}
+
+}
+//---------------------------------------------------------------------------
+
+void __fastcall TPrintForm::OnPrint(TRxRichEdit* rtfPrint)
+{
+/* TODO 2 -oDavid -cPrinting : Add Printing of Headers and Footers */
+	float	leftMargin = StrToFloat(editLeft->Text),
+		rightMargin = StrToFloat(editRight->Text),
+			topMargin = StrToFloat(editTop->Text),
+			bottomMargin = StrToFloat(editBottom->Text);
+
+	// Sets the font we will use for the headers and footers
+	Printer()->Canvas->Font->Name = "Arial";
+	Printer()->Canvas->Font->Size = -8;
+	Printer()->Canvas->Font->Color = clBlack;	
+	
+	int wPage = ::GetDeviceCaps(Printer()->Handle, PHYSICALWIDTH);
+	int hPage = ::GetDeviceCaps(Printer()->Handle, PHYSICALHEIGHT);
+	
+	int xPPI = ::GetDeviceCaps(Printer()->Handle, LOGPIXELSX);
+	int yPPI = ::GetDeviceCaps(Printer()->Handle, LOGPIXELSY);
+	
+	int wTwips = ::MulDiv(wPage, 1440, xPPI);
+	int hTwips = ::MulDiv(hPage, 1440, yPPI);
+	/*
+	// Adjust for the headers and footers if needed
+	if(ckHeader->Checked){
+		int headerCoord = hTwips;
+		hTwips -= (Printer()->Canvas->Font->Height + (.25 * Printer()->Canvas->Font->Height));
+	}
+	if(ckFooter->Checked){
+		int footerCoord = hTwips;
+		hTwips -= (Printer()->Canvas->Font->Height + (.25 * Printer()->Canvas->Font->Height));
+	}
+	*/
+	
+	RECT pageRect;
+	pageRect.left = pageRect.top = 0;
+	pageRect.right = wTwips;
+	pageRect.bottom = hTwips;
+	
+	RECT rendRect;
+	rendRect.left = rendRect.top = 0;
+	rendRect.right = pageRect.right - 1440 * (leftMargin + rightMargin);
+	rendRect.bottom = pageRect.bottom - 1440 * (topMargin + bottomMargin);
+	
+	std::vector<TPageOffsets> FPageOffsets;
+	
+	TPageOffsets po;
+	po.Start = 0;
+	
+	TFormatRange fr;
+	fr.hdc = Printer()->Handle;
+	fr.hdcTarget = Printer()->Handle;
+	fr.chrg.cpMin = po.Start;
+	fr.chrg.cpMax = -1;
+
+	int lastOffset = ::SendMessage(rtfPrint->Handle, WM_GETTEXTLENGTH, 0, 0);
+	
+	::SendMessage(rtfPrint->Handle, EM_FORMATRANGE, (WPARAM) 0, (LPARAM) 0);
+	
+	::SaveDC(fr.hdc);
+	::SetMapMode(fr.hdc, MM_TEXT);
+	int xOffset = -::GetDeviceCaps(Printer()->Handle, PHYSICALOFFSETX);
+	int yOffset = -::GetDeviceCaps(Printer()->Handle, PHYSICALOFFSETY);
+	xOffset += ::MulDiv((leftMargin * 1440), xPPI, 1440);
+	yOffset += ::MulDiv((topMargin * 1440), yPPI, 1440);
+	::SetViewportOrgEx(fr.hdc, xOffset, yOffset, NULL);
+	
+	do {
+		fr.rc = rendRect;
+		fr.rcPage = pageRect;
+		po.Start = fr.chrg.cpMin;
+		fr.chrg.cpMin = ::SendMessage(rtfPrint->Handle, EM_FORMATRANGE,(WPARAM) 0, (LPARAM) &fr);
+		// I don't know why I need to do this, but there is an apparent bug in the TRXRichEdit control
+		// and it doesn't handle the last page properly if there are more than 3 pages of text.
+		if(fr.chrg.cpMin == po.End)
+			fr.chrg.cpMin = lastOffset;
+		po.End = fr.chrg.cpMin - 1;
+		po.rendRect = fr.rc;
+		if(fr.chrg.cpMin < lastOffset)
+			FPageOffsets.push_back(po);
+	} while (fr.chrg.cpMin != -1 && fr.chrg.cpMin < lastOffset);
+
+	int pageCount = FPageOffsets.size();
+	::SendMessage(rtfPrint->Handle, EM_FORMATRANGE, (WPARAM) 0, (LPARAM) 0);
+	::RestoreDC(fr.hdc, -1);
+
+	Printer()->BeginDoc();
+	fr.hdc = Printer()->Handle;
+	fr.hdcTarget = Printer()->Handle;
+	::SaveDC(fr.hdc);
+	/*
+	if(ckHeader->Checked == true){
+		Printer()->Canvas->TextOut(100,100,"This is my test");
+	}
+	*/
+
+	bool firstPage = true;
+	int currPage = 0;
+
+	do {
+		if (firstPage) firstPage = false;
+		else Printer()->NewPage();
+		::SetViewportOrgEx(fr.hdc, xOffset, yOffset, NULL);
+		fr.rc = FPageOffsets[currPage].rendRect;
+		fr.rcPage = pageRect;
+		fr.chrg.cpMin = FPageOffsets[currPage].Start;
+		fr.chrg.cpMax = FPageOffsets[currPage].End;
+		fr.chrg.cpMin = ::SendMessage(rtfPrint->Handle, EM_FORMATRANGE, (WPARAM) 1, (LPARAM) &fr);
+	} while (++currPage < pageCount);
+
+	::RestoreDC(fr.hdc, -1);
+	Printer()->EndDoc();
+
+	::SendMessage(rtfPrint->Handle, EM_FORMATRANGE, (WPARAM) 0, (LPARAM) 0);
+	FPageOffsets.erase(FPageOffsets.begin(), FPageOffsets.end());
+}
+
+void TPrintForm::SetHint()
+{
+	TStringList* strList = new TStringList;
+	if(radText->Checked || radComm->Checked){
+		strList->Add("Examples:");
+		strList->Add("John 1:1              Prints John chapter 1 verse 1");
+		strList->Add("John 1                 Prints the entire first chapter of John");
+		strList->Add("John 1,2              Prints chapters 1 and 2 of John");
+		strList->Add("John 3:16;Rom 3:23    Prints John 3:16 and Romans 3:23");
+	}else{
+		strList->Add("Examples:");
+		/* TODO 2 -oDavid -cPrinting : Make printing ranges of dictionaries work */
+		// The ranges don't work yet.
+		//strList->Add("Aaron - David     Prints dictionary entries from Aaron to David");
+		strList->Add("Jesus                 Prints dictionary entry for Jesus");
+		//strList->Add("0051 - 0054       Prints dictionary entry for range 0051 to 0054");
+		strList->Add("0051                  Prints dictionary entry for 0051");
+	}
+	editStart->Hint = strList->Text;
+	delete strList;
+}
+
+void __fastcall TPrintForm::btnSetupClick(TObject *Sender)
+{
+	PrinterSetupDialog->Execute();
+}
+//---------------------------------------------------------------------------
+void __fastcall TPrintForm::BitBtn5Click(TObject *Sender)
+{
+		//To do
+}
+//---------------------------------------------------------------------------
+
+void TPrintForm::PrepareRTF()
+{
+    BibleCSMGR* manager = Form1->mainmgr;
+    RTF_FORMAT format;
+    AnsiString newtext = "";
+    AnsiString moduleName = cmbModule->Text.SubString(2,cmbModule->Text.Pos("]") - 2);
+    SWModule *module = manager->Modules[moduleName.c_str()];
+    ListKey lstKey;
+    StrKey testKey;
+
+    format.bkFontHeadSize = 2 * editHeading->Text.ToInt();
+    format.bodyFontSize = 2 * editBody->Text.ToInt();
+    format.vsNumFontSize = 2 * editNumbers->Text.ToInt();
+    format.chFontHeadSize = 2 * editHeading->Text.ToInt();
+	format.fontFace =  cmbFont->Text;
+    format.paragraph = ckParagraph->Checked;
+    format.prBookHeadings = ckBookHead->Checked;
+    format.prChHeadings = ckChHead->Checked;
+    format.prPreFix = ckPrefix->Checked;
+    format.prPostFix = ckPostfix->Checked;
+    format.prVerseNum = ckVSNum->Checked;
+    format.superVSNum = ckSuperVS->Checked;
+
+    lstKey.Persist(1);
+    if(!radLD->Checked){
+   		lstKey = VerseKey().ParseVerseList(editStart->Text.c_str(),*(Form1->DefaultVSKey), true);
+        module->SetKey(&lstKey);
+	    rtfPrint->RenderModule(module, format);
+    	module->SetKey(Form1->DefaultVSKey);
+    }
+    else{
+    	testKey.setText(WideStringToUTF8(editStart->Text).c_str());
+        lstKey << testKey;
+	   module->SetKey(&lstKey);
+    	rtfPrint->RenderModule(module, format);
+	    module->SetKey(Form1->DefaultStrKey);
+    }
+}
+
+void __fastcall TPrintForm::btnPreviewClick(TObject *Sender)
+{
+	if(cmbModule->Text.data() != NULL && editStart->Text.data() != NULL){
+		PrepareRTF();
+        PreviewForm->currPage = 0;
+        if(PreviewForm->ShowModal() == mrOk)
+	        OnPrint(rtfPrint);
+	}
+}
+void __fastcall TPrintForm::ckHeaderClick(TObject *Sender)
+{
+   editHeader->Enabled =  ckHeader->Checked;
+}
+//---------------------------------------------------------------------------
+
+void __fastcall TPrintForm::ckFooterClick(TObject *Sender)
+{
+   editFooter->Enabled =  ckFooter->Checked;
+}
+//---------------------------------------------------------------------------
+
+void __fastcall TPrintForm::ckVSNumClick(TObject *Sender)
+{
+	ckSuperVS->Enabled = ckVSNum->Checked;
+}
+//---------------------------------------------------------------------------
+
+
+void TPrintForm::SetDefaultOps()
+{
+	if(radText->Checked){
+		ckBookHead->Checked = true;
+		ckChHead->Checked = true;
+		ckParagraph->Checked = true;
+		ckVSNum->Checked = true;
+		ckSuperVS->Checked = true;
+		ckPrefix->Checked = false;
+		ckPostfix->Checked = false;
+	}else if(radComm->Checked){
+		ckBookHead->Checked = false;
+		ckChHead->Checked = false;
+		ckParagraph->Checked = false;
+		ckVSNum->Checked = false;
+		ckSuperVS->Checked = false;
+		ckPrefix->Checked = false;
+		ckPostfix->Checked = true;
+	}else if(radLD->Checked){
+		ckBookHead->Checked = false;
+		ckChHead->Checked = false;
+		ckParagraph->Checked = false;
+		ckVSNum->Checked = false;
+		ckSuperVS->Checked = false;
+		ckPrefix->Checked = false;
+		ckPostfix->Checked = false;
+	}
+	 
+}
+