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