blob: c07b35678e5365d13aca89dcab1244ea890fa80c (
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
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
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
|
