ViewVC Help
View File | Revision Log | Show Annotations | Download File | View Changeset | Root Listing
root/public/ibx/branches/journaling/examples/ibtreeview/Unit1.lfm
Revision: 311
Committed: Mon Aug 24 09:32:58 2020 UTC (3 years, 7 months ago) by tony
Original Path: ibx/trunk/examples/ibtreeview/Unit1.lfm
File size: 25856 byte(s)
Log Message:
Fixes merged

File Contents

# User Rev Content
1 tony 21 object Form1: TForm1
2 tony 143 Left = 489
3 tony 21 Height = 438
4 tony 143 Top = 219
5 tony 21 Width = 722
6     Caption = 'TIBTreeView Example'
7     ClientHeight = 438
8     ClientWidth = 722
9 tony 68 DefaultMonitor = dmPrimary
10 tony 21 OnClose = FormClose
11     OnShow = FormShow
12 tony 68 Position = poScreenCenter
13 tony 311 LCLVersion = '2.0.11.0'
14 tony 21 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 tony 143 ImageIndexField = 'IMAGEINDEX'
36     SelectedIndexField = 'IMAGEINDEX'
37 tony 21 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 tony 311 Height = 15
76 tony 21 Top = 16
77 tony 311 Width = 25
78 tony 21 Caption = 'Title'
79     ParentColor = False
80     end
81     object DBEdit1: TDBEdit
82     Left = 11
83 tony 311 Height = 25
84 tony 21 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 tony 311 Height = 15
96 tony 21 Top = 71
97 tony 311 Width = 51
98 tony 21 Caption = 'Location'
99     ParentColor = False
100     end
101     object DBEdit4: TDBEdit
102     Left = 13
103 tony 311 Height = 25
104 tony 21 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 tony 311 Height = 15
115 tony 21 Top = 71
116 tony 311 Width = 44
117 tony 21 Caption = 'Budget'
118     ParentColor = False
119     end
120     object DBEdit2: TDBEdit
121     Left = 219
122 tony 311 Height = 25
123 tony 21 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 tony 311 Height = 15
135 tony 21 Top = 121
136 tony 311 Width = 61
137 tony 21 Caption = 'Phone No.'
138     ParentColor = False
139     end
140     object DBEdit3: TDBEdit
141     Left = 219
142 tony 311 Height = 25
143 tony 21 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 tony 311 Height = 15
155 tony 21 Top = 121
156 tony 311 Width = 52
157 tony 21 Caption = 'Manager'
158     ParentColor = False
159     end
160     object IBLookupComboEditBox1: TIBLookupComboEditBox
161     Left = 13
162 tony 311 Height = 27
163 tony 21 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 tony 311 ItemHeight = 0
176 tony 21 end
177     object Label7: TLabel
178     Left = 12
179 tony 311 Height = 15
180 tony 21 Top = 172
181 tony 311 Width = 115
182 tony 21 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 tony 311 Height = 15
254 tony 21 Top = 17
255 tony 311 Width = 79
256 tony 21 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 tony 143 Connected = True
281 tony 68 CreateIfNotExists = False
282 tony 21 AllowStreamedConnected = False
283 tony 27 DatabaseName = 'localhost:employee'
284 tony 21 Params.Strings = (
285 tony 33 'lc_ctype=UTF8'
286 tony 21 'user_name=SYSDBA'
287     )
288     DefaultTransaction = IBTransaction1
289     IdleTimer = 0
290 tony 23 SQLHourGlass = False
291 tony 21 TraceFlags = []
292 tony 45 UseDefaultSystemCodePage = False
293 tony 21 left = 24
294     top = 96
295     end
296     object IBTransaction1: TIBTransaction
297     Active = False
298 tony 27 Params.Strings = (
299     'read_committed'
300     'rec_version'
301     'nowait'
302     )
303 tony 21 left = 24
304     top = 136
305     end
306     object Departments: TIBDataSet
307 tony 68 AllowAutoActivateTransaction = False
308 tony 21 Database = IBDatabase1
309     Transaction = IBTransaction1
310     AfterDelete = DepartmentsAfterDelete
311     AfterEdit = DepartmentsAfterDelete
312     AfterInsert = DepartmentsAfterInsert
313     BufferChunks = 1000
314     CachedUpdates = False
315 tony 311 CaseSensitiveParameterNames = False
316     EnableStatistics = False
317 tony 21 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 tony 143 '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 tony 21 '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 tony 143 '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 tony 21 '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 tony 311 MasterDetailDelay = 0
359 tony 27 DataSetCloseAction = dcSaveChanges
360 tony 21 AfterTransactionEnd = DepartmentsAfterTransactionEnd
361 tony 80 left = 144
362 tony 21 top = 176
363     object DepartmentsDEPT_NO: TIBStringField
364     DisplayWidth = 3
365     FieldKind = fkData
366     FieldName = 'DEPT_NO'
367     Index = 0
368     LookupCache = False
369     ProviderFlags = [pfInUpdate, pfInWhere]
370     ReadOnly = False
371     Required = True
372     Size = 3
373     end
374     object DepartmentsDEPARTMENT: TIBStringField
375     DisplayWidth = 25
376     FieldKind = fkData
377     FieldName = 'DEPARTMENT'
378     Index = 1
379     LookupCache = False
380     ProviderFlags = [pfInUpdate, pfInWhere]
381     ReadOnly = False
382     Required = True
383     Size = 25
384     end
385     object DepartmentsHEAD_DEPT: TIBStringField
386     DisplayWidth = 3
387     FieldKind = fkData
388     FieldName = 'HEAD_DEPT'
389     Index = 2
390     LookupCache = False
391     ProviderFlags = [pfInUpdate, pfInWhere]
392     ReadOnly = False
393     Required = False
394     Size = 3
395     end
396     object DepartmentsMNGR_NO: TSmallintField
397     DisplayWidth = 10
398     FieldKind = fkData
399     FieldName = 'MNGR_NO'
400     Index = 3
401     LookupCache = False
402     ProviderFlags = [pfInUpdate, pfInWhere]
403     ReadOnly = False
404     Required = False
405     end
406     object DepartmentsBUDGET: TIBBCDField
407     DisplayWidth = 18
408     FieldKind = fkData
409     FieldName = 'BUDGET'
410     Index = 4
411     LookupCache = False
412     ProviderFlags = [pfInUpdate, pfInWhere]
413     ReadOnly = False
414     Required = False
415     OnGetText = DepartmentsBUDGETGetText
416     Precision = 18
417     Currency = False
418     MaxValue = 0
419     MinValue = 0
420     Size = 2
421     end
422     object DepartmentsLOCATION: TIBStringField
423     DisplayWidth = 15
424     FieldKind = fkData
425     FieldName = 'LOCATION'
426     Index = 5
427     LookupCache = False
428     ProviderFlags = [pfInUpdate, pfInWhere]
429     ReadOnly = False
430     Required = False
431     Size = 15
432     end
433     object DepartmentsPHONE_NO: TIBStringField
434     DisplayWidth = 20
435     FieldKind = fkData
436     FieldName = 'PHONE_NO'
437     Index = 6
438     LookupCache = False
439     ProviderFlags = [pfInUpdate, pfInWhere]
440     ReadOnly = False
441     Required = False
442     end
443 tony 311 object DepartmentsIMAGEINDEX: TIBIntegerField
444 tony 21 FieldKind = fkData
445 tony 311 FieldName = 'IMAGEINDEX'
446 tony 21 Index = 7
447     LookupCache = False
448     ProviderFlags = [pfInUpdate, pfInWhere]
449     ReadOnly = False
450     Required = True
451     end
452 tony 311 object DepartmentsCHILDCOUNT: TIBLargeIntField
453 tony 143 FieldKind = fkData
454 tony 311 FieldName = 'CHILDCOUNT'
455 tony 143 Index = 8
456     LookupCache = False
457     ProviderFlags = [pfInUpdate, pfInWhere]
458     ReadOnly = False
459     Required = True
460     end
461 tony 21 end
462     object DataSource1: TDataSource
463     DataSet = Departments
464     left = 24
465     top = 176
466     end
467     object ApplicationProperties1: TApplicationProperties
468     OnIdle = ApplicationProperties1Idle
469     left = 24
470     top = 48
471     end
472     object Managers: TIBQuery
473 tony 68 AllowAutoActivateTransaction = False
474 tony 21 Database = IBDatabase1
475     Transaction = IBTransaction1
476     BufferChunks = 1000
477     CachedUpdates = False
478 tony 311 CaseSensitiveParameterNames = False
479     EnableStatistics = False
480 tony 21 GenerateParamNames = False
481     GeneratorField.ApplyOnEvent = gaeOnNewRecord
482 tony 311 MasterDetailDelay = 0
483 tony 21 SQL.Strings = (
484     'Select A.EMP_NO, A.FULL_NAME From EMPLOYEE A'
485     'order by 2'
486     )
487     Params = <>
488 tony 27 DataSetCloseAction = dcDiscardChanges
489 tony 80 left = 144
490     top = 224
491 tony 21 end
492     object DataSource2: TDataSource
493     DataSet = Managers
494     left = 24
495     top = 221
496     end
497     object Staff: TIBQuery
498 tony 68 AllowAutoActivateTransaction = False
499 tony 21 Database = IBDatabase1
500     Transaction = IBTransaction1
501     BufferChunks = 1000
502     CachedUpdates = False
503 tony 311 CaseSensitiveParameterNames = False
504 tony 21 DataSource = DataSource1
505 tony 311 EnableStatistics = False
506 tony 21 GenerateParamNames = False
507     GeneratorField.ApplyOnEvent = gaeOnNewRecord
508 tony 311 MasterDetailDelay = 0
509 tony 21 SQL.Strings = (
510     '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'
511     'Where A.DEPT_NO =:DEPT_NO'
512     )
513     Params = <
514     item
515     DataType = ftUnknown
516     Name = 'DEPT_NO'
517     ParamType = ptInput
518     end>
519 tony 27 DataSetCloseAction = dcDiscardChanges
520 tony 80 left = 144
521     top = 272
522 tony 21 ParamData = <
523     item
524     DataType = ftUnknown
525     Name = 'DEPT_NO'
526     ParamType = ptInput
527     end>
528     object StaffEMP_NO: TSmallintField
529     DisplayWidth = 10
530     FieldKind = fkData
531     FieldName = 'EMP_NO'
532     Index = 0
533     LookupCache = False
534     ProviderFlags = [pfInUpdate, pfInWhere]
535     ReadOnly = False
536     Required = True
537     end
538     object StaffFIRST_NAME: TIBStringField
539     DisplayWidth = 15
540     FieldKind = fkData
541     FieldName = 'FIRST_NAME'
542     Index = 1
543     LookupCache = False
544     ProviderFlags = [pfInUpdate, pfInWhere]
545     ReadOnly = False
546     Required = True
547     Size = 15
548     end
549     object StaffLAST_NAME: TIBStringField
550     DisplayWidth = 20
551     FieldKind = fkData
552     FieldName = 'LAST_NAME'
553     Index = 2
554     LookupCache = False
555     ProviderFlags = [pfInUpdate, pfInWhere]
556     ReadOnly = False
557     Required = True
558     end
559     object StaffPHONE_EXT: TIBStringField
560     DisplayWidth = 4
561     FieldKind = fkData
562     FieldName = 'PHONE_EXT'
563     Index = 3
564     LookupCache = False
565     ProviderFlags = [pfInUpdate, pfInWhere]
566     ReadOnly = False
567     Required = False
568     Size = 4
569     end
570     object StaffHIRE_DATE: TDateTimeField
571     DisplayWidth = 10
572     FieldKind = fkData
573     FieldName = 'HIRE_DATE'
574     Index = 4
575     LookupCache = False
576     ProviderFlags = [pfInUpdate, pfInWhere]
577     ReadOnly = False
578     Required = True
579     end
580     object StaffDEPT_NO: TIBStringField
581     DisplayWidth = 3
582     FieldKind = fkData
583     FieldName = 'DEPT_NO'
584     Index = 5
585     LookupCache = False
586     ProviderFlags = [pfInUpdate, pfInWhere]
587     ReadOnly = False
588     Required = True
589     Size = 3
590     end
591     object StaffJOB_CODE: TIBStringField
592     DisplayWidth = 5
593     FieldKind = fkData
594     FieldName = 'JOB_CODE'
595     Index = 6
596     LookupCache = False
597     ProviderFlags = [pfInUpdate, pfInWhere]
598     ReadOnly = False
599     Required = True
600     Size = 5
601     end
602     object StaffJOB_GRADE: TSmallintField
603     DisplayWidth = 10
604     FieldKind = fkData
605     FieldName = 'JOB_GRADE'
606     Index = 7
607     LookupCache = False
608     ProviderFlags = [pfInUpdate, pfInWhere]
609     ReadOnly = False
610     Required = True
611     end
612     object StaffJOB_COUNTRY: TIBStringField
613     DisplayWidth = 15
614     FieldKind = fkData
615     FieldName = 'JOB_COUNTRY'
616     Index = 8
617     LookupCache = False
618     ProviderFlags = [pfInUpdate, pfInWhere]
619     ReadOnly = False
620     Required = True
621     Size = 15
622     end
623     object StaffSALARY: TIBBCDField
624     DisplayWidth = 18
625     FieldKind = fkData
626     FieldName = 'SALARY'
627     Index = 9
628     LookupCache = False
629     ProviderFlags = [pfInUpdate, pfInWhere]
630     ReadOnly = False
631     Required = True
632     OnGetText = DepartmentsBUDGETGetText
633     Precision = 18
634     Currency = False
635     MaxValue = 0
636     MinValue = 0
637     Size = 2
638     end
639     object StaffFULL_NAME: TIBStringField
640     DisplayWidth = 37
641     FieldKind = fkData
642     FieldName = 'FULL_NAME'
643     Index = 10
644     LookupCache = False
645     ProviderFlags = [pfInUpdate, pfInWhere]
646     ReadOnly = True
647     Required = False
648     Size = 37
649     end
650     end
651     object DataSource3: TDataSource
652     DataSet = Staff
653     left = 24
654     top = 264
655     end
656     object ActionList1: TActionList
657     left = 24
658     top = 316
659     object DeleteNode: TAction
660     Caption = 'Delete'
661     OnExecute = DeleteNodeExecute
662     OnUpdate = DeleteNodeUpdate
663     end
664     object AddChild: TAction
665     Caption = 'Add Department to Child List'
666     OnExecute = AddChildExecute
667     OnUpdate = DeleteNodeUpdate
668     end
669     object AddSibling: TAction
670     Caption = 'Add Sibling'
671     OnExecute = AddSiblingExecute
672     OnUpdate = DeleteNodeUpdate
673     end
674     object AddFirstChild: TAction
675     Caption = 'Add Department as First Child'
676     OnExecute = AddFirstChildExecute
677     OnUpdate = DeleteNodeUpdate
678     end
679     end
680     object PopupMenu1: TPopupMenu
681     left = 64
682     top = 318
683     object MenuItem3: TMenuItem
684     Action = AddSibling
685     end
686     object MenuItem4: TMenuItem
687     Action = AddFirstChild
688     end
689     object MenuItem2: TMenuItem
690     Action = AddChild
691     end
692     object MenuItem1: TMenuItem
693     Action = DeleteNode
694     end
695     end
696     object ImageList1: TImageList
697     left = 64
698     top = 136
699     Bitmap = {
700     4C69030000001000000010000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
701     FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
702     FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
703     FF00FFFFFF0068C774FF67C673FF65C270FF62BE6DFFFFFFFF00FFFFFF00FFFF
704     FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
705     FF00FFFFFF0066C572FFA2D8ABFFA0D7A9FF5DB868FFFFFFFF00FFFFFF00FFFF
706     FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
707     FF00FFFFFF0063C06FFF9ED6A7FF9CD4A5FF59B263FFFFFFFF00FFFFFF00FFFF
708     FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
709     FF00FFFFFF005FBB6AFF9AD4A3FF98D3A1FF53AA5DFFFFFFFF00FFFFFF00FFFF
710     FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
711     FF00FFFFFF005BB465FF96D29FFF94D09CFF4EA257FFFFFFFF00FFFFFF00FFFF
712     FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
713     FF00FFFFFF0056AD5FFF93CF9AFF90CE98FF489A50FFFFFFFF00FFFFFF00FFFF
714     FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
715     FF00FFFFFF0050A659FF8ECC95FF8BCB93FF42924AFFFFFFFF00FFFFFF00FFFF
716     FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
717     FF00FFFFFF004A9E53FF8ACA91FF87C98EFF3C8A43FFFFFFFF00FFFFFF00FFFF
718     FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
719     FF00FFFFFF0045954CFF85C78CFF82C689FF36823DFFFFFFFF00FFFFFF00FFFF
720     FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
721     FF0043944B384E9A55FF81C587FF7EC385FF317A36FFFFFFFF00FFFFFF00FFFF
722     FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF004292
723     4AB83D8C45F765AD6CFF7DC282FF7AC180FF4B9250FF276D2CF7246828BBFFFF
724     FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF003C8A
725     430638833ED9519957FF79C07EFF76BF7CFF468D4BFF236627DB20622306FFFF
726     FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
727     FF00FFFFFF002D7533CF488F4DFF458C4AFF226526D1FFFFFF00FFFFFF00FFFF
728     FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
729     FF00FFFFFF00FFFFFF00256929C4216425C9FFFFFF00FFFFFF00FFFFFF00FFFF
730     FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
731     FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
732     FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
733     FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
734     FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
735     FF00FFFFFF00FFFFFF0067C673C965C270C4FFFFFF00FFFFFF00FFFFFF00FFFF
736     FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
737     FF00FFFFFF0066C572D17ECA88FF7BC885FF5DB868CFFFFFFF00FFFFFF00FFFF
738     FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF0068C7
739     740666C472DB7CCA87FF9ED6A7FF9CD4A5FF73C07DFF55AC5ED950A65906FFFF
740     FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF0065C3
741     71BB62BF6EF779C683FF9AD4A3FF98D3A1FF7DC386FF4FA458F74A9E53B8FFFF
742     FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
743     FF00FFFFFF005BB465FF96D29FFF94D09CFF5DAC65FF499C5238FFFFFF00FFFF
744     FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
745     FF00FFFFFF0056AD5FFF93CF9AFF90CE98FF489A50FFFFFFFF00FFFFFF00FFFF
746     FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
747     FF00FFFFFF0050A659FF8ECC95FF8BCB93FF42924AFFFFFFFF00FFFFFF00FFFF
748     FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
749     FF00FFFFFF004A9E53FF8ACA91FF87C98EFF3C8A43FFFFFFFF00FFFFFF00FFFF
750     FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
751     FF00FFFFFF0045954CFF85C78CFF82C689FF36823DFFFFFFFF00FFFFFF00FFFF
752     FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
753     FF00FFFFFF003F8D46FF81C587FF7EC385FF317A36FFFFFFFF00FFFFFF00FFFF
754     FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
755     FF00FFFFFF0039853FFF7DC282FF7AC180FF2B7230FFFFFFFF00FFFFFF00FFFF
756     FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
757     FF00FFFFFF00337D39FF79C07EFF76BF7CFF266B2BFFFFFFFF00FFFFFF00FFFF
758     FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
759     FF00FFFFFF002D7533FF74BD7AFF72BD78FF226526FFFFFFFF00FFFFFF00FFFF
760     FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
761     FF00FFFFFF00286E2DFF256929FF216425FF1E6022FFFFFFFF00FFFFFF00FFFF
762     FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
763     FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
764     FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
765     FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
766     FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
767     FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
768     FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
769     FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
770     FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
771     FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
772     FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
773     FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF0047994FBB4191
774     4906FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
775     FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00419149F73B88
776     42DBFFFFFF00FFFFFF00FFFFFF00FFFFFF0068C774FF68C774FF65C371FF61BE
777     6DFF5DB868FF58B162FF53A95CFF4DA156FF47994FFF419149FF5AA362FF559D
778     5CFF2F7835D1FFFFFF00FFFFFF00FFFFFF0068C774FFA5DAAEFFA2D8ABFF9ED6
779     A7FF9AD4A3FF96D29FFF93CF9AFF8ECC95FF89CA90FF85C78BFF81C587FF7DC2
780     82FF4A9150FF256929C9FFFFFF00FFFFFF0065C371FFA0D7A9FF9CD5A5FF98D3
781     A1FF94D09DFF90CE98FF8BCB93FF87C98EFF82C689FF7EC384FF7AC180FF76BE
782     7CFF458C4AFF216324C4FFFFFF00FFFFFF0061BE6DFF5DB868FF58B162FF53A9
783     5CFF4DA156FF47994FFF419149FF3B8842FF35803BFF3F8845FF59A15EFF448B
784     49FF216324CFFFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
785     FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF002A702F38256929F72163
786     24D9FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
787     FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00216324B81D5E
788     2006FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
789     FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
790     FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
791     FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
792     FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
793     FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
794     FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
795     FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
796     FF00FFFFFF00FFFFFF00FFFFFF00
797     }
798     end
799     end