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

File Contents

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