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