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
|
object Form1: TForm1
Left = 485
Height = 667
Top = 50
Width = 531
BorderStyle = bsSingle
Caption = 'Deadly Mushrooms by Jurassic Pork'
ClientHeight = 667
ClientWidth = 531
Icon.Data = {
BE1000000000010001002020000001002000A810000016000000280000002000
000040000000010020000000000000100000120B0000120B0000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
00000000000000000000000000000D1212124E686A6C77A1A5A880AFB4B86D95
999C2C3C3D3E0000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
00000000000001010101506A6D6EA8E5EBF2A2E7F3FF96E1F0FF92DFEFFF96E2
F0FFA4E9F4FE5774777900000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000006D909496ABEBF6FF97E0F0FF8DDEEFFF89DDEEFF88DDEEFF8BDE
EEFF94DFEFFFA7E5F0FB141A1B1B000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
00004358595BADEBF6FF96DFEFFF8ADDEEFF86DDEEFF8EE5F3FF96ECF6FF9DEF
F8FFA7F1F9FFB2F0F8FF3B4D4E50000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000406
0606A0D6DCE29AE0F0FF89DDEDFF84DEEEFF92ECF6FF9BEFF8FFA2F1F9FFA8F2
F9FFB1F3FAFFBAF5FBFF35454647000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000004054
5657A9E9F4FF8FDEEEFF82DCEEFF8DEAF5FF98EEF7FFA5F1F9FFAFF3FAFFB5F4
FAFFBAF5FBFFBCF2F7FC0F141414000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
00000000000000000000000000000000000000000000000000000000000083AD
B2B69BE1F0FF86DCEDFF89E6F3FF94EDF7FFA3F1F9FFB0F3FAFFB9F5FBFFBDF6
FBFFBEF6FBFF88B2B4B800000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
00000000000000000000000000000000000000000000000000000E131314ABE8
F1FA91DEEEFF85DFEFFF90EDF7FF9EEFF8FFAFF3FAFFB9F5FBFFBEF6FBFFBFF6
FBFFBEF4F9FE2E3B3C3D00000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
000000000000000000000000000000000000000000000000000048606364A1E6
F2FF88DDEEFF87E6F3FF94EEF8FFA8F2F9FFB6F4FBFFBDF6FBFFBFF6FBFFBFF6
FBFF77989C9E0000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
00000000000000000000000000000000000000000000000000007EABB0B694DF
EFFF81DCEDFF8AEBF5FF9AEFF8FFAFF3F9FFBAF5FBFFBEF6FBFFBFF6FBFFA0CD
D2D50A0C0C0D0000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000004050506A3E2EAF48ADC
ECFF7FE0EFFF8AEBF5FF9FF0F8FFB3F4FAFFBCF6FBFFBEF6FBFFAEE0E4E91A21
2222000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
00000000000000000000000000000000000000000000243133349FE6F2FF80D5
E7FF7FE2EFFF8EEBF5FFA6F1F9FFB6F4FAFFBCF6FBFFB4E7EBF0253031320000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
00000000000000000000000000000000000000000000455F616394DEEDFF7BD3
E4FF81E2EDFF96ECF6FFADF3FAFFB9F5FBFFB6ECF1F52E3B3C3D000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
000000000000000000000000000000000000000000005D84878D89D6E7FF7AD4
E2FF88E4EEFFA0EFF7FFB2F4FAFFB9F2F8FD394B4C4D00000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000072A4ABB381D1E2FF7FD9
E5FF91E8F2FFA8F2F9FFB6F4FAFF5C797C7E0000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
000000000000000000000000000000000000000000000000000001010B0D0302
181D0404171B05060C0E0000000000000000000000007AB9C5D77ACDDEFF83DE
E9FF9AEDF5FFAEF3FAFF8CBBBEC3020303030000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
00000000000000000000000000000000000032404E516D89C3D40F0EC4FE100F
C6FF1312C7FF1A1AC8FE2425C2F01718A8D50B0D85B57FC6DCF96DC0D6FF81DA
E8FF9CEBF5FFA5E5EBF219212122000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
00000000000000000000000000003443535790BCEBFE6F9DD8FF0A0AAEFF0D0F
8FFF0E117EFF090C78FF060774FF11117BFF131C93FF79C5DAFF6ABFD4FF7ED4
E6FF94DFEFFF4B62B7C70807363A000001010000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
00000000000000000000090C10118DB5E1EE71A0D9FF567BCAFF10119AFF0A0D
6FFF02056AFF000064FF000059FF00004FFF243778FF70BED4FF6DC2D6FF85D7
E9FF72A7D6FF1415B8FF1C1AD7FF2323C3D93F4F7074090B0D0D000000000000
0000000000000000000000000000000000000000000000000000000000000000
000000000000000000003F50666B85B2E5FF6793D2FF1A23A9FF1414A0FF0B0D
6AFF01035FFF000056FF00004AFF000042FF365486FF6AB9D1FF75CADCFF8CDA
EBFF23348FFF050878FF090C7EFF12149BFF2529C2FF576AD6EB2B336E740101
0505000000000000000000000000000000000000000000000000000000000000
00000000000000000000556B9CA65574D0FF141BA9FF050499FF04049AFF2020
9FFF0C0E67FF000050FF000042FF000038FF487497FF64B3C9FF78C9DAFF71AD
CDFF020466FF020469FF070A70FF0D1076FF10127AFF101288FF1A19CCFF1D19
C1D10403191B0000000000000000000000000000000000000000000000000000
000000000000000000000F0D9FBD0909B1FF05059DFF040393FF030392FF0403
9AFF0B0AA9FF0B0B96FF060574FF050657FF5B99B2FF5AA5B8FF6FBBCBFF3D5F
92FF000054FF000057FF01035EFF040664FF040769FF06096FFF1415B1FF211E
E6FF1916A6B30000000000000000000000000000000000000000000000000000
000000000000000000000F0C9BBB0908AFFF05049AFF030390FF03028DFF0302
91FF04039AFF0505A3FF0707ABFF0C0BBBFF1010BFFF2030BBFF3C5DC4FF1B26
8FFF09096AFF13136CFF141470FF19197CFF1C1C92FF1616B3FF1F1DE1FF2622
EDFF231FE9FB02020E0F00000000000000000000000000000000000000000000
000000000000000000000C0C859F0A09B3FF05049BFF03038EFF03028AFF0202
8CFF030291FF040397FF05059FFF0908B4FF0C0BBFFF110FCDFF1412D3FF1715
D6FF1817D7FF1918D9FF1C1ADCFF1E1CE0FF211EE7FF2522EEFF312FEFFF7788
F4FF7F9DF5FF21293E4100000000000000000000000000000000000000000000
00000000000000000000090856671517C0FF2A3BB1FF2B3CA8FF101693FF0202
8AFF02028DFF03028FFF030391FF0605A6FF0908B6FF3039D1FF6C86EAFF7897
F1FF5A6CF0FF2320EBFF211EECFF231FECFF2420EDFF3A38F2FFA1BBF8FFB4D6
F9FFA1CCF8FF303D4B4D00000000000000000000000000000000000000000000
000000000000000000000303131684AAE4F96D9DD5FF6D9CD2FF6C9ACFFF374D
ACFF02028CFF02028DFF03028FFF040499FF313DC4FF9AC5F1FF9DC8F4FF9EC9
F7FF9FCAF8FF667DF2FF221EECFF231FEDFF312CF3FF909DF9FFC2DEFBFFBADA
FAFFA2CCF8FF1920292A00000000000000000000000000000000000000000000
00000000000000000000000000005971969F7AA9DEFF6D9CD4FF6D9CD2FF6D9C
D0FF1B269EFF030290FF030394FF04039CFF526ECAFF9AC6F2FF9DC8F5FF9ECA
F7FF9FCAF8FF93BAF7FF221EECFF312BF4FF4640F9FFC5D5FCFFCDE3FBFFBEDB
FAFF8AACD2D90000000000000000000000000000000000000000000000000000
00000000000000000000000000000E121E2089B3E4F56F9FD8FF6D9CD4FF6D9C
D3FF3145B1FF040398FF04039DFF0505A6FF3E58C5FF7EADE3FF9DC9F6FF9FCA
F7FF9FCBF8FF99C2F8FF332EF5FF4840FDFF5952FBFFC7D3FCFFD4E7FCFFBCDA
FAFF415064670000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000002F3B575C8BB7E9FE709FD8FF6D9D
D5FF2432B3FF0606A4FF0606A9FF0707B1FF1921C0FF6B98D9FF90BCEFFF9FCA
F8FFA5CEF8FF95A5FBFF453DFEFF544CFEFF6862FCFFA2A5FBFFD0E6FCFF6E81
9DA1010101010000000000000000000000000000000000000000000000000000
000000000000000000000000000000000000000000002B36515683A9DCEC6F96
DEFF0E0FB7FF0A0AB3FF0B0AB6FF0C0BBDFF0E0EC4FF242CCEFF556EE1FF748C
F6FF7279F9FF403AFAFF453EFCFF5C56FCFF716BFAFF5E59ECF4444C70730101
0101000000000000000000000000000000000000000000000000000000000000
000000000000000000000000000000000000000000000000000004050C0E1518
535D0D0C7E950F0D96B5110FAACE1413C7ED1816D8FF1A18D8FF221FE5FF2D28
F2FF332DF5FF3832F7FF443EF9FF4741EEF528258D920706191A000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
000000000000000000000000000000000000030316190A09424812106D751A17
8D951E1A989F201B919817156266050513130000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000FFFFE07FFFFF803FFFFF801FFFFF001FFFFE001FFFFE001FFFFE003FFFFC
003FFFFC007FFFFC007FFFF800FFFFF801FFFFF803FFFFF807FFFFF80FFFFC38
0FFFF0001FFFE0000FFFC00003FFC00000FFC000007FC000007FC000003FC000
003FC000003FC000003FE000007FE000007FF000007FF80000FFFC0003FFFFF0
0FFF
}
OnClose = FormClose
OnCreate = FormCreate
Position = poScreenCenter
LCLVersion = '1.3'
object DBNavigator1: TDBNavigator
Left = 6
Height = 35
Top = 6
Width = 354
BeforeAction = DBNavigator1BeforeAction
BevelOuter = bvNone
ChildSizing.EnlargeHorizontal = crsScaleChilds
ChildSizing.EnlargeVertical = crsScaleChilds
ChildSizing.ShrinkHorizontal = crsScaleChilds
ChildSizing.ShrinkVertical = crsScaleChilds
ChildSizing.Layout = cclLeftToRightThenTopToBottom
ChildSizing.ControlsPerLine = 100
ClientHeight = 35
ClientWidth = 354
DataSource = Datasource1
Options = []
TabOrder = 0
end
object BitBtn1: TBitBtn
Left = 429
Height = 32
Top = 6
Width = 93
DefaultCaption = True
Kind = bkClose
ModalResult = 11
TabOrder = 1
end
object DBText1: TDBText
Left = 88
Height = 24
Top = 48
Width = 240
Alignment = taCenter
AutoSize = False
DataField = 'Common_Name'
DataSource = Datasource1
Font.CharSet = ANSI_CHARSET
Font.Height = -19
Font.Name = 'Arial'
Font.Pitch = fpVariable
Font.Quality = fqDraft
Font.Style = [fsBold]
ParentColor = False
ParentFont = False
end
object DBMemo1: TDBMemo
Left = 8
Height = 72
Top = 440
Width = 514
DataField = 'Notes'
DataSource = Datasource1
TabOrder = 2
end
object DBEdit1: TDBEdit
Left = 128
Height = 21
Top = 408
Width = 166
DataField = 'Image_Link'
DataSource = Datasource1
CharCase = ecNormal
Color = clCream
MaxLength = 255
TabOrder = 3
end
object Button1: TButton
Left = 307
Height = 22
Top = 408
Width = 21
Caption = '...'
OnClick = Button1Click
TabOrder = 4
end
object DBGrid1: TDBGrid
Left = 8
Height = 144
Top = 520
Width = 514
AlternateColor = clCream
Color = clWindow
Columns = <
item
Title.Caption = 'Common Name'
Width = 86
FieldName = 'Common_Name'
end
item
Title.Caption = 'Scientific Name'
Width = 87
FieldName = 'Scientific_Name'
end
item
Title.Caption = 'Order'
Width = 43
FieldName = 'Order'
end
item
Title.Caption = 'Genus'
Width = 45
FieldName = 'Genus'
end
item
Title.Caption = 'ID'
Width = 26
FieldName = 'ID'
end
item
Title.Caption = 'Notes'
Width = 43
FieldName = 'Notes'
end>
DataSource = Datasource1
Options = [dgEditing, dgTitles, dgIndicator, dgColumnResize, dgColumnMove, dgColLines, dgRowLines, dgTabs, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit, dgAutoSizeColumns]
Scrollbars = ssAutoBoth
TabOrder = 5
OnPrepareCanvas = DBGrid1PrepareCanvas
end
object Panel1: TPanel
Left = 8
Height = 328
Top = 72
Width = 322
BevelOuter = bvNone
BorderWidth = 2
BorderStyle = bsSingle
ClientHeight = 324
ClientWidth = 318
ParentColor = False
TabOrder = 6
object Image1: TImage
AnchorSideLeft.Control = Panel1
AnchorSideTop.Control = Panel1
AnchorSideRight.Control = Panel1
AnchorSideBottom.Control = Panel1
Left = 2
Height = 320
Top = 2
Width = 316
Center = True
Proportional = True
Stretch = True
end
end
object Panel2: TPanel
Left = 360
Height = 328
Top = 72
Width = 162
BevelOuter = bvNone
BorderWidth = 2
BorderStyle = bsSingle
ClientHeight = 324
ClientWidth = 158
ParentColor = False
TabOrder = 7
object DBImage1: TDBImage
AnchorSideLeft.Control = Panel2
AnchorSideTop.Control = Panel2
AnchorSideRight.Control = Panel2
AnchorSideBottom.Control = Panel2
Left = 2
Height = 320
Top = 2
Width = 150
Center = True
DataField = 'Picture'
DataSource = Datasource1
OnDblClick = DBImage1DblClick
Proportional = True
end
end
object Label1: TLabel
Left = 8
Height = 13
Top = 55
Width = 18
Caption = 'Link'
ParentColor = False
end
object Label2: TLabel
Left = 360
Height = 13
Top = 55
Width = 20
Caption = 'Blob'
ParentColor = False
end
object Bt_Print: TButton
Left = 360
Height = 25
Top = 406
Width = 163
Caption = 'Print all Mushrooms'
OnClick = Bt_PrintClick
TabOrder = 8
end
object Label3: TLabel
Left = 8
Height = 13
Top = 424
Width = 30
Caption = 'Note :'
ParentColor = False
end
object Datasource1: TDataSource
DataSet = SQLQuery1
OnDataChange = Datasource1DataChange
left = 232
top = 192
end
object OpenDialog1: TOpenDialog
left = 64
top = 288
end
object SQLQuery1: TSQLQuery
FieldDefs = <>
Database = SQLite3Connection1
Transaction = SQLTransaction1
SQL.Strings = (
'select * from DeadlyMushrooms'
)
Params = <>
left = 64
top = 192
end
object SQLTransaction1: TSQLTransaction
Active = False
Action = caCommitRetaining
Database = SQLite3Connection1
left = 232
top = 120
end
object SQLite3Connection1: TSQLite3Connection
Connected = False
LoginPrompt = False
DatabaseName = 'ImageTest.db3'
KeepConnection = False
Transaction = SQLTransaction1
LogEvents = []
Options = []
left = 64
top = 120
end
object frReport1: TfrReport
Dataset = frDBDataSet1
DefaultCopies = 0
InitialZoom = pzDefault
Options = []
PreviewButtons = [pbZoom, pbLoad, pbSave, pbPrint, pbFind, pbHelp, pbExit]
DataType = dtDataSet
OnEnterRect = frReport1EnterRect
left = 384
top = 344
end
object frDBDataSet1: TfrDBDataSet
DataSet = SQLQuery1
left = 464
top = 344
end
object IBConnection1: TIBConnection
Connected = False
LoginPrompt = False
KeepConnection = False
left = 152
top = 120
end
end
|
