blob: e26f6ff2168d67ffcc357e3a848ee6c4927dc5e9 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
|
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include <swmgr.h>
#include <listkey.h>
#include "DevOfTheDay.h"
#include "mainfrm.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TDevOfTheDay2 *DevOfTheDay2;
//---------------------------------------------------------------------------
__fastcall TDevOfTheDay2::TDevOfTheDay2(TComponent* Owner)
: TForm(Owner)
{
RichTipOld->Visible = false;
RichTip = new TRxRichEditX(this);
RichTip->Parent = Panel1;
RichTip->Align = alClient;
RichTip->ScrollBars = ssVertical;
RichTip->ReadOnly = true;
}
//---------------------------------------------------------------------------
void __fastcall TDevOfTheDay2::btnOKClick(TObject *Sender)
{
DevOfTheDay2->Hide();
if (Form1->optionsconf) {
Form1->optionsconf->Sections["General"]["TipOfTheDay"] = (DevOfTheDay2->ckShowTip->Checked) ? "Devotional" : "";
Form1->optionsconf->Save();
}
}
//---------------------------------------------------------------------------
void __fastcall TDevOfTheDay2::FormShow(TObject *Sender)
{
ModMap::iterator it;
ListKey key;
String devoKey = TDateTime::CurrentDate().FormatString("mm.dd");
key << devoKey.c_str();
string tmpval = Form1->optionsconf->Sections["ModDefaults"]["DailyDevotion"];
if ((it = Form1->mainmgr->Modules.find(tmpval)) != Form1->mainmgr->Modules.end()) {
RichTip->fillWithVerses(it->second, &key, false, false);
}
else DevOfTheDay2->RichTip->Text = "A Daily Devotional is not installed or is not configured for use with the \"Devotional of the Day.\n\nTo configure an installed devotional for use with this dialog box open the Preferences dialog box by going to the \"Options\" menu and selecting \"Preferences...\"; then click the \"Special Modules\" tab. Find the \"Default Devotional\" option and select a devotional to use from the list. If nothing shows up in the pull-down list you will need to install a devotional. This can be done by using the Install Manager. Some examples of devotionals are \"Spurgeon's Morning and Evening\" or \"Jonathan Bagster's Daily Light\".\n\nVisit our website at www.crosswire.org for more information.";
// If no devotional text is shown then a general how-to is diplayed.
tmpval = Form1->optionsconf->Sections["General"]["TipOfTheDay"];
ckShowTip->Checked = (!stricmp(tmpval.c_str(), "Devotional"));
}
//---------------------------------------------------------------------------
|
