From 8d3fc864d094eeadc721f8e93436b37a5fab173e Mon Sep 17 00:00:00 2001 From: "Roberto C. Sanchez" Date: Sat, 29 Mar 2014 10:53:33 -0400 Subject: Imported Upstream version 1.5.3 --- examples/windoze/delphi20/multimo4/LogoMain.dfm | Bin 0 -> 5659 bytes examples/windoze/delphi20/multimo4/LogoMain.pas | 171 +++++++++++++++++++++++ examples/windoze/delphi20/multimo4/Multimod.dpr | 17 +++ examples/windoze/delphi20/multimo4/Searchdlg.dfm | Bin 0 -> 682 bytes examples/windoze/delphi20/multimo4/Searchdlg.pas | 60 ++++++++ examples/windoze/delphi20/multimo4/about.dfm | Bin 0 -> 1811 bytes examples/windoze/delphi20/multimo4/about.pas | 31 ++++ 7 files changed, 279 insertions(+) create mode 100644 examples/windoze/delphi20/multimo4/LogoMain.dfm create mode 100644 examples/windoze/delphi20/multimo4/LogoMain.pas create mode 100644 examples/windoze/delphi20/multimo4/Multimod.dpr create mode 100644 examples/windoze/delphi20/multimo4/Searchdlg.dfm create mode 100644 examples/windoze/delphi20/multimo4/Searchdlg.pas create mode 100644 examples/windoze/delphi20/multimo4/about.dfm create mode 100644 examples/windoze/delphi20/multimo4/about.pas (limited to 'examples/windoze/delphi20/multimo4') diff --git a/examples/windoze/delphi20/multimo4/LogoMain.dfm b/examples/windoze/delphi20/multimo4/LogoMain.dfm new file mode 100644 index 0000000..466ea20 Binary files /dev/null and b/examples/windoze/delphi20/multimo4/LogoMain.dfm differ diff --git a/examples/windoze/delphi20/multimo4/LogoMain.pas b/examples/windoze/delphi20/multimo4/LogoMain.pas new file mode 100644 index 0000000..0803d43 --- /dev/null +++ b/examples/windoze/delphi20/multimo4/LogoMain.pas @@ -0,0 +1,171 @@ +unit LogoMain; + +interface + +uses Windows, Classes, Graphics, Forms, Controls, Menus, + Dialogs, StdCtrls, Buttons, ExtCtrls, ComCtrls, Grids, DBGrids, swmodule, + swkey, swvskey, swtxtdsp; + +type + TSwordAppForm = class(TForm) + MainMenu: TMainMenu; + FileMenu: TMenuItem; + FileExitItem: TMenuItem; + Help1: TMenuItem; + AboutItem: TMenuItem; + pnlToolbar: TPanel; + StatusBar: TStatusBar; + BookCB: TComboBox; + CHBox: TEdit; + VSBox: TEdit; + Label1: TLabel; + btnLookup: TSpeedButton; + lblTextKeyText: TLabel; + PopupMenu1: TPopupMenu; + EastonsBibleDictionary1: TMenuItem; + VinesBibleDictionary1: TMenuItem; + mrtWebster: TSWModule; + mrcMHC: TSWModule; + mrldEastons: TSWModule; + mrldVines: TSWModule; + vkCommonKey: TSWVerseKey; + DblClkWordRtClkMouse1: TMenuItem; + Search1: TMenuItem; + NewSearchWindow1: TMenuItem; + Bevel1: TBevel; + pnlMain: TPanel; + pnlText: TPanel; + lblTextTitle: TLabel; + pnlCommentary: TPanel; + lblCommentTitle: TLabel; + edCommentBox: TRichEdit; + pnlVSplitter: TPanel; + pnlHSplitter: TPanel; + pnlDictionary: TPanel; + edLDBox: TRichEdit; + pnlDcitionaryTitle: TPanel; + Label2: TLabel; + lblLDTitle: TLabel; + btnPreviousVerse: TButton; + btnNextVerse: TButton; + lblLDKeyText: TLabel; + edTextBox: TSWTextDisp; + procedure FormCreate(Sender: TObject); + procedure FileExit(Sender: TObject); + procedure Lookup(Sender: TObject); + procedure About(Sender: TObject); + procedure ShowHint(Sender: TObject); + procedure EastonsBibleDictionary1Click(Sender: TObject); + procedure edTextBoxEnter(Sender: TObject); + procedure VinesBibleDictionary1Click(Sender: TObject); + procedure btnPreviousVerseClick(Sender: TObject); + procedure btnNextVerseClick(Sender: TObject); + procedure NewSearchWindow1Click(Sender: TObject); + private + curedit: TRichEdit; + public + { Public declarations } + end; + +var + SwordAppForm: TSwordAppForm; + +implementation + +uses SysUtils, Mapi, About, searchdlg; + +{$R *.DFM} +procedure TSwordAppForm.FormCreate(Sender: TObject); +var + s1: string; +begin + Application.OnHint := ShowHint; + + vkCommonKey.Text := 'Genesis 1:1'; + while (vkCommonKey.Error = 0) do + begin + s1 := vkCommonKey.Text; + SetLength(s1, (Length(s1) - 4)); + BookCB.Items.Add(s1); + vkCommonKey.Book := vkCommonKey.Book + 1; + end; +end; + + +procedure TSwordAppForm.FileExit(Sender: TObject); +begin + Close; +end; + +procedure TSwordAppForm.Lookup(Sender: TObject); +var + Buffer: PChar; + s1: AnsiString; + hkey: integer; +begin + if ((StrToInt(CHBox.Text) = 0) or (StrToInt(VSBox.Text) = 0)) then + vkCommonKey.AutoNormalize := false; + + vkCommonKey.Text := BookCB.Text + ' ' + CHBox.Text + ':' + VSBox.Text; + lblTextKeyText.Caption := vkCommonKey.Text; + edTextBox.Display; + edCommentBox.Text := mrcMHC.Text; + + vkCommonKey.AutoNormalize := true; +end; + +procedure TSwordAppForm.About(Sender: TObject); +begin + AboutBox.ShowModal; +end; + +procedure TSwordAppForm.ShowHint(Sender: TObject); +begin + StatusBar.SimpleText := Application.Hint; +end; + +procedure TSwordAppForm.EastonsBibleDictionary1Click(Sender: TObject); +begin + mrldEastons.KeyText := Trim(curedit.SelText); { we use .KeyText instead of Key.Text because we don't care about accessing the actual key in Eastons (in fact, it may even not be allocated yet). We just want to set Eastons with the text and let Eastons worry about allocating keys.} + edLDBox.Text := mrldEastons.Text; + lblLDKeyText.Caption := mrldEastons.KeyText; + lblLDTitle.Caption := mrldEastons.Description; +end; + +procedure TSwordAppForm.edTextBoxEnter(Sender: TObject); +begin + curedit := TRichEdit(Sender); +end; + +procedure TSwordAppForm.VinesBibleDictionary1Click(Sender: TObject); +begin + mrldVines.KeyText := Trim(curedit.SelText); { we use .KeyText instead of Key.Text because we don't care about accessing the actual key in Vines (in fact, it may even not be allocated yet). We just want to set Vines with the text and let Vines worry about allocating keys.} + edLDBox.Text := mrldVines.Text; + lblLDKeyText.Caption := mrldVines.KeyText; + lblLDTitle.Caption := mrldVines.Description; +end; + +procedure TSwordAppForm.btnPreviousVerseClick(Sender: TObject); +begin + vkCommonKey.Dec; + lblTextKeyText.Caption := vkCommonKey.Text; + edTextBox.Display; + edCommentBox.Text := mrcMHC.Text; +end; + +procedure TSwordAppForm.btnNextVerseClick(Sender: TObject); +begin + vkCommonKey.Inc; + lblTextKeyText.Caption := vkCommonKey.Text; + edTextBox.Display; + edCommentBox.Text := mrcMHC.Text; +end; + +procedure TSwordAppForm.NewSearchWindow1Click(Sender: TObject); +begin + SearchForm := TSearchForm.Create(Self); + SearchForm.Show; +end; + +end. + diff --git a/examples/windoze/delphi20/multimo4/Multimod.dpr b/examples/windoze/delphi20/multimo4/Multimod.dpr new file mode 100644 index 0000000..be232ac --- /dev/null +++ b/examples/windoze/delphi20/multimo4/Multimod.dpr @@ -0,0 +1,17 @@ +program MultiMod; + +uses + Forms, + LogoMain in 'LogoMain.pas' {SwordAppForm}, + About in 'ABOUT.PAS' {AboutBox}, + Searchdlg in 'Searchdlg.pas' {SearchForm}; + +{$R *.RES} + +begin + Application.Title := 'The SWORD Project'; + Application.CreateForm(TSwordAppForm, SwordAppForm); + Application.CreateForm(TAboutBox, AboutBox); +// Application.CreateForm(TSearchForm, SearchForm); + Application.Run; +end. diff --git a/examples/windoze/delphi20/multimo4/Searchdlg.dfm b/examples/windoze/delphi20/multimo4/Searchdlg.dfm new file mode 100644 index 0000000..6b8b7a8 Binary files /dev/null and b/examples/windoze/delphi20/multimo4/Searchdlg.dfm differ diff --git a/examples/windoze/delphi20/multimo4/Searchdlg.pas b/examples/windoze/delphi20/multimo4/Searchdlg.pas new file mode 100644 index 0000000..1cf83fc --- /dev/null +++ b/examples/windoze/delphi20/multimo4/Searchdlg.pas @@ -0,0 +1,60 @@ +unit searchdlg; + +interface + +uses + SWKey, Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, + StdCtrls; + +type + TSearchForm = class(TForm) + Edit1: TEdit; + Button1: TButton; + Button2: TButton; + ListBox1: TListBox; + Label1: TLabel; + procedure Button2Click(Sender: TObject); + procedure Button1Click(Sender: TObject); + procedure ListBox1DblClick(Sender: TObject); + private + { Private declarations } + public + { Public declarations } + end; + +var + SearchForm: TSearchForm; + +implementation + +uses LogoMain; + +{$R *.DFM} + +procedure TSearchForm.Button2Click(Sender: TObject); +begin + Close; +end; + +procedure TSearchForm.Button1Click(Sender: TObject); +var + results:TSWKey; +begin + ListBox1.Clear; + results := SwordAppForm.mrtWebster.Search(PChar(Edit1.Text)); + while (results.Error = 0) do + begin + ListBox1.Items.Add(results.text); + results.Inc; + end; +end; + +procedure TSearchForm.ListBox1DblClick(Sender: TObject); +begin + SwordAppForm.vkcommonkey.text := ListBox1.items[listbox1.itemindex]; + SwordAppForm.lblTextKeyText.Caption := SwordAppForm.vkCommonKey.Text; + SwordAppForm.edTextBox.Display; + SwordAppForm.edCommentBox.Text := SwordAppForm.mrcMHC.Text; +end; + +end. diff --git a/examples/windoze/delphi20/multimo4/about.dfm b/examples/windoze/delphi20/multimo4/about.dfm new file mode 100644 index 0000000..16013ec Binary files /dev/null and b/examples/windoze/delphi20/multimo4/about.dfm differ diff --git a/examples/windoze/delphi20/multimo4/about.pas b/examples/windoze/delphi20/multimo4/about.pas new file mode 100644 index 0000000..44a8a55 --- /dev/null +++ b/examples/windoze/delphi20/multimo4/about.pas @@ -0,0 +1,31 @@ +unit About; + +interface + +uses Windows, Classes, Graphics, Forms, Controls, StdCtrls, + Buttons, ExtCtrls; + +type + TAboutBox = class(TForm) + Panel1: TPanel; + OKButton: TButton; + ProgramIcon: TImage; + ProductName: TLabel; + Version: TLabel; + Copyright: TLabel; + Comments: TLabel; + private + { Private declarations } + public + { Public declarations } + end; + +var + AboutBox: TAboutBox; + +implementation + +{$R *.DFM} + +end. + -- cgit v1.2.3