7 files changed, 0 insertions, 279 deletions
diff --git a/examples/windoze/delphi20/multimo4/LogoMain.dfm b/examples/windoze/delphi20/multimo4/LogoMain.dfm
deleted file mode 100644
index 466ea20..0000000
--- a/examples/windoze/delphi20/multimo4/LogoMain.dfm
+++ /dev/null
diff --git a/examples/windoze/delphi20/multimo4/LogoMain.pas b/examples/windoze/delphi20/multimo4/LogoMain.pas
deleted file mode 100644
index 0803d43..0000000
--- a/examples/windoze/delphi20/multimo4/LogoMain.pas
+++ /dev/null
@@ -1,171 +0,0 @@
-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
deleted file mode 100644
index be232ac..0000000
--- a/examples/windoze/delphi20/multimo4/Multimod.dpr
+++ /dev/null
@@ -1,17 +0,0 @@
-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
deleted file mode 100644
index 6b8b7a8..0000000
--- a/examples/windoze/delphi20/multimo4/Searchdlg.dfm
+++ /dev/null
diff --git a/examples/windoze/delphi20/multimo4/Searchdlg.pas b/examples/windoze/delphi20/multimo4/Searchdlg.pas
deleted file mode 100644
index 1cf83fc..0000000
--- a/examples/windoze/delphi20/multimo4/Searchdlg.pas
+++ /dev/null
@@ -1,60 +0,0 @@
-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
deleted file mode 100644
index 16013ec..0000000
--- a/examples/windoze/delphi20/multimo4/about.dfm
+++ /dev/null
diff --git a/examples/windoze/delphi20/multimo4/about.pas b/examples/windoze/delphi20/multimo4/about.pas
deleted file mode 100644
index 44a8a55..0000000
--- a/examples/windoze/delphi20/multimo4/about.pas
+++ /dev/null
@@ -1,31 +0,0 @@
-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.
-