ViewVC Help
View File | Revision Log | Show Annotations | Download File | View Changeset | Root Listing
root/public/ibx/branches/journaling/examples/ibtreeview/Unit1.lfm
Revision: 45
Committed: Tue Dec 6 10:33:46 2016 UTC (7 years, 4 months ago) by tony
Original Path: ibx/trunk/examples/ibtreeview/Unit1.lfm
File size: 24906 byte(s)
Log Message: 
Committing updates for Release R2-0-0

File Contents

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