ViewVC Help
View File | Revision Log | Show Annotations | Download File | View Changeset | Root Listing
root/public/ibx/branches/journaling/examples/ibtreeview/Unit1.lfm
Revision: 23
Committed: Fri Mar 13 10:26:52 2015 UTC (9 years, 1 month ago) by tony
Original Path: ibx/trunk/examples/ibtreeview/Unit1.lfm
File size: 24735 byte(s)
Log Message: 
Committing updates for Release R1-2-1

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