ViewVC Help
View File | Revision Log | Show Annotations | Download File | View Changeset | Root Listing
root/public/ibx/branches/journaling/examples/ibtreeview/Unit1.lfm
Revision: 143
Committed: Fri Feb 23 12:11:21 2018 UTC (6 years, 2 months ago) by tony
Original Path: ibx/trunk/examples/ibtreeview/Unit1.lfm
File size: 25620 byte(s)
Log Message: 
Fixes Merged

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