ViewVC Help
View File | Revision Log | Show Annotations | Download File | View Changeset | Root Listing
root/public/ibx/branches/journaling/examples/ibtreeview/Unit1.lfm
Revision: 27
Committed: Tue Apr 14 13:10:23 2015 UTC (9 years ago) by tony
Original Path: ibx/trunk/examples/ibtreeview/Unit1.lfm
File size: 24870 byte(s)
Log Message: 
Committing updates for Release R1-2-3

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 27 LCLVersion = '1.4.0.3'
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     'lc_ctype=UTF-8'
283     'user_name=SYSDBA'
284     )
285     DefaultTransaction = IBTransaction1
286     IdleTimer = 0
287 tony 23 SQLHourGlass = False
288 tony 21 TraceFlags = []
289     left = 24
290     top = 96
291     end
292     object IBTransaction1: TIBTransaction
293     Active = False
294 tony 27 Params.Strings = (
295     'read_committed'
296     'rec_version'
297     'nowait'
298     )
299 tony 21 left = 24
300     top = 136
301     end
302     object Departments: TIBDataSet
303     Database = IBDatabase1
304     Transaction = IBTransaction1
305     AfterDelete = DepartmentsAfterDelete
306     AfterEdit = DepartmentsAfterDelete
307     AfterInsert = DepartmentsAfterInsert
308     BufferChunks = 1000
309     CachedUpdates = False
310     DeleteSQL.Strings = (
311     'Delete From DEPARTMENT A'
312     'Where A.DEPT_NO = :DEPT_NO'
313     )
314     InsertSQL.Strings = (
315     'Insert Into DEPARTMENT(DEPT_NO, DEPARTMENT, HEAD_DEPT, MNGR_NO, BUDGET, LOCATION, PHONE_NO)'
316     'Values(:DEPT_NO, :DEPARTMENT, :HEAD_DEPT, :MNGR_NO, :BUDGET, :LOCATION, :PHONE_NO)'
317     )
318     RefreshSQL.Strings = (
319     'Select A.DEPT_NO, A.DEPARTMENT, A.HEAD_DEPT, A.MNGR_NO, A.BUDGET, A.LOCATION, A.PHONE_NO,'
320     'count(B.DEPT_NO) as ChildCount'
321     'From DEPARTMENT A'
322     'Left Outer JOIN DEPARTMENT B On B.HEAD_DEPT = A.DEPT_NO'
323     'Where A.DEPT_NO = :DEPT_NO'
324     'Group By A.DEPT_NO, A.DEPARTMENT, A.HEAD_DEPT, A.MNGR_NO, A.BUDGET, A.LOCATION, A.PHONE_NO'
325     ''
326     )
327     SelectSQL.Strings = (
328     'Select A.DEPT_NO, A.DEPARTMENT, A.HEAD_DEPT, A.MNGR_NO, A.BUDGET, A.LOCATION, A.PHONE_NO,'
329     'count(B.DEPT_NO) as ChildCount'
330     'From DEPARTMENT A'
331     'Left Outer JOIN DEPARTMENT B On B.HEAD_DEPT = A.DEPT_NO'
332     'Group By A.DEPT_NO, A.DEPARTMENT, A.HEAD_DEPT, A.MNGR_NO, A.BUDGET, A.LOCATION, A.PHONE_NO'
333     'Order by Department'
334     )
335     ModifySQL.Strings = (
336     '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'
337     'Where A.DEPT_NO = :OLD_DEPT_NO'
338     )
339     GeneratorField.Generator = 'EMP_NO_GEN'
340     GeneratorField.Field = 'DEPT_NO'
341     GeneratorField.ApplyOnEvent = gaeOnNewRecord
342     GenerateParamNames = False
343 tony 27 DataSetCloseAction = dcSaveChanges
344 tony 21 AfterTransactionEnd = DepartmentsAfterTransactionEnd
345     left = 64
346     top = 176
347     object DepartmentsDEPT_NO: TIBStringField
348     DisplayWidth = 3
349     FieldKind = fkData
350     FieldName = 'DEPT_NO'
351     Index = 0
352     LookupCache = False
353     ProviderFlags = [pfInUpdate, pfInWhere]
354     ReadOnly = False
355     Required = True
356     Size = 3
357     end
358     object DepartmentsDEPARTMENT: TIBStringField
359     DisplayWidth = 25
360     FieldKind = fkData
361     FieldName = 'DEPARTMENT'
362     Index = 1
363     LookupCache = False
364     ProviderFlags = [pfInUpdate, pfInWhere]
365     ReadOnly = False
366     Required = True
367     Size = 25
368     end
369     object DepartmentsHEAD_DEPT: TIBStringField
370     DisplayWidth = 3
371     FieldKind = fkData
372     FieldName = 'HEAD_DEPT'
373     Index = 2
374     LookupCache = False
375     ProviderFlags = [pfInUpdate, pfInWhere]
376     ReadOnly = False
377     Required = False
378     Size = 3
379     end
380     object DepartmentsMNGR_NO: TSmallintField
381     DisplayWidth = 10
382     FieldKind = fkData
383     FieldName = 'MNGR_NO'
384     Index = 3
385     LookupCache = False
386     ProviderFlags = [pfInUpdate, pfInWhere]
387     ReadOnly = False
388     Required = False
389     end
390     object DepartmentsBUDGET: TIBBCDField
391     DisplayWidth = 18
392     FieldKind = fkData
393     FieldName = 'BUDGET'
394     Index = 4
395     LookupCache = False
396     ProviderFlags = [pfInUpdate, pfInWhere]
397     ReadOnly = False
398     Required = False
399     OnChange = DepartmentsBUDGETChange
400     OnGetText = DepartmentsBUDGETGetText
401     Precision = 18
402     Currency = False
403     MaxValue = 0
404     MinValue = 0
405     Size = 2
406     end
407     object DepartmentsLOCATION: TIBStringField
408     DisplayWidth = 15
409     FieldKind = fkData
410     FieldName = 'LOCATION'
411     Index = 5
412     LookupCache = False
413     ProviderFlags = [pfInUpdate, pfInWhere]
414     ReadOnly = False
415     Required = False
416     Size = 15
417     end
418     object DepartmentsPHONE_NO: TIBStringField
419     DisplayWidth = 20
420     FieldKind = fkData
421     FieldName = 'PHONE_NO'
422     Index = 6
423     LookupCache = False
424     ProviderFlags = [pfInUpdate, pfInWhere]
425     ReadOnly = False
426     Required = False
427     end
428     object DepartmentsCHILDCOUNT: TIntegerField
429     DisplayWidth = 10
430     FieldKind = fkData
431     FieldName = 'CHILDCOUNT'
432     Index = 7
433     LookupCache = False
434     ProviderFlags = [pfInUpdate, pfInWhere]
435     ReadOnly = False
436     Required = True
437     end
438     end
439     object DataSource1: TDataSource
440     DataSet = Departments
441     left = 24
442     top = 176
443     end
444     object ApplicationProperties1: TApplicationProperties
445     OnIdle = ApplicationProperties1Idle
446     left = 24
447     top = 48
448     end
449     object Managers: TIBQuery
450     Database = IBDatabase1
451     Transaction = IBTransaction1
452     BufferChunks = 1000
453     CachedUpdates = False
454     GenerateParamNames = False
455     GeneratorField.ApplyOnEvent = gaeOnNewRecord
456     SQL.Strings = (
457     'Select A.EMP_NO, A.FULL_NAME From EMPLOYEE A'
458     'order by 2'
459     )
460     Params = <>
461 tony 27 DataSetCloseAction = dcDiscardChanges
462 tony 21 left = 64
463     top = 221
464     end
465     object DataSource2: TDataSource
466     DataSet = Managers
467     left = 24
468     top = 221
469     end
470     object Staff: TIBQuery
471     Database = IBDatabase1
472     Transaction = IBTransaction1
473     BufferChunks = 1000
474     CachedUpdates = False
475     DataSource = DataSource1
476     GenerateParamNames = False
477     GeneratorField.ApplyOnEvent = gaeOnNewRecord
478     SQL.Strings = (
479     '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'
480     'Where A.DEPT_NO =:DEPT_NO'
481     )
482     Params = <
483     item
484     DataType = ftUnknown
485     Name = 'DEPT_NO'
486     ParamType = ptInput
487     end>
488 tony 27 DataSetCloseAction = dcDiscardChanges
489 tony 21 left = 64
490     top = 264
491     ParamData = <
492     item
493     DataType = ftUnknown
494     Name = 'DEPT_NO'
495     ParamType = ptInput
496     end>
497     object StaffEMP_NO: TSmallintField
498     DisplayWidth = 10
499     FieldKind = fkData
500     FieldName = 'EMP_NO'
501     Index = 0
502     LookupCache = False
503     ProviderFlags = [pfInUpdate, pfInWhere]
504     ReadOnly = False
505     Required = True
506     end
507     object StaffFIRST_NAME: TIBStringField
508     DisplayWidth = 15
509     FieldKind = fkData
510     FieldName = 'FIRST_NAME'
511     Index = 1
512     LookupCache = False
513     ProviderFlags = [pfInUpdate, pfInWhere]
514     ReadOnly = False
515     Required = True
516     Size = 15
517     end
518     object StaffLAST_NAME: TIBStringField
519     DisplayWidth = 20
520     FieldKind = fkData
521     FieldName = 'LAST_NAME'
522     Index = 2
523     LookupCache = False
524     ProviderFlags = [pfInUpdate, pfInWhere]
525     ReadOnly = False
526     Required = True
527     end
528     object StaffPHONE_EXT: TIBStringField
529     DisplayWidth = 4
530     FieldKind = fkData
531     FieldName = 'PHONE_EXT'
532     Index = 3
533     LookupCache = False
534     ProviderFlags = [pfInUpdate, pfInWhere]
535     ReadOnly = False
536     Required = False
537     Size = 4
538     end
539     object StaffHIRE_DATE: TDateTimeField
540     DisplayWidth = 10
541     FieldKind = fkData
542     FieldName = 'HIRE_DATE'
543     Index = 4
544     LookupCache = False
545     ProviderFlags = [pfInUpdate, pfInWhere]
546     ReadOnly = False
547     Required = True
548     end
549     object StaffDEPT_NO: TIBStringField
550     DisplayWidth = 3
551     FieldKind = fkData
552     FieldName = 'DEPT_NO'
553     Index = 5
554     LookupCache = False
555     ProviderFlags = [pfInUpdate, pfInWhere]
556     ReadOnly = False
557     Required = True
558     Size = 3
559     end
560     object StaffJOB_CODE: TIBStringField
561     DisplayWidth = 5
562     FieldKind = fkData
563     FieldName = 'JOB_CODE'
564     Index = 6
565     LookupCache = False
566     ProviderFlags = [pfInUpdate, pfInWhere]
567     ReadOnly = False
568     Required = True
569     Size = 5
570     end
571     object StaffJOB_GRADE: TSmallintField
572     DisplayWidth = 10
573     FieldKind = fkData
574     FieldName = 'JOB_GRADE'
575     Index = 7
576     LookupCache = False
577     ProviderFlags = [pfInUpdate, pfInWhere]
578     ReadOnly = False
579     Required = True
580     end
581     object StaffJOB_COUNTRY: TIBStringField
582     DisplayWidth = 15
583     FieldKind = fkData
584     FieldName = 'JOB_COUNTRY'
585     Index = 8
586     LookupCache = False
587     ProviderFlags = [pfInUpdate, pfInWhere]
588     ReadOnly = False
589     Required = True
590     Size = 15
591     end
592     object StaffSALARY: TIBBCDField
593     DisplayWidth = 18
594     FieldKind = fkData
595     FieldName = 'SALARY'
596     Index = 9
597     LookupCache = False
598     ProviderFlags = [pfInUpdate, pfInWhere]
599     ReadOnly = False
600     Required = True
601     OnGetText = DepartmentsBUDGETGetText
602     Precision = 18
603     Currency = False
604     MaxValue = 0
605     MinValue = 0
606     Size = 2
607     end
608     object StaffFULL_NAME: TIBStringField
609     DisplayWidth = 37
610     FieldKind = fkData
611     FieldName = 'FULL_NAME'
612     Index = 10
613     LookupCache = False
614     ProviderFlags = [pfInUpdate, pfInWhere]
615     ReadOnly = True
616     Required = False
617     Size = 37
618     end
619     end
620     object DataSource3: TDataSource
621     DataSet = Staff
622     left = 24
623     top = 264
624     end
625     object ActionList1: TActionList
626     left = 24
627     top = 316
628     object DeleteNode: TAction
629     Caption = 'Delete'
630     OnExecute = DeleteNodeExecute
631     OnUpdate = DeleteNodeUpdate
632     end
633     object AddChild: TAction
634     Caption = 'Add Department to Child List'
635     OnExecute = AddChildExecute
636     OnUpdate = DeleteNodeUpdate
637     end
638     object AddSibling: TAction
639     Caption = 'Add Sibling'
640     OnExecute = AddSiblingExecute
641     OnUpdate = DeleteNodeUpdate
642     end
643     object AddFirstChild: TAction
644     Caption = 'Add Department as First Child'
645     OnExecute = AddFirstChildExecute
646     OnUpdate = DeleteNodeUpdate
647     end
648     end
649     object PopupMenu1: TPopupMenu
650     left = 64
651     top = 318
652     object MenuItem3: TMenuItem
653     Action = AddSibling
654     end
655     object MenuItem4: TMenuItem
656     Action = AddFirstChild
657     end
658     object MenuItem2: TMenuItem
659     Action = AddChild
660     end
661     object MenuItem1: TMenuItem
662     Action = DeleteNode
663     end
664     end
665     object ImageList1: TImageList
666     left = 64
667     top = 136
668     Bitmap = {
669     4C69030000001000000010000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
670     FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
671     FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
672     FF00FFFFFF0068C774FF67C673FF65C270FF62BE6DFFFFFFFF00FFFFFF00FFFF
673     FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
674     FF00FFFFFF0066C572FFA2D8ABFFA0D7A9FF5DB868FFFFFFFF00FFFFFF00FFFF
675     FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
676     FF00FFFFFF0063C06FFF9ED6A7FF9CD4A5FF59B263FFFFFFFF00FFFFFF00FFFF
677     FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
678     FF00FFFFFF005FBB6AFF9AD4A3FF98D3A1FF53AA5DFFFFFFFF00FFFFFF00FFFF
679     FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
680     FF00FFFFFF005BB465FF96D29FFF94D09CFF4EA257FFFFFFFF00FFFFFF00FFFF
681     FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
682     FF00FFFFFF0056AD5FFF93CF9AFF90CE98FF489A50FFFFFFFF00FFFFFF00FFFF
683     FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
684     FF00FFFFFF0050A659FF8ECC95FF8BCB93FF42924AFFFFFFFF00FFFFFF00FFFF
685     FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
686     FF00FFFFFF004A9E53FF8ACA91FF87C98EFF3C8A43FFFFFFFF00FFFFFF00FFFF
687     FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
688     FF00FFFFFF0045954CFF85C78CFF82C689FF36823DFFFFFFFF00FFFFFF00FFFF
689     FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
690     FF0043944B384E9A55FF81C587FF7EC385FF317A36FFFFFFFF00FFFFFF00FFFF
691     FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF004292
692     4AB83D8C45F765AD6CFF7DC282FF7AC180FF4B9250FF276D2CF7246828BBFFFF
693     FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF003C8A
694     430638833ED9519957FF79C07EFF76BF7CFF468D4BFF236627DB20622306FFFF
695     FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
696     FF00FFFFFF002D7533CF488F4DFF458C4AFF226526D1FFFFFF00FFFFFF00FFFF
697     FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
698     FF00FFFFFF00FFFFFF00256929C4216425C9FFFFFF00FFFFFF00FFFFFF00FFFF
699     FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
700     FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
701     FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
702     FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
703     FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
704     FF00FFFFFF00FFFFFF0067C673C965C270C4FFFFFF00FFFFFF00FFFFFF00FFFF
705     FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
706     FF00FFFFFF0066C572D17ECA88FF7BC885FF5DB868CFFFFFFF00FFFFFF00FFFF
707     FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF0068C7
708     740666C472DB7CCA87FF9ED6A7FF9CD4A5FF73C07DFF55AC5ED950A65906FFFF
709     FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF0065C3
710     71BB62BF6EF779C683FF9AD4A3FF98D3A1FF7DC386FF4FA458F74A9E53B8FFFF
711     FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
712     FF00FFFFFF005BB465FF96D29FFF94D09CFF5DAC65FF499C5238FFFFFF00FFFF
713     FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
714     FF00FFFFFF0056AD5FFF93CF9AFF90CE98FF489A50FFFFFFFF00FFFFFF00FFFF
715     FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
716     FF00FFFFFF0050A659FF8ECC95FF8BCB93FF42924AFFFFFFFF00FFFFFF00FFFF
717     FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
718     FF00FFFFFF004A9E53FF8ACA91FF87C98EFF3C8A43FFFFFFFF00FFFFFF00FFFF
719     FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
720     FF00FFFFFF0045954CFF85C78CFF82C689FF36823DFFFFFFFF00FFFFFF00FFFF
721     FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
722     FF00FFFFFF003F8D46FF81C587FF7EC385FF317A36FFFFFFFF00FFFFFF00FFFF
723     FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
724     FF00FFFFFF0039853FFF7DC282FF7AC180FF2B7230FFFFFFFF00FFFFFF00FFFF
725     FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
726     FF00FFFFFF00337D39FF79C07EFF76BF7CFF266B2BFFFFFFFF00FFFFFF00FFFF
727     FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
728     FF00FFFFFF002D7533FF74BD7AFF72BD78FF226526FFFFFFFF00FFFFFF00FFFF
729     FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
730     FF00FFFFFF00286E2DFF256929FF216425FF1E6022FFFFFFFF00FFFFFF00FFFF
731     FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
732     FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
733     FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
734     FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
735     FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
736     FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
737     FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
738     FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
739     FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
740     FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
741     FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
742     FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF0047994FBB4191
743     4906FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
744     FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00419149F73B88
745     42DBFFFFFF00FFFFFF00FFFFFF00FFFFFF0068C774FF68C774FF65C371FF61BE
746     6DFF5DB868FF58B162FF53A95CFF4DA156FF47994FFF419149FF5AA362FF559D
747     5CFF2F7835D1FFFFFF00FFFFFF00FFFFFF0068C774FFA5DAAEFFA2D8ABFF9ED6
748     A7FF9AD4A3FF96D29FFF93CF9AFF8ECC95FF89CA90FF85C78BFF81C587FF7DC2
749     82FF4A9150FF256929C9FFFFFF00FFFFFF0065C371FFA0D7A9FF9CD5A5FF98D3
750     A1FF94D09DFF90CE98FF8BCB93FF87C98EFF82C689FF7EC384FF7AC180FF76BE
751     7CFF458C4AFF216324C4FFFFFF00FFFFFF0061BE6DFF5DB868FF58B162FF53A9
752     5CFF4DA156FF47994FFF419149FF3B8842FF35803BFF3F8845FF59A15EFF448B
753     49FF216324CFFFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
754     FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF002A702F38256929F72163
755     24D9FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
756     FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00216324B81D5E
757     2006FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
758     FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
759     FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
760     FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
761     FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
762     FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
763     FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
764     FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
765     FF00FFFFFF00FFFFFF00FFFFFF00
766     }
767     end
768     end