diff options
Diffstat (limited to 'apps/windoze/vb/ActiveDiathekeDemo')
| -rw-r--r-- | apps/windoze/vb/ActiveDiathekeDemo/ADDemo.frm | 318 | ||||
| -rw-r--r-- | apps/windoze/vb/ActiveDiathekeDemo/ADDemo.frx | bin | 0 -> 127 bytes | |||
| -rw-r--r-- | apps/windoze/vb/ActiveDiathekeDemo/ADDemo.vbp | 41 | ||||
| -rw-r--r-- | apps/windoze/vb/ActiveDiathekeDemo/ADDemo.vbw | 1 |
4 files changed, 360 insertions, 0 deletions
diff --git a/apps/windoze/vb/ActiveDiathekeDemo/ADDemo.frm b/apps/windoze/vb/ActiveDiathekeDemo/ADDemo.frm new file mode 100644 index 0000000..c07b356 --- /dev/null +++ b/apps/windoze/vb/ActiveDiathekeDemo/ADDemo.frm @@ -0,0 +1,318 @@ +VERSION 5.00 +Object = "{723C13CC-FA83-4FCA-915A-9ECA87DF11A1}#1.0#0"; "ACTIVE~1.OCX" +Object = "{3B7C8863-D78F-101B-B9B5-04021C009402}#1.2#0"; "RICHTX32.OCX" +Begin VB.Form MainWindow + BorderStyle = 3 'Fixed Dialog + Caption = "ActiveDiatheke Demo" + ClientHeight = 7680 + ClientLeft = 45 + ClientTop = 330 + ClientWidth = 10080 + LinkTopic = "Form1" + MaxButton = 0 'False + ScaleHeight = 7680 + ScaleWidth = 10080 + StartUpPosition = 3 'Windows Default + Begin VB.CheckBox bidireorder + Caption = "BiDi Reorder" + Height = 255 + Left = 3360 + TabIndex = 18 + Top = 600 + Width = 1455 + End + Begin VB.CheckBox arshape + Caption = "Shape Arabic" + Height = 255 + Left = 1920 + TabIndex = 17 + Top = 600 + Width = 1335 + End + Begin VB.CheckBox script + Caption = "Roman Transliterate" + Height = 255 + Left = 4920 + TabIndex = 16 + Top = 600 + Width = 1815 + End + Begin VB.CheckBox variants + Caption = "Variants" + Height = 255 + Left = 7680 + TabIndex = 15 + Top = 840 + Width = 975 + End + Begin VB.CheckBox scripref + Caption = "Scrip. Refs." + Height = 255 + Left = 8760 + TabIndex = 14 + Top = 840 + Width = 1335 + End + Begin VB.CheckBox gaccents + Caption = "Greek Accents" + Height = 255 + Left = 1920 + TabIndex = 13 + Top = 840 + Width = 1455 + End + Begin VB.CheckBox hpoints + Caption = "Hebrew Vowels" + Height = 255 + Left = 3360 + TabIndex = 12 + Top = 840 + Width = 1455 + End + Begin VB.CheckBox hcantillation + Caption = "Hebrew Cantillation" + Height = 255 + Left = 4920 + TabIndex = 11 + Top = 840 + Width = 1815 + End + Begin VB.CheckBox morphology + Caption = "Morphology" + Height = 255 + Left = 8760 + TabIndex = 10 + Top = 480 + Width = 1335 + End + Begin ACTIVEDIATHEKELib.ActiveDiatheke diatheke + Left = 0 + Top = 6720 + _Version = 65536 + _ExtentX = 3625 + _ExtentY = 1085 + _StockProps = 0 + book = "" + key = "" + script = "Latin" + strongs = -1 'True + footnotes = -1 'True + headings = -1 'True + morphology = -1 'True + greekaccents = -1 'True + hebrewpoints = -1 'True + hebrewcantillation= -1 'True + scripref = -1 'True + arshape = -1 'True + bidireorder = -1 'True + outputformat = 5 + outputencoding = 4 + End + Begin RichTextLib.RichTextBox presentation + DataField = "5" + Height = 6495 + Left = 1800 + TabIndex = 9 + Top = 1200 + Width = 8295 + _ExtentX = 14631 + _ExtentY = 11456 + _Version = 393217 + Enabled = -1 'True + ScrollBars = 2 + TextRTF = $"ADDemo.frx":0000 + End + Begin VB.CheckBox headings + Caption = "Headings" + Height = 255 + Left = 7680 + TabIndex = 8 + Top = 480 + Width = 1095 + End + Begin VB.CheckBox footnotes + Caption = "Footnotes" + Height = 255 + Left = 8760 + TabIndex = 7 + Top = 120 + Width = 1095 + End + Begin VB.CheckBox strongs + Caption = "Strong's" + Height = 255 + Left = 7680 + TabIndex = 6 + Top = 120 + Width = 975 + End + Begin VB.ComboBox searchtype + Height = 315 + Left = 6120 + TabIndex = 4 + Top = 120 + Width = 1455 + End + Begin VB.TextBox key + CausesValidation= 0 'False + Height = 375 + Left = 2280 + TabIndex = 1 + Top = 120 + Width = 2535 + End + Begin VB.ListBox books + Height = 7665 + Left = 0 + TabIndex = 0 + Top = 0 + Width = 1815 + End + Begin VB.Label Label3 + Caption = "Search Type" + Height = 255 + Left = 5040 + TabIndex = 5 + Top = 120 + Width = 975 + End + Begin VB.Label Label2 + Caption = "Key" + Height = 255 + Left = 1920 + TabIndex = 3 + Top = 120 + Width = 375 + End + Begin VB.Label Label1 + Caption = "Label1" + Height = 135 + Left = 3960 + TabIndex = 2 + Top = 120 + Width = 15 + End +End +Attribute VB_Name = "MainWindow" +Attribute VB_GlobalNameSpace = False +Attribute VB_Creatable = False +Attribute VB_PredeclaredId = True +Attribute VB_Exposed = False + +Private Sub arshape_Click() +If arshape.Value = 1 Then diatheke.arshape = True Else diatheke.arshape = False +End Sub + +Private Sub bidireorder_Click() +If bidireorder.Value = 1 Then diatheke.bidireorder = True Else diatheke.bidireorder = False +End Sub + +Private Sub books_Click() +diatheke.book = books.Text +End Sub + +Private Sub diatheke_ValueChanged() +presentation.TextRTF = diatheke.Value +End Sub + +Private Sub footnotes_Click() +If footnotes.Value = 1 Then diatheke.footnotes = True Else diatheke.footnotes = False +End Sub + +Private Sub Form_Initialize() + +' grab the book list (just names) using book "system" and key "modulelistnames" +diatheke.book = "system" +diatheke.key = "modulelistnames" +diatheke.query + +' split the book list by line into an array +booklist = Split(diatheke.Value, Chr$(10), -1, vbTextCompare) + +' and add them each to the list control +For Each book In booklist + books.AddItem (book) +Next book + +diatheke.book = "KJV" +diatheke.key = "John 1:1" +diatheke.query + +' wasn't that easy :) + +key.Text = diatheke.key + +searchtype.AddItem "None", 0 +searchtype.AddItem "Regex", 1 +searchtype.AddItem "Multiword", 2 +searchtype.AddItem "Phrase", 3 +searchtype.ListIndex = diatheke.searchtype + +key.Text = diatheke.key +If diatheke.strongs Then strongs.Value = 1 Else strongs.Value = 0 +If diatheke.footnotes Then footnotes.Value = 1 Else footnotes.Value = 0 +If diatheke.headings Then headings.Value = 1 Else headings.Value = 0 +If diatheke.morphology Then morphology.Value = 1 Else morphology.Value = 0 +If diatheke.scripref Then scripref.Value = 1 Else scripref.Value = 0 +If diatheke.variants Then variants.Value = 1 Else variants.Value = 0 +If diatheke.script = "Latin" Then script.Value = 1 Else script.Value = 0 +If diatheke.arshape Then arshape.Value = 1 Else arshape.Value = 0 +If diatheke.bidireorder Then bidireorder.Value = 1 Else bidireorder.Value = 0 + +diatheke.autoupdate = True +End Sub + + +Private Sub Form_Terminate() +diatheke.autoupdate = False +End Sub + +Private Sub gaccents_Click() +If gaccents.Value = 1 Then diatheke.gaccents = True Else diatheke.headings = False +End Sub + +Private Sub hcantillation_Click() +If hcantillation.Value = 1 Then diatheke.hcantillation = True Else diatheke.hcantillation = False +End Sub + +Private Sub headings_Click() +If headings.Value = 1 Then diatheke.headings = True Else diatheke.headings = False +End Sub + +Private Sub hpoints_Click() +If hpoints.Value = 1 Then diatheke.hpoints = True Else diatheke.hpoints = False +End Sub + +Private Sub key_Change() +diatheke.autoupdate = False +diatheke.key = key.Text +diatheke.autoupdate = True +End Sub + +Private Sub key_KeyPress(KeyAscii As Integer) +If KeyAscii = 13 Then diatheke.query +End Sub + +Private Sub morphology_Click() +If morphology.Value = 1 Then diatheke.morphology = True Else diatheke.morphology = False +End Sub + +Private Sub scripref_Click() +If scripref.Value = 1 Then diatheke.scripref = True Else diatheke.scripref = False +End Sub + +Private Sub searchtype_Change() +diatheke.searchtype = searchtype.ListIndex +End Sub + +Private Sub strongs_Click() +If strongs.Value = 1 Then diatheke.strongs = True Else diatheke.strongs = False +End Sub + +Private Sub script_Click() +If script.Value = 1 Then diatheke.script = "Latin" Else diatheke.script = "Off" +End Sub + +Private Sub variants_Click() +If variants.Value = 1 Then diatheke.variants = 1 Else diatheke.variants = 0 +End Sub diff --git a/apps/windoze/vb/ActiveDiathekeDemo/ADDemo.frx b/apps/windoze/vb/ActiveDiathekeDemo/ADDemo.frx Binary files differnew file mode 100644 index 0000000..8d51db9 --- /dev/null +++ b/apps/windoze/vb/ActiveDiathekeDemo/ADDemo.frx diff --git a/apps/windoze/vb/ActiveDiathekeDemo/ADDemo.vbp b/apps/windoze/vb/ActiveDiathekeDemo/ADDemo.vbp new file mode 100644 index 0000000..df6d702 --- /dev/null +++ b/apps/windoze/vb/ActiveDiathekeDemo/ADDemo.vbp @@ -0,0 +1,41 @@ +Type=Exe +Form=ADDemo.frm +Reference=*\G{00020430-0000-0000-C000-000000000046}#2.0#0#..\..\..\..\..\..\..\WINNT\System32\stdole2.tlb#OLE Automation +Object={723C13CC-FA83-4FCA-915A-9ECA87DF11A1}#1.0#0; ACTIVE~1.OCX +Object={3050F1C5-98B5-11CF-BB82-00AA00BDCE0B}#4.0#0; MSHTML.TLB +Object={3B7C8863-D78F-101B-B9B5-04021C009402}#1.2#0; RICHTX32.OCX +IconForm="MainWindow" +Startup="MainWindow" +HelpFile="" +Title="ADDemo" +ExeName32="ADDemo.exe" +Command32="" +Name="ActiveDiathekeDemo" +HelpContextID="0" +CompatibleMode="0" +MajorVer=1 +MinorVer=1 +RevisionVer=0 +AutoIncrementVer=0 +ServerSupportFiles=0 +VersionComments="ActiveDiatheke demo application by Chris Little <chrislit@crosswire.org>" +VersionCompanyName="the Chiasma" +CompilationType=0 +OptimizationType=0 +FavorPentiumPro(tm)=-1 +CodeViewDebugInfo=0 +NoAliasing=0 +BoundsCheck=0 +OverflowCheck=0 +FlPointCheck=0 +FDIVCheck=0 +UnroundedFP=0 +StartMode=0 +Unattended=0 +Retained=0 +ThreadPerObject=0 +MaxNumberOfThreads=1 +DebugStartupOption=0 + +[MS Transaction Server] +AutoRefresh=1 diff --git a/apps/windoze/vb/ActiveDiathekeDemo/ADDemo.vbw b/apps/windoze/vb/ActiveDiathekeDemo/ADDemo.vbw new file mode 100644 index 0000000..5a10421 --- /dev/null +++ b/apps/windoze/vb/ActiveDiathekeDemo/ADDemo.vbw @@ -0,0 +1 @@ +MainWindow = 154, 178, 687, 626, C, 7, 25, 778, 606, C |