-
Notifications
You must be signed in to change notification settings - Fork 10
Expand file tree
/
Copy pathclassVariables.rbbas
More file actions
423 lines (351 loc) · 8.49 KB
/
classVariables.rbbas
File metadata and controls
423 lines (351 loc) · 8.49 KB
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
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
380
381
382
383
384
385
386
387
388
389
390
391
392
393
394
395
396
397
398
399
400
401
402
403
404
405
406
407
408
409
410
411
412
413
414
415
416
417
418
419
420
421
422
423
#tag Class
Protected Class classVariables
#tag Method, Flags = &h0
Sub ExportImageToFile(TheFolder as FolderItem)
'// Write out the blob
'
'dim writeFile as FolderItem
'writeFile = TheFolder.Child(FileName)
'If writeFile <> Nil Then
'dim writeStream as BinaryStream = BinaryStream.Create(writeFile, true)
'writeStream.Write(ImageData)
'writeStream.Close
'End If
'
'
'
// Save image as jpg
dim writeFile as FolderItem
writeFile = TheFolder.Child(ActualFileName)
If writeFile <> Nil Then
if writeFile.Exists = false then
TheImage.Save(writeFile, Picture.SaveAsJPEG, Picture.QualityHigh)
end if
End If
End Sub
#tag EndMethod
#tag Method, Flags = &h0
Function GetDefaultDictAsDict() As Dictionary
dim pairsLoop as integer
dim d as new Dictionary
dim s as string
if DefaultVal.CountFields("%$bp$%") > 0 then
for pairsLoop = 1 to DefaultVal.CountFields("%$bp$%")
s = DefaultVal.NthField("%$bp$%", pairsLoop)
if s.CountFields("%$kv$%") > 1 then
d.Value(s.NthField("%$kv$%",1)) = s.NthField("%$kv$%",2)
end if
next
end if
Return d
// Sep between Key/Value : %$kv$%
// Sep between pairs : %$bp$%
End Function
#tag EndMethod
#tag Method, Flags = &h0
Function ISCClassLocalAndroidName() As string
dim s as string
s = "iscV" + Name
Return s
End Function
#tag EndMethod
#tag Method, Flags = &h0
Function ISCClassLocalFlexName() As string
dim s as string
s = "iscV" + Name
Return s
End Function
#tag EndMethod
#tag Method, Flags = &h0
Function ISCClassLocalPythonName() As string
dim s as string
s = "iscV" + Name
Return s
End Function
#tag EndMethod
#tag Method, Flags = &h0
Function ISCiOSName() As string
dim s as string
s = "iscV" + Name
Return s
End Function
#tag EndMethod
#tag Method, Flags = &h0
Function ISCPythonName() As String
dim s as string
s = "thisiscApp1.iscV" + Name
Return s
End Function
#tag EndMethod
#tag Method, Flags = &h0
Sub SetDefaultDictFromDict(theDict as Dictionary)
// Sep between Key/Value : %$kv$%
// Sep between pairs : %$bp$%
dim pairsLoop as integer
dim finalString as string
dim thisPair as string
if theDict.Count > 0 then
for pairsLoop = 0 to (theDict.Count - 1)
thisPair = theDict.Key(pairsLoop).StringValue + "%$bp$%" + theDict.Value(theDict.Key(pairsLoop)).StringValue
if finalString = "" then
finalString = thisPair
else
finalString = finalString + "%$bp$%" + thisPair
end if
next
end if
End Sub
#tag EndMethod
#tag ComputedProperty, Flags = &h0
#tag Getter
Get
Return name + ".jpg"
End Get
#tag EndGetter
ActualFileName As string
#tag EndComputedProperty
#tag ComputedProperty, Flags = &h0
#tag Getter
Get
if mDefaultVal = "" then
if Type = "Number" then
mDefaultVal = "0"
end if
else
end if
Return mDefaultVal
End Get
#tag EndGetter
#tag Setter
Set
mDefaultVal = value
End Set
#tag EndSetter
DefaultVal As String
#tag EndComputedProperty
#tag Property, Flags = &h0
FileName As string
#tag EndProperty
#tag ComputedProperty, Flags = &h0
#tag Getter
Get
Return "isc" + ActualFileName.ReplaceAll(".","")
End Get
#tag EndGetter
FlexEmbedName As string
#tag EndComputedProperty
#tag Property, Flags = &h0
ImageData As string
#tag EndProperty
#tag ComputedProperty, Flags = &h0
#tag Getter
Get
if myioskey1.Len > 0 then
Return myioskey1
else
dim i as integer
dim r as new Random
i = r.InRange(11111111,99999999)
myioskey1 = str(i)
i = r.InRange(11111111,99999999)
myioskey1 = myioskey1 + str(i)
i = r.InRange(11111111,99999999)
myioskey1 = myioskey1 + str(i)
Return myioskey1
end if
End Get
#tag EndGetter
iOSKey1 As string
#tag EndComputedProperty
#tag ComputedProperty, Flags = &h0
#tag Getter
Get
if myioskey2.Len > 0 then
Return myioskey2
else
dim i as integer
dim r as new Random
i = r.InRange(11111111,99999999)
myioskey2 = str(i)
i = r.InRange(11111111,99999999)
myioskey2 = myioskey2 + str(i)
i = r.InRange(11111111,99999999)
myioskey2 = myioskey2 + str(i)
Return myioskey2
end if
End Get
#tag EndGetter
iOSKey2 As string
#tag EndComputedProperty
#tag Property, Flags = &h21
Private mDefaultVal As string
#tag EndProperty
#tag Property, Flags = &h0
myioskey1 As string
#tag EndProperty
#tag Property, Flags = &h0
myioskey2 As string
#tag EndProperty
#tag Property, Flags = &h0
Name As string
#tag EndProperty
#tag ComputedProperty, Flags = &h0
#tag Getter
Get
if mDefaultVal.InStr("*") > -1 then
Return Val(NthField(mDefaultVal,"*",1))
end if
End Get
#tag EndGetter
#tag Setter
Set
dim curHeight as integer
dim curWidth as integer
if mDefaultVal.InStr("*") > -1 then
curHeight = me.PictureHeight
curWidth = me.PictureWidth
end if
DefaultVal = Str(value) + "*" + str(curWidth)
End Set
#tag EndSetter
PictureHeight As Integer
#tag EndComputedProperty
#tag ComputedProperty, Flags = &h0
#tag Getter
Get
if mDefaultVal.InStr("*") > -1 then
Return Val(NthField(mDefaultVal,"*",2))
end if
End Get
#tag EndGetter
#tag Setter
Set
dim curHeight as integer
dim curWidth as integer
if mDefaultVal.InStr("*") > -1 then
curHeight = me.PictureHeight
curWidth = me.PictureWidth
end if
DefaultVal = Str(curHeight) + "*" + str(value)
End Set
#tag EndSetter
PictureWidth As Integer
#tag EndComputedProperty
#tag Property, Flags = &h0
TheImage As picture
#tag EndProperty
#tag Property, Flags = &h0
Type As string
#tag EndProperty
#tag ViewBehavior
#tag ViewProperty
Name="ActualFileName"
Group="Behavior"
Type="string"
EditorType="MultiLineEditor"
#tag EndViewProperty
#tag ViewProperty
Name="DefaultVal"
Group="Behavior"
Type="String"
EditorType="MultiLineEditor"
#tag EndViewProperty
#tag ViewProperty
Name="FileName"
Group="Behavior"
Type="string"
EditorType="MultiLineEditor"
#tag EndViewProperty
#tag ViewProperty
Name="FlexEmbedName"
Group="Behavior"
Type="string"
EditorType="MultiLineEditor"
#tag EndViewProperty
#tag ViewProperty
Name="ImageData"
Group="Behavior"
Type="string"
EditorType="MultiLineEditor"
#tag EndViewProperty
#tag ViewProperty
Name="Index"
Visible=true
Group="ID"
InitialValue="-2147483648"
InheritedFrom="Object"
#tag EndViewProperty
#tag ViewProperty
Name="iOSKey1"
Group="Behavior"
Type="string"
EditorType="MultiLineEditor"
#tag EndViewProperty
#tag ViewProperty
Name="iOSKey2"
Group="Behavior"
Type="string"
EditorType="MultiLineEditor"
#tag EndViewProperty
#tag ViewProperty
Name="Left"
Visible=true
Group="Position"
InitialValue="0"
InheritedFrom="Object"
#tag EndViewProperty
#tag ViewProperty
Name="myioskey1"
Group="Behavior"
Type="string"
EditorType="MultiLineEditor"
#tag EndViewProperty
#tag ViewProperty
Name="myioskey2"
Group="Behavior"
Type="string"
EditorType="MultiLineEditor"
#tag EndViewProperty
#tag ViewProperty
Name="Name"
Visible=true
Group="ID"
InheritedFrom="Object"
#tag EndViewProperty
#tag ViewProperty
Name="PictureHeight"
Group="Behavior"
Type="Integer"
#tag EndViewProperty
#tag ViewProperty
Name="PictureWidth"
Group="Behavior"
Type="Integer"
#tag EndViewProperty
#tag ViewProperty
Name="Super"
Visible=true
Group="ID"
InheritedFrom="Object"
#tag EndViewProperty
#tag ViewProperty
Name="TheImage"
Group="Behavior"
Type="picture"
#tag EndViewProperty
#tag ViewProperty
Name="Top"
Visible=true
Group="Position"
InitialValue="0"
InheritedFrom="Object"
#tag EndViewProperty
#tag ViewProperty
Name="Type"
Group="Behavior"
Type="string"
EditorType="MultiLineEditor"
#tag EndViewProperty
#tag EndViewBehavior
End Class
#tag EndClass