ViewVC Help
View File | Revision Log | Show Annotations | Download File | View Changeset | Root Listing
root/public/ibx/branches/journaling/examples/ibtreeview/Unit1.lfm
Revision: 362
Committed: Tue Dec 7 13:27:39 2021 UTC (2 years, 4 months ago) by tony
File size: 25929 byte(s)
Log Message: 
initiate test release

File Contents

# User Rev Content
1 tony 21 object Form1: TForm1
2 tony 143 Left = 489
3 tony 21 Height = 438
4 tony 143 Top = 219
5 tony 21 Width = 722
6     Caption = 'TIBTreeView Example'
7     ClientHeight = 438
8     ClientWidth = 722
9 tony 68 DefaultMonitor = dmPrimary
10 tony 21 OnClose = FormClose
11     OnShow = FormShow
12 tony 68 Position = poScreenCenter
13 tony 311 LCLVersion = '2.0.11.0'
14 tony 21 object Panel1: TPanel
15     Left = 11
16     Height = 367
17     Top = 32
18     Width = 682
19     Anchors = [akTop, akLeft, akRight, akBottom]
20     BevelOuter = bvNone
21     ClientHeight = 367
22     ClientWidth = 682
23     TabOrder = 0
24     object IBTreeView1: TIBTreeView
25     Left = 0
26     Height = 367
27     Top = 0
28     Width = 280
29     Align = alLeft
30     TextField = 'DEPARTMENT'
31     DataSource = DataSource1
32     DragMode = dmAutomatic
33     Images = ImageList1
34     HasChildField = 'CHILDCOUNT'
35 tony 143 ImageIndexField = 'IMAGEINDEX'
36     SelectedIndexField = 'IMAGEINDEX'
37 tony 21 KeyField = 'DEPT_NO'
38     ParentField = 'HEAD_DEPT'
39     PopupMenu = PopupMenu1
40     RelationName = 'A'
41     ScrollBars = ssAutoBoth
42     TabOrder = 0
43     OnDragDrop = IBTreeView1DragDrop
44     OnDragOver = IBTreeView1DragOver
45     end
46     object Splitter1: TSplitter
47     Left = 280
48     Height = 367
49     Top = 0
50     Width = 5
51     end
52     object Panel2: TPanel
53     Left = 285
54     Height = 367
55     Top = 0
56     Width = 397
57     Align = alClient
58     BevelInner = bvLowered
59     BevelOuter = bvLowered
60     ClientHeight = 367
61     ClientWidth = 397
62     TabOrder = 2
63     object Panel3: TPanel
64     Left = 2
65     Height = 190
66     Top = 2
67     Width = 393
68     Align = alTop
69     BevelOuter = bvNone
70     ClientHeight = 190
71     ClientWidth = 393
72     TabOrder = 0
73     object Label2: TLabel
74     Left = 11
75 tony 311 Height = 15
76 tony 21 Top = 16
77 tony 311 Width = 25
78 tony 21 Caption = 'Title'
79     ParentColor = False
80     end
81     object DBEdit1: TDBEdit
82     Left = 11
83 tony 315 Height = 24
84 tony 21 Top = 31
85     Width = 373
86     DataField = 'DEPARTMENT'
87     DataSource = DataSource1
88     Anchors = [akTop, akLeft, akRight]
89     CharCase = ecNormal
90     MaxLength = 0
91     TabOrder = 0
92     end
93     object Label3: TLabel
94     Left = 13
95 tony 311 Height = 15
96 tony 21 Top = 71
97 tony 315 Width = 50
98 tony 21 Caption = 'Location'
99     ParentColor = False
100     end
101     object DBEdit4: TDBEdit
102     Left = 13
103 tony 315 Height = 24
104 tony 21 Top = 86
105     Width = 179
106     DataField = 'LOCATION'
107     DataSource = DataSource1
108     CharCase = ecNormal
109     MaxLength = 0
110     TabOrder = 1
111     end
112     object Label4: TLabel
113     Left = 219
114 tony 311 Height = 15
115 tony 21 Top = 71
116 tony 311 Width = 44
117 tony 21 Caption = 'Budget'
118     ParentColor = False
119     end
120     object DBEdit2: TDBEdit
121     Left = 219
122 tony 315 Height = 24
123 tony 21 Top = 86
124     Width = 165
125     DataField = 'BUDGET'
126     DataSource = DataSource1
127     Anchors = [akTop, akLeft, akRight]
128     CharCase = ecNormal
129     MaxLength = 0
130     TabOrder = 2
131     end
132     object Label5: TLabel
133     Left = 219
134 tony 311 Height = 15
135 tony 21 Top = 121
136 tony 311 Width = 61
137 tony 21 Caption = 'Phone No.'
138     ParentColor = False
139     end
140     object DBEdit3: TDBEdit
141     Left = 219
142 tony 315 Height = 24
143 tony 21 Top = 136
144     Width = 165
145     DataField = 'PHONE_NO'
146     DataSource = DataSource1
147     Anchors = [akTop, akLeft, akRight]
148     CharCase = ecNormal
149     MaxLength = 0
150     TabOrder = 3
151     end
152     object Label6: TLabel
153     Left = 12
154 tony 311 Height = 15
155 tony 21 Top = 121
156 tony 311 Width = 52
157 tony 21 Caption = 'Manager'
158     ParentColor = False
159     end
160     object IBLookupComboEditBox1: TIBLookupComboEditBox
161     Left = 13
162 tony 311 Height = 27
163 tony 21 Top = 136
164     Width = 180
165     DataField = 'MNGR_NO'
166     DataSource = DataSource1
167     KeyField = 'EMP_NO'
168     ListField = 'FULL_NAME'
169     ListFieldIndex = 0
170     ListSource = DataSource2
171     LookupCache = False
172     TabOrder = 4
173     AutoInsert = False
174     AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
175 tony 311 ItemHeight = 0
176 tony 21 end
177     object Label7: TLabel
178     Left = 12
179 tony 311 Height = 15
180 tony 21 Top = 172
181 tony 311 Width = 115
182 tony 21 Caption = 'Departmental Staff'
183     ParentColor = False
184     end
185     end
186     object IBDynamicGrid1: TIBDynamicGrid
187     Left = 16
188     Height = 159
189     Top = 192
190     Width = 365
191     Align = alClient
192     BorderSpacing.Left = 14
193     BorderSpacing.Right = 14
194     BorderSpacing.Bottom = 14
195     Color = clWindow
196     Columns = <
197     item
198     Title.Alignment = taCenter
199     Title.Caption = 'Name'
200     Width = 100
201     FieldName = 'FULL_NAME'
202     AutoSizeColumn = True
203     InitialSortColumn = False
204     DBLookupProperties.ItemHeight = 0
205     DBLookupProperties.ItemWidth = 0
206     DBLookupProperties.AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
207     end
208     item
209     Title.Alignment = taCenter
210     Title.Caption = 'Job Code'
211     Width = 60
212     FieldName = 'JOB_CODE'
213     AutoSizeColumn = False
214     InitialSortColumn = False
215     DBLookupProperties.ItemHeight = 0
216     DBLookupProperties.ItemWidth = 0
217     DBLookupProperties.AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
218     end
219     item
220     Title.Alignment = taCenter
221     Title.Caption = 'Location'
222     Width = 70
223     FieldName = 'JOB_COUNTRY'
224     AutoSizeColumn = False
225     InitialSortColumn = False
226     DBLookupProperties.ItemHeight = 0
227     DBLookupProperties.ItemWidth = 0
228     DBLookupProperties.AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
229     end
230     item
231     Title.Alignment = taCenter
232     Title.Caption = 'Salary'
233     Width = 100
234     FieldName = 'SALARY'
235     AutoSizeColumn = False
236     InitialSortColumn = False
237     DBLookupProperties.ItemHeight = 0
238     DBLookupProperties.ItemWidth = 0
239     DBLookupProperties.AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
240     end>
241     DataSource = DataSource3
242     Scrollbars = ssAutoVertical
243     TabOrder = 1
244     ExpandEditorPanelBelowRow = False
245     Descending = False
246     EditorBorderStyle = bsSingle
247     DefaultPositionAtEnd = False
248     end
249     end
250     end
251     object Label1: TLabel
252     Left = 11
253 tony 311 Height = 15
254 tony 21 Top = 17
255 tony 311 Width = 79
256 tony 21 Caption = 'Departments'
257     ParentColor = False
258     end
259     object CancelBtn: TButton
260     Left = 616
261     Height = 25
262     Top = 408
263     Width = 75
264     Anchors = [akRight, akBottom]
265     Caption = 'Cancel'
266     OnClick = CancelBtnClick
267     TabOrder = 1
268     end
269     object SaveBtn: TButton
270     Left = 536
271     Height = 25
272     Top = 408
273     Width = 75
274     Anchors = [akRight, akBottom]
275     Caption = 'Save'
276     OnClick = SaveBtnClick
277     TabOrder = 2
278     end
279     object IBDatabase1: TIBDatabase
280 tony 315 Connected = False
281 tony 68 CreateIfNotExists = False
282 tony 21 AllowStreamedConnected = False
283 tony 27 DatabaseName = 'localhost:employee'
284 tony 21 Params.Strings = (
285 tony 33 'lc_ctype=UTF8'
286 tony 21 'user_name=SYSDBA'
287     )
288     DefaultTransaction = IBTransaction1
289     IdleTimer = 0
290 tony 23 SQLHourGlass = False
291 tony 21 TraceFlags = []
292 tony 45 UseDefaultSystemCodePage = False
293 tony 21 left = 24
294     top = 96
295     end
296     object IBTransaction1: TIBTransaction
297     Active = False
298 tony 27 Params.Strings = (
299     'read_committed'
300     'rec_version'
301     'nowait'
302     )
303 tony 21 left = 24
304     top = 136
305     end
306     object Departments: TIBDataSet
307 tony 68 AllowAutoActivateTransaction = False
308 tony 21 Database = IBDatabase1
309     Transaction = IBTransaction1
310     AfterDelete = DepartmentsAfterDelete
311     AfterEdit = DepartmentsAfterDelete
312     AfterInsert = DepartmentsAfterInsert
313     BufferChunks = 1000
314     CachedUpdates = False
315 tony 311 CaseSensitiveParameterNames = False
316     EnableStatistics = False
317 tony 21 DeleteSQL.Strings = (
318     'Delete From DEPARTMENT A'
319     'Where A.DEPT_NO = :DEPT_NO'
320     )
321     InsertSQL.Strings = (
322     'Insert Into DEPARTMENT(DEPT_NO, DEPARTMENT, HEAD_DEPT, MNGR_NO, BUDGET, LOCATION, PHONE_NO)'
323     'Values(:DEPT_NO, :DEPARTMENT, :HEAD_DEPT, :MNGR_NO, :BUDGET, :LOCATION, :PHONE_NO)'
324     )
325     RefreshSQL.Strings = (
326     'Select A.DEPT_NO, A.DEPARTMENT, A.HEAD_DEPT, A.MNGR_NO, A.BUDGET, A.LOCATION, A.PHONE_NO,'
327 tony 143 'count(B.DEPT_NO) as ChildCount,'
328     'case'
329     ' when A.Budget < 500000 then 0'
330     ' when A.Budget = 500000 then 2'
331     ' else 1 end as ImageIndex'
332 tony 21 'From DEPARTMENT A'
333     'Left Outer JOIN DEPARTMENT B On B.HEAD_DEPT = A.DEPT_NO'
334     'Where A.DEPT_NO = :DEPT_NO'
335     'Group By A.DEPT_NO, A.DEPARTMENT, A.HEAD_DEPT, A.MNGR_NO, A.BUDGET, A.LOCATION, A.PHONE_NO'
336     ''
337     )
338     SelectSQL.Strings = (
339     'Select A.DEPT_NO, A.DEPARTMENT, A.HEAD_DEPT, A.MNGR_NO, A.BUDGET, A.LOCATION, A.PHONE_NO,'
340 tony 143 'count(B.DEPT_NO) as ChildCount,'
341     'case'
342     ' when A.Budget < 500000 then 0'
343     ' when A.Budget = 500000 then 2'
344     ' else 1 end as ImageIndex'
345 tony 21 'From DEPARTMENT A'
346     'Left Outer JOIN DEPARTMENT B On B.HEAD_DEPT = A.DEPT_NO'
347     'Group By A.DEPT_NO, A.DEPARTMENT, A.HEAD_DEPT, A.MNGR_NO, A.BUDGET, A.LOCATION, A.PHONE_NO'
348     'Order by Department'
349     )
350     ModifySQL.Strings = (
351     'Update DEPARTMENT A Set '#13#10' A.BUDGET = :BUDGET,'#13#10' A.DEPARTMENT = :DEPARTMENT,'#13#10' A.HEAD_DEPT = :HEAD_DEPT,'#13#10' A.LOCATION = :LOCATION,'#13#10' A.MNGR_NO = :MNGR_NO,'#13#10' A.PHONE_NO = :PHONE_NO'
352     'Where A.DEPT_NO = :OLD_DEPT_NO'
353     )
354     GeneratorField.Generator = 'EMP_NO_GEN'
355     GeneratorField.Field = 'DEPT_NO'
356     GeneratorField.ApplyOnEvent = gaeOnNewRecord
357     GenerateParamNames = False
358 tony 311 MasterDetailDelay = 0
359 tony 27 DataSetCloseAction = dcSaveChanges
360 tony 315 SQLFiltered = False
361 tony 21 AfterTransactionEnd = DepartmentsAfterTransactionEnd
362 tony 80 left = 144
363 tony 21 top = 176
364     object DepartmentsDEPT_NO: TIBStringField
365     DisplayWidth = 3
366     FieldKind = fkData
367     FieldName = 'DEPT_NO'
368     Index = 0
369     LookupCache = False
370     ProviderFlags = [pfInUpdate, pfInWhere]
371     ReadOnly = False
372     Required = True
373     Size = 3
374     end
375     object DepartmentsDEPARTMENT: TIBStringField
376     DisplayWidth = 25
377     FieldKind = fkData
378     FieldName = 'DEPARTMENT'
379     Index = 1
380     LookupCache = False
381     ProviderFlags = [pfInUpdate, pfInWhere]
382     ReadOnly = False
383     Required = True
384     Size = 25
385     end
386     object DepartmentsHEAD_DEPT: TIBStringField
387     DisplayWidth = 3
388     FieldKind = fkData
389     FieldName = 'HEAD_DEPT'
390     Index = 2
391     LookupCache = False
392     ProviderFlags = [pfInUpdate, pfInWhere]
393     ReadOnly = False
394     Required = False
395     Size = 3
396     end
397     object DepartmentsMNGR_NO: TSmallintField
398     DisplayWidth = 10
399     FieldKind = fkData
400     FieldName = 'MNGR_NO'
401     Index = 3
402     LookupCache = False
403     ProviderFlags = [pfInUpdate, pfInWhere]
404     ReadOnly = False
405     Required = False
406     end
407     object DepartmentsBUDGET: TIBBCDField
408     DisplayWidth = 18
409     FieldKind = fkData
410     FieldName = 'BUDGET'
411     Index = 4
412     LookupCache = False
413     ProviderFlags = [pfInUpdate, pfInWhere]
414     ReadOnly = False
415     Required = False
416     OnGetText = DepartmentsBUDGETGetText
417     Precision = 18
418     Currency = False
419     MaxValue = 0
420     MinValue = 0
421     Size = 2
422     end
423     object DepartmentsLOCATION: TIBStringField
424     DisplayWidth = 15
425     FieldKind = fkData
426     FieldName = 'LOCATION'
427     Index = 5
428     LookupCache = False
429     ProviderFlags = [pfInUpdate, pfInWhere]
430     ReadOnly = False
431     Required = False
432     Size = 15
433     end
434     object DepartmentsPHONE_NO: TIBStringField
435     DisplayWidth = 20
436     FieldKind = fkData
437     FieldName = 'PHONE_NO'
438     Index = 6
439     LookupCache = False
440     ProviderFlags = [pfInUpdate, pfInWhere]
441     ReadOnly = False
442     Required = False
443     end
444 tony 311 object DepartmentsIMAGEINDEX: TIBIntegerField
445 tony 21 FieldKind = fkData
446 tony 311 FieldName = 'IMAGEINDEX'
447 tony 21 Index = 7
448     LookupCache = False
449     ProviderFlags = [pfInUpdate, pfInWhere]
450     ReadOnly = False
451     Required = True
452     end
453 tony 311 object DepartmentsCHILDCOUNT: TIBLargeIntField
454 tony 143 FieldKind = fkData
455 tony 311 FieldName = 'CHILDCOUNT'
456 tony 143 Index = 8
457     LookupCache = False
458     ProviderFlags = [pfInUpdate, pfInWhere]
459     ReadOnly = False
460     Required = True
461     end
462 tony 21 end
463     object DataSource1: TDataSource
464     DataSet = Departments
465     left = 24
466     top = 176
467     end
468     object ApplicationProperties1: TApplicationProperties
469     OnIdle = ApplicationProperties1Idle
470     left = 24
471     top = 48
472     end
473     object Managers: TIBQuery
474 tony 68 AllowAutoActivateTransaction = False
475 tony 21 Database = IBDatabase1
476     Transaction = IBTransaction1
477     BufferChunks = 1000
478     CachedUpdates = False
479 tony 311 CaseSensitiveParameterNames = False
480     EnableStatistics = False
481 tony 21 GenerateParamNames = False
482     GeneratorField.ApplyOnEvent = gaeOnNewRecord
483 tony 311 MasterDetailDelay = 0
484 tony 21 SQL.Strings = (
485     'Select A.EMP_NO, A.FULL_NAME From EMPLOYEE A'
486     'order by 2'
487     )
488     Params = <>
489 tony 315 SQLFiltered = False
490 tony 27 DataSetCloseAction = dcDiscardChanges
491 tony 80 left = 144
492     top = 224
493 tony 21 end
494     object DataSource2: TDataSource
495     DataSet = Managers
496     left = 24
497     top = 221
498     end
499     object Staff: TIBQuery
500 tony 68 AllowAutoActivateTransaction = False
501 tony 21 Database = IBDatabase1
502     Transaction = IBTransaction1
503     BufferChunks = 1000
504     CachedUpdates = False
505 tony 311 CaseSensitiveParameterNames = False
506 tony 21 DataSource = DataSource1
507 tony 311 EnableStatistics = False
508 tony 21 GenerateParamNames = False
509     GeneratorField.ApplyOnEvent = gaeOnNewRecord
510 tony 311 MasterDetailDelay = 0
511 tony 21 SQL.Strings = (
512     'Select A.EMP_NO, A.FIRST_NAME, A.LAST_NAME, A.PHONE_EXT, A.HIRE_DATE, A.DEPT_NO, A.JOB_CODE, A.JOB_GRADE, A.JOB_COUNTRY, A.SALARY, A.FULL_NAME From EMPLOYEE A'
513     'Where A.DEPT_NO =:DEPT_NO'
514     )
515     Params = <
516     item
517     DataType = ftUnknown
518     Name = 'DEPT_NO'
519     ParamType = ptInput
520     end>
521 tony 315 SQLFiltered = False
522 tony 27 DataSetCloseAction = dcDiscardChanges
523 tony 80 left = 144
524     top = 272
525 tony 21 ParamData = <
526     item
527     DataType = ftUnknown
528     Name = 'DEPT_NO'
529     ParamType = ptInput
530     end>
531     object StaffEMP_NO: TSmallintField
532     DisplayWidth = 10
533     FieldKind = fkData
534     FieldName = 'EMP_NO'
535     Index = 0
536     LookupCache = False
537     ProviderFlags = [pfInUpdate, pfInWhere]
538     ReadOnly = False
539     Required = True
540     end
541     object StaffFIRST_NAME: TIBStringField
542     DisplayWidth = 15
543     FieldKind = fkData
544     FieldName = 'FIRST_NAME'
545     Index = 1
546     LookupCache = False
547     ProviderFlags = [pfInUpdate, pfInWhere]
548     ReadOnly = False
549     Required = True
550     Size = 15
551     end
552     object StaffLAST_NAME: TIBStringField
553     DisplayWidth = 20
554     FieldKind = fkData
555     FieldName = 'LAST_NAME'
556     Index = 2
557     LookupCache = False
558     ProviderFlags = [pfInUpdate, pfInWhere]
559     ReadOnly = False
560     Required = True
561     end
562     object StaffPHONE_EXT: TIBStringField
563     DisplayWidth = 4
564     FieldKind = fkData
565     FieldName = 'PHONE_EXT'
566     Index = 3
567     LookupCache = False
568     ProviderFlags = [pfInUpdate, pfInWhere]
569     ReadOnly = False
570     Required = False
571     Size = 4
572     end
573     object StaffHIRE_DATE: TDateTimeField
574     DisplayWidth = 10
575     FieldKind = fkData
576     FieldName = 'HIRE_DATE'
577     Index = 4
578     LookupCache = False
579     ProviderFlags = [pfInUpdate, pfInWhere]
580     ReadOnly = False
581     Required = True
582     end
583     object StaffDEPT_NO: TIBStringField
584     DisplayWidth = 3
585     FieldKind = fkData
586     FieldName = 'DEPT_NO'
587     Index = 5
588     LookupCache = False
589     ProviderFlags = [pfInUpdate, pfInWhere]
590     ReadOnly = False
591     Required = True
592     Size = 3
593     end
594     object StaffJOB_CODE: TIBStringField
595     DisplayWidth = 5
596     FieldKind = fkData
597     FieldName = 'JOB_CODE'
598     Index = 6
599     LookupCache = False
600     ProviderFlags = [pfInUpdate, pfInWhere]
601     ReadOnly = False
602     Required = True
603     Size = 5
604     end
605     object StaffJOB_GRADE: TSmallintField
606     DisplayWidth = 10
607     FieldKind = fkData
608     FieldName = 'JOB_GRADE'
609     Index = 7
610     LookupCache = False
611     ProviderFlags = [pfInUpdate, pfInWhere]
612     ReadOnly = False
613     Required = True
614     end
615     object StaffJOB_COUNTRY: TIBStringField
616     DisplayWidth = 15
617     FieldKind = fkData
618     FieldName = 'JOB_COUNTRY'
619     Index = 8
620     LookupCache = False
621     ProviderFlags = [pfInUpdate, pfInWhere]
622     ReadOnly = False
623     Required = True
624     Size = 15
625     end
626     object StaffSALARY: TIBBCDField
627     DisplayWidth = 18
628     FieldKind = fkData
629     FieldName = 'SALARY'
630     Index = 9
631     LookupCache = False
632     ProviderFlags = [pfInUpdate, pfInWhere]
633     ReadOnly = False
634     Required = True
635     OnGetText = DepartmentsBUDGETGetText
636     Precision = 18
637     Currency = False
638     MaxValue = 0
639     MinValue = 0
640     Size = 2
641     end
642     object StaffFULL_NAME: TIBStringField
643     DisplayWidth = 37
644     FieldKind = fkData
645     FieldName = 'FULL_NAME'
646     Index = 10
647     LookupCache = False
648     ProviderFlags = [pfInUpdate, pfInWhere]
649     ReadOnly = True
650     Required = False
651     Size = 37
652     end
653     end
654     object DataSource3: TDataSource
655     DataSet = Staff
656     left = 24
657     top = 264
658     end
659     object ActionList1: TActionList
660     left = 24
661     top = 316
662     object DeleteNode: TAction
663     Caption = 'Delete'
664     OnExecute = DeleteNodeExecute
665     OnUpdate = DeleteNodeUpdate
666     end
667     object AddChild: TAction
668     Caption = 'Add Department to Child List'
669     OnExecute = AddChildExecute
670     OnUpdate = DeleteNodeUpdate
671     end
672     object AddSibling: TAction
673     Caption = 'Add Sibling'
674     OnExecute = AddSiblingExecute
675     OnUpdate = DeleteNodeUpdate
676     end
677     object AddFirstChild: TAction
678     Caption = 'Add Department as First Child'
679     OnExecute = AddFirstChildExecute
680     OnUpdate = DeleteNodeUpdate
681     end
682     end
683     object PopupMenu1: TPopupMenu
684     left = 64
685     top = 318
686     object MenuItem3: TMenuItem
687     Action = AddSibling
688     end
689     object MenuItem4: TMenuItem
690     Action = AddFirstChild
691     end
692     object MenuItem2: TMenuItem
693     Action = AddChild
694     end
695     object MenuItem1: TMenuItem
696     Action = DeleteNode
697     end
698     end
699     object ImageList1: TImageList
700     left = 64
701     top = 136
702     Bitmap = {
703     4C69030000001000000010000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
704     FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
705     FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
706     FF00FFFFFF0068C774FF67C673FF65C270FF62BE6DFFFFFFFF00FFFFFF00FFFF
707     FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
708     FF00FFFFFF0066C572FFA2D8ABFFA0D7A9FF5DB868FFFFFFFF00FFFFFF00FFFF
709     FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
710     FF00FFFFFF0063C06FFF9ED6A7FF9CD4A5FF59B263FFFFFFFF00FFFFFF00FFFF
711     FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
712     FF00FFFFFF005FBB6AFF9AD4A3FF98D3A1FF53AA5DFFFFFFFF00FFFFFF00FFFF
713     FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
714     FF00FFFFFF005BB465FF96D29FFF94D09CFF4EA257FFFFFFFF00FFFFFF00FFFF
715     FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
716     FF00FFFFFF0056AD5FFF93CF9AFF90CE98FF489A50FFFFFFFF00FFFFFF00FFFF
717     FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
718     FF00FFFFFF0050A659FF8ECC95FF8BCB93FF42924AFFFFFFFF00FFFFFF00FFFF
719     FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
720     FF00FFFFFF004A9E53FF8ACA91FF87C98EFF3C8A43FFFFFFFF00FFFFFF00FFFF
721     FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
722     FF00FFFFFF0045954CFF85C78CFF82C689FF36823DFFFFFFFF00FFFFFF00FFFF
723     FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
724     FF0043944B384E9A55FF81C587FF7EC385FF317A36FFFFFFFF00FFFFFF00FFFF
725     FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF004292
726     4AB83D8C45F765AD6CFF7DC282FF7AC180FF4B9250FF276D2CF7246828BBFFFF
727     FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF003C8A
728     430638833ED9519957FF79C07EFF76BF7CFF468D4BFF236627DB20622306FFFF
729     FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
730     FF00FFFFFF002D7533CF488F4DFF458C4AFF226526D1FFFFFF00FFFFFF00FFFF
731     FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
732     FF00FFFFFF00FFFFFF00256929C4216425C9FFFFFF00FFFFFF00FFFFFF00FFFF
733     FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
734     FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
735     FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
736     FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
737     FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
738     FF00FFFFFF00FFFFFF0067C673C965C270C4FFFFFF00FFFFFF00FFFFFF00FFFF
739     FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
740     FF00FFFFFF0066C572D17ECA88FF7BC885FF5DB868CFFFFFFF00FFFFFF00FFFF
741     FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF0068C7
742     740666C472DB7CCA87FF9ED6A7FF9CD4A5FF73C07DFF55AC5ED950A65906FFFF
743     FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF0065C3
744     71BB62BF6EF779C683FF9AD4A3FF98D3A1FF7DC386FF4FA458F74A9E53B8FFFF
745     FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
746     FF00FFFFFF005BB465FF96D29FFF94D09CFF5DAC65FF499C5238FFFFFF00FFFF
747     FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
748     FF00FFFFFF0056AD5FFF93CF9AFF90CE98FF489A50FFFFFFFF00FFFFFF00FFFF
749     FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
750     FF00FFFFFF0050A659FF8ECC95FF8BCB93FF42924AFFFFFFFF00FFFFFF00FFFF
751     FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
752     FF00FFFFFF004A9E53FF8ACA91FF87C98EFF3C8A43FFFFFFFF00FFFFFF00FFFF
753     FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
754     FF00FFFFFF0045954CFF85C78CFF82C689FF36823DFFFFFFFF00FFFFFF00FFFF
755     FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
756     FF00FFFFFF003F8D46FF81C587FF7EC385FF317A36FFFFFFFF00FFFFFF00FFFF
757     FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
758     FF00FFFFFF0039853FFF7DC282FF7AC180FF2B7230FFFFFFFF00FFFFFF00FFFF
759     FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
760     FF00FFFFFF00337D39FF79C07EFF76BF7CFF266B2BFFFFFFFF00FFFFFF00FFFF
761     FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
762     FF00FFFFFF002D7533FF74BD7AFF72BD78FF226526FFFFFFFF00FFFFFF00FFFF
763     FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
764     FF00FFFFFF00286E2DFF256929FF216425FF1E6022FFFFFFFF00FFFFFF00FFFF
765     FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
766     FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
767     FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
768     FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
769     FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
770     FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
771     FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
772     FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
773     FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
774     FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
775     FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
776     FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF0047994FBB4191
777     4906FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
778     FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00419149F73B88
779     42DBFFFFFF00FFFFFF00FFFFFF00FFFFFF0068C774FF68C774FF65C371FF61BE
780     6DFF5DB868FF58B162FF53A95CFF4DA156FF47994FFF419149FF5AA362FF559D
781     5CFF2F7835D1FFFFFF00FFFFFF00FFFFFF0068C774FFA5DAAEFFA2D8ABFF9ED6
782     A7FF9AD4A3FF96D29FFF93CF9AFF8ECC95FF89CA90FF85C78BFF81C587FF7DC2
783     82FF4A9150FF256929C9FFFFFF00FFFFFF0065C371FFA0D7A9FF9CD5A5FF98D3
784     A1FF94D09DFF90CE98FF8BCB93FF87C98EFF82C689FF7EC384FF7AC180FF76BE
785     7CFF458C4AFF216324C4FFFFFF00FFFFFF0061BE6DFF5DB868FF58B162FF53A9
786     5CFF4DA156FF47994FFF419149FF3B8842FF35803BFF3F8845FF59A15EFF448B
787     49FF216324CFFFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
788     FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF002A702F38256929F72163
789     24D9FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
790     FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00216324B81D5E
791     2006FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
792     FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
793     FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
794     FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
795     FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
796     FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
797     FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
798     FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
799     FF00FFFFFF00FFFFFF00FFFFFF00
800     }
801     end
802     end