aboutsummaryrefslogtreecommitdiffstats
path: root/apps/windoze/vb/ActiveDiathekeDemo/ADDemo.frm
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