ViewVC Help
View File | Revision Log | Show Annotations | Download File | View Changeset | Root Listing
root/public/ibx/trunk/examples/DBAdmin/MainFormUnit.lfm
Revision: 272
Committed: Mon Feb 4 13:34:37 2019 UTC (5 years, 2 months ago) by tony
File size: 111671 byte(s)
Log Message:
Fixes merged

File Contents

# User Rev Content
1 tony 158 object MainForm: TMainForm
2 tony 209 Left = 648
3 tony 272 Height = 619
4 tony 209 Top = 231
5 tony 272 Width = 976
6 tony 158 Caption = 'Database Administrator Demo'
7 tony 272 ClientHeight = 599
8     ClientWidth = 976
9 tony 158 Menu = MainMenu1
10 tony 209 OnClose = FormClose
11 tony 158 OnShow = FormShow
12 tony 272 LCLVersion = '2.0.0.3'
13 tony 158 object ToolBar1: TToolBar
14     Left = 0
15     Height = 26
16     Top = 0
17 tony 272 Width = 976
18 tony 158 Caption = 'ToolBar1'
19     Images = MenuImages
20     TabOrder = 0
21     object ToolButton1: TToolButton
22     Left = 1
23     Top = 2
24     Action = Backup
25     ParentShowHint = False
26     ShowCaption = False
27     ShowHint = True
28     end
29     object ToolButton2: TToolButton
30     Left = 24
31     Height = 22
32     Top = 2
33     Caption = 'ToolButton2'
34     Style = tbsSeparator
35     end
36     object ToolButton3: TToolButton
37     Left = 32
38     Top = 2
39     Action = Restore
40     ParentShowHint = False
41     ShowHint = True
42     end
43     object ToolButton4: TToolButton
44     Left = 55
45     Height = 22
46     Top = 2
47     Caption = 'ToolButton4'
48     Style = tbsDivider
49     end
50     object ToolButton5: TToolButton
51     Left = 60
52     Top = 2
53     Action = Save
54     end
55 tony 231 object ToolButton6: TToolButton
56     Left = 83
57     Height = 22
58     Top = 2
59     Caption = 'ToolButton6'
60     Style = tbsSeparator
61     end
62     object ToolButton7: TToolButton
63     Left = 91
64     Top = 2
65     Action = RunScript
66     end
67 tony 158 end
68     object StatusBar1: TStatusBar
69     Left = 0
70     Height = 22
71 tony 272 Top = 577
72     Width = 976
73 tony 158 Panels = <>
74     end
75     object PageControl1: TPageControl
76     Left = 0
77 tony 272 Height = 551
78 tony 158 Top = 26
79 tony 272 Width = 976
80     ActivePage = AccessRightsTab
81 tony 158 Align = alClient
82     MultiLine = True
83     ParentShowHint = False
84     ShowHint = True
85 tony 272 TabIndex = 7
86 tony 158 TabOrder = 2
87     Options = [nboMultiLine]
88     object Properties: TTabSheet
89     Caption = 'Properties'
90 tony 272 ClientHeight = 519
91     ClientWidth = 970
92 tony 158 OnShow = PropertiesShow
93     object Panel7: TPanel
94     Left = 0
95 tony 272 Height = 519
96 tony 158 Top = 0
97 tony 272 Width = 970
98 tony 158 Align = alClient
99     BevelOuter = bvNone
100 tony 272 ClientHeight = 519
101     ClientWidth = 970
102 tony 158 Color = clWindow
103     ParentColor = False
104     TabOrder = 0
105     object Label6: TLabel
106     Left = 71
107     Height = 14
108     Top = 20
109     Width = 39
110     Caption = 'Server'
111     ParentColor = False
112     end
113     object Label2: TLabel
114     Left = 15
115     Height = 14
116     Top = 52
117     Width = 95
118     Caption = 'Database Name'
119     ParentColor = False
120     end
121     object Label9: TLabel
122     Left = 19
123     Height = 14
124     Top = 83
125     Width = 91
126     Caption = 'Connect String'
127     ParentColor = False
128     end
129     object ConnectString: TEdit
130     Left = 120
131     Height = 24
132     Top = 80
133     Width = 265
134     TabOrder = 0
135     Text = 'ConnectString'
136     end
137     object Label1: TLabel
138     Left = 40
139     Height = 14
140     Top = 117
141     Width = 73
142     Caption = 'ODS Version'
143     ParentColor = False
144     end
145     object ODSVersionString: TEdit
146     Left = 120
147     Height = 24
148     Top = 112
149     Width = 266
150     ReadOnly = True
151     TabOrder = 1
152     Text = 'ODSVersionString'
153     end
154     object Label4: TLabel
155     Left = 19
156     Height = 14
157     Top = 150
158     Width = 91
159     Caption = 'Svr Version No.'
160     ParentColor = False
161     end
162     object ServerVersionNo: TEdit
163     Left = 120
164     Height = 24
165     Top = 144
166     Width = 266
167     ReadOnly = True
168     TabOrder = 2
169     Text = 'ServerVersionNo'
170     end
171     object Label5: TLabel
172 tony 272 Left = 789
173 tony 158 Height = 14
174 tony 272 Top = 23
175 tony 158 Width = 69
176     Caption = 'SQL Dialect'
177     ParentColor = False
178     end
179     object DBSQLDialect: TEdit
180 tony 272 Left = 865
181 tony 158 Height = 24
182 tony 272 Top = 16
183     Width = 89
184     Alignment = taRightJustify
185 tony 158 NumbersOnly = True
186     OnEditingDone = DBSQLDialectEditingDone
187     TabOrder = 3
188     Text = 'DBSQLDialect'
189     end
190     object Label24: TLabel
191     Left = 51
192     Height = 14
193     Top = 211
194     Width = 60
195     Caption = 'DB Owner'
196     ParentColor = False
197     end
198     object Label18: TLabel
199     Left = 24
200     Height = 14
201     Top = 244
202     Width = 86
203     Caption = 'Sec. Database'
204     ParentColor = False
205     end
206     object Label13: TLabel
207     Left = 28
208     Height = 14
209     Top = 277
210     Width = 83
211     Caption = 'Character Set'
212     ParentColor = False
213     end
214     object DBCharSetRO: TDBEdit
215     Left = 120
216     Height = 24
217     Top = 272
218     Width = 264
219     DataField = 'RDB$CHARACTER_SET_NAME'
220     DataSource = DBCharSetSource
221     ReadOnly = True
222     CharCase = ecNormal
223     MaxLength = 0
224     TabOrder = 5
225     end
226     object DBCharacterSet: TIBLookupComboEditBox
227     Left = 121
228     Height = 27
229     Top = 272
230     Width = 266
231     DataField = 'RDB$CHARACTER_SET_NAME'
232     DataSource = DBCharSetSource
233     KeyField = 'RDB$CHARACTER_SET_NAME'
234     ListField = 'RDB$CHARACTER_SET_NAME'
235     ListFieldIndex = 0
236     ListSource = CharSetSource
237     LookupCache = False
238     OnEditingDone = DBCharacterSetEditingDone
239     TabOrder = 4
240     AutoInsert = False
241     AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
242     ItemHeight = 0
243     end
244     object DBIsReadOnly: TCheckBox
245     Left = 111
246     Height = 22
247     Top = 311
248     Width = 84
249     Caption = 'Read Only'
250     OnChange = DBIsReadOnlyChange
251     TabOrder = 6
252     end
253     object DatabaseOnline: TCheckBox
254     Left = 111
255     Height = 22
256     Top = 335
257     Width = 62
258     Caption = 'Online'
259     OnChange = DatabaseOnlineChange
260     TabOrder = 7
261     end
262     object SyncWrites: TCheckBox
263     Left = 111
264     Height = 22
265     Top = 359
266     Width = 173
267     Caption = 'Synchronous Disk Writes'
268     OnChange = SyncWritesChange
269     TabOrder = 8
270     end
271     object IsShadowChk: TCheckBox
272     Left = 111
273     Height = 22
274     Top = 383
275     Width = 132
276     Caption = 'Shadow Database'
277     OnChange = IsShadowChkChange
278     TabOrder = 9
279     end
280     object NoReserve: TCheckBox
281     Left = 111
282     Height = 22
283     Top = 407
284     Width = 239
285     Caption = 'Space Reserved for Backup Records'
286     OnChange = NoReserveChange
287     TabOrder = 10
288     end
289     object Label11: TLabel
290 tony 272 Left = 765
291 tony 158 Height = 14
292 tony 272 Top = 52
293 tony 158 Width = 93
294 tony 272 Anchors = [akTop, akRight]
295 tony 158 Caption = 'Pages Allocated'
296     ParentColor = False
297     end
298     object AllocatedPages: TEdit
299 tony 272 Left = 865
300 tony 158 Height = 24
301 tony 272 Top = 48
302 tony 158 Width = 89
303     Alignment = taRightJustify
304 tony 272 Anchors = [akTop, akRight]
305 tony 158 ReadOnly = True
306 tony 209 TabOrder = 11
307 tony 158 Text = 'AllocatedPages'
308     end
309     object Label19: TLabel
310     Left = 472
311     Height = 14
312 tony 229 Top = 22
313 tony 158 Width = 56
314     Caption = 'Page Size'
315     ParentColor = False
316     end
317     object Label3: TLabel
318 tony 272 Left = 791
319 tony 158 Height = 14
320 tony 272 Top = 85
321 tony 158 Width = 68
322 tony 272 Anchors = [akTop, akRight]
323 tony 158 Caption = 'Pages Used'
324     ParentColor = False
325     end
326     object PagesUsed: TEdit
327 tony 272 Left = 865
328 tony 158 Height = 24
329 tony 272 Top = 80
330 tony 158 Width = 89
331     Alignment = taRightJustify
332 tony 272 Anchors = [akTop, akRight]
333 tony 158 ReadOnly = True
334 tony 209 TabOrder = 12
335 tony 158 Text = 'PagesUsed'
336     end
337     object Label10: TLabel
338 tony 272 Left = 769
339 tony 158 Height = 14
340 tony 272 Top = 118
341 tony 158 Width = 90
342 tony 272 Anchors = [akTop, akRight]
343 tony 158 Caption = 'Pages Available'
344     ParentColor = False
345     end
346     object PagesAvail: TEdit
347 tony 272 Left = 865
348 tony 158 Height = 24
349 tony 272 Top = 112
350 tony 158 Width = 89
351     Alignment = taRightJustify
352 tony 272 Anchors = [akTop, akRight]
353 tony 158 ReadOnly = True
354 tony 209 TabOrder = 13
355 tony 158 Text = 'PagesAvail'
356     end
357     object Label12: TLabel
358 tony 229 Left = 432
359 tony 158 Height = 14
360 tony 229 Top = 52
361 tony 158 Width = 98
362     Caption = 'Current Memory'
363     ParentColor = False
364     end
365     object Edit10: TEdit
366 tony 229 Left = 535
367 tony 158 Height = 24
368 tony 229 Top = 48
369 tony 158 Width = 89
370     Alignment = taRightJustify
371     ReadOnly = True
372 tony 209 TabOrder = 14
373 tony 158 Text = 'Edit10'
374     end
375     object Label20: TLabel
376     Left = 632
377     Height = 14
378 tony 229 Top = 22
379 tony 158 Width = 33
380     Caption = 'bytes'
381     ParentColor = False
382     end
383     object Label21: TLabel
384 tony 229 Left = 634
385 tony 158 Height = 14
386 tony 229 Top = 57
387 tony 158 Width = 33
388     Caption = 'bytes'
389     ParentColor = False
390     end
391     object Label14: TLabel
392 tony 229 Left = 454
393 tony 158 Height = 14
394 tony 229 Top = 85
395 tony 158 Width = 76
396     Caption = 'Max Memory'
397     ParentColor = False
398     end
399     object Edit11: TEdit
400 tony 229 Left = 536
401 tony 158 Height = 24
402 tony 229 Top = 80
403 tony 158 Width = 89
404     Alignment = taRightJustify
405     ReadOnly = True
406 tony 209 TabOrder = 15
407 tony 158 Text = 'Edit11'
408     end
409     object Label22: TLabel
410 tony 229 Left = 635
411 tony 158 Height = 14
412 tony 229 Top = 85
413 tony 158 Width = 33
414     Caption = 'bytes'
415     ParentColor = False
416     end
417     object Label15: TLabel
418 tony 272 Left = 778
419 tony 158 Height = 14
420 tony 272 Top = 150
421 tony 158 Width = 81
422 tony 272 Anchors = [akTop, akRight]
423 tony 158 Caption = 'No. of Buffers'
424     ParentColor = False
425     end
426     object PageBuffers: TEdit
427 tony 272 Left = 865
428 tony 158 Height = 24
429 tony 272 Top = 141
430 tony 158 Width = 89
431     Alignment = taRightJustify
432 tony 272 Anchors = [akTop, akRight]
433 tony 158 NumbersOnly = True
434     OnEditingDone = PageBuffersEditingDone
435 tony 209 TabOrder = 16
436 tony 158 Text = 'PageBuffers'
437     end
438 tony 272 object DateDBCreatedLabel: TLabel
439     Left = 8
440 tony 158 Height = 14
441 tony 272 Top = 180
442 tony 158 Width = 100
443 tony 267 Anchors = [akTop, akRight]
444 tony 158 Caption = 'Date DB Created'
445     ParentColor = False
446     end
447 tony 272 object DateDbCreated: TDBEdit
448     Left = 120
449 tony 158 Height = 24
450 tony 272 Top = 176
451     Width = 265
452 tony 158 DataField = 'MON$CREATION_DATE'
453     DataSource = DatabaseSource
454     ReadOnly = True
455 tony 272 Alignment = taRightJustify
456 tony 158 CharCase = ecNormal
457     MaxLength = 0
458 tony 209 TabOrder = 17
459 tony 158 end
460     object Label16: TLabel
461 tony 272 Left = 456
462 tony 158 Height = 14
463 tony 272 Top = 117
464 tony 158 Width = 75
465     Caption = 'Linger Delay'
466     ParentColor = False
467     end
468     object LingerDelay: TEdit
469 tony 229 Left = 536
470 tony 158 Height = 24
471 tony 229 Top = 112
472 tony 158 Width = 89
473     Alignment = taRightJustify
474     NumbersOnly = True
475     OnEditingDone = LingerDelayEditingDone
476 tony 209 TabOrder = 18
477 tony 158 Text = 'LingerDelay'
478     end
479     object Label17: TLabel
480     Left = 632
481     Height = 14
482 tony 229 Top = 118
483 tony 158 Width = 49
484     Caption = 'seconds'
485     ParentColor = False
486     end
487     object Label7: TLabel
488 tony 229 Left = 402
489 tony 158 Height = 14
490 tony 229 Top = 151
491 tony 158 Width = 128
492     Caption = 'S&weep Interval set to'
493     FocusControl = SweepInterval
494     ParentColor = False
495     end
496     object SweepInterval: TEdit
497 tony 229 Left = 535
498 tony 158 Height = 24
499 tony 229 Top = 144
500 tony 158 Width = 89
501     Alignment = taRightJustify
502     NumbersOnly = True
503     OnEditingDone = SweepIntervalEditingDone
504 tony 209 TabOrder = 19
505 tony 158 Text = 'SweepInterval'
506     end
507     object Label8: TLabel
508     Left = 632
509     Height = 14
510 tony 229 Top = 151
511 tony 158 Width = 74
512     Caption = 'Transactions'
513     ParentColor = False
514     end
515     object DBEdit4: TDBEdit
516 tony 229 Left = 536
517 tony 158 Height = 24
518 tony 229 Top = 16
519 tony 158 Width = 89
520     DataField = 'MON$PAGE_SIZE'
521     DataSource = DatabaseSource
522     CharCase = ecNormal
523     MaxLength = 0
524 tony 209 TabOrder = 20
525 tony 158 end
526     object Edit1: TEdit
527     Left = 121
528     Height = 24
529     Top = 16
530     Width = 263
531     ParentFont = False
532 tony 209 TabOrder = 21
533 tony 158 Text = 'Edit1'
534     end
535     object SecDatabase: TEdit
536     Left = 121
537     Height = 24
538     Top = 241
539     Width = 263
540     ReadOnly = True
541 tony 209 TabOrder = 22
542 tony 158 Text = 'SecDatabase'
543     end
544     object DBOwner: TEdit
545     Left = 120
546     Height = 24
547     Top = 208
548     Width = 264
549     ReadOnly = True
550 tony 209 TabOrder = 23
551 tony 158 Text = 'DBOwner'
552     end
553     object DatabaseAliasName: TEdit
554     Left = 121
555     Height = 24
556     Top = 48
557     Width = 264
558     ReadOnly = True
559 tony 209 TabOrder = 24
560 tony 158 Text = 'DatabaseAliasName'
561     end
562 tony 229 object Label43: TLabel
563 tony 272 Left = 400
564 tony 229 Height = 14
565 tony 272 Top = 398
566 tony 229 Width = 65
567     Caption = 'Comments'
568     ParentColor = False
569     end
570     object DBComments: TMemo
571 tony 272 Left = 400
572     Height = 82
573     Top = 414
574     Width = 549
575 tony 229 Anchors = [akTop, akLeft, akRight, akBottom]
576     Lines.Strings = (
577     'DBComments'
578     )
579     OnEditingDone = DBCommentsEditingDone
580 tony 267 ScrollBars = ssAutoVertical
581 tony 229 TabOrder = 25
582     end
583 tony 263 object ClientLibrary: TLabel
584 tony 272 Left = 873
585 tony 263 Height = 14
586 tony 272 Top = 504
587 tony 263 Width = 76
588 tony 272 Alignment = taRightJustify
589     Anchors = [akRight, akBottom]
590 tony 263 Caption = 'ClientLibrary'
591     ParentColor = False
592     end
593 tony 267 object Label44: TLabel
594 tony 272 Left = 402
595 tony 267 Height = 14
596 tony 272 Top = 272
597 tony 267 Width = 203
598     Caption = 'Client/Server Version and Protocol'
599     ParentColor = False
600     end
601     object ClientServerVersion: TMemo
602 tony 272 Left = 400
603 tony 267 Height = 104
604 tony 272 Top = 288
605     Width = 548
606 tony 267 Anchors = [akTop, akLeft, akRight]
607     Font.Height = -11
608     ParentFont = False
609     ScrollBars = ssAutoVertical
610     TabOrder = 26
611     end
612 tony 158 end
613     end
614     object FilesTab: TTabSheet
615     Caption = 'Files'
616 tony 272 ClientHeight = 519
617     ClientWidth = 970
618 tony 158 OnShow = FilesTabShow
619     object Label25: TLabel
620     Left = 16
621     Height = 14
622     Top = 16
623     Width = 129
624     Caption = 'Primary Database File'
625     ParentColor = False
626     end
627     object PrimaryDBFile: TEdit
628     Left = 16
629     Height = 24
630     Top = 32
631 tony 272 Width = 553
632 tony 158 Anchors = [akTop, akLeft, akRight]
633     ReadOnly = True
634     TabOrder = 0
635     Text = 'PrimaryDBFile'
636     end
637     object Label26: TLabel
638     Left = 16
639     Height = 14
640     Top = 72
641     Width = 93
642     Caption = 'Secondary Files'
643     ParentColor = False
644     end
645     object IBDynamicGrid1: TIBDynamicGrid
646     Left = 16
647     Height = 160
648     Top = 88
649 tony 272 Width = 842
650 tony 158 Anchors = [akTop, akLeft, akRight]
651     Color = clWindow
652     Columns = <
653     item
654     Title.Alignment = taCenter
655     Title.Caption = 'Seq'
656     Width = 40
657     FieldName = 'RDB$FILE_SEQUENCE'
658     AutoSizeColumn = False
659     InitialSortColumn = False
660     DBLookupProperties.ItemHeight = 0
661     DBLookupProperties.ItemWidth = 0
662     DBLookupProperties.AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
663     end
664     item
665     Title.Alignment = taCenter
666     Title.Caption = 'File Name'
667     Width = 200
668     FieldName = 'RDB$FILE_NAME'
669     AutoSizeColumn = True
670     InitialSortColumn = False
671     DBLookupProperties.ItemHeight = 0
672     DBLookupProperties.ItemWidth = 0
673     DBLookupProperties.AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
674     end
675     item
676     Title.Alignment = taCenter
677     Title.Caption = 'Starts'
678     Width = 80
679     FieldName = 'RDB$FILE_START'
680     AutoSizeColumn = False
681     InitialSortColumn = False
682     DBLookupProperties.ItemHeight = 0
683     DBLookupProperties.ItemWidth = 0
684     DBLookupProperties.AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
685     end
686     item
687     Title.Alignment = taCenter
688     Title.Caption = 'Length'
689     Width = 80
690     FieldName = 'RDB$FILE_LENGTH'
691     AutoSizeColumn = False
692     InitialSortColumn = False
693     DBLookupProperties.ItemHeight = 0
694     DBLookupProperties.ItemWidth = 0
695     DBLookupProperties.AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
696     end>
697     DataSource = SecDBFilesSource
698     ReadOnly = True
699     Scrollbars = ssAutoVertical
700     TabOrder = 1
701     ExpandEditorPanelBelowRow = False
702     Descending = False
703     EditorBorderStyle = bsSingle
704     DefaultPositionAtEnd = False
705     end
706     object AddFileBtn: TButton
707 tony 272 Left = 874
708 tony 158 Height = 25
709     Top = 88
710     Width = 91
711     Action = AddSecondary
712     Anchors = [akTop, akRight]
713     TabOrder = 2
714     end
715     object Label27: TLabel
716     Left = 16
717     Height = 14
718     Top = 264
719     Width = 77
720     Caption = 'Shadow Files'
721     ParentColor = False
722     end
723     object IBDynamicGrid2: TIBDynamicGrid
724     Left = 16
725     Height = 200
726     Top = 280
727 tony 272 Width = 842
728 tony 158 Anchors = [akTop, akLeft, akRight, akBottom]
729     Color = clWindow
730     Columns = <
731     item
732     Title.Alignment = taCenter
733     Title.Caption = 'Set'
734     Width = 60
735     FieldName = 'RDB$SHADOW_NUMBER'
736     AutoSizeColumn = False
737     InitialSortColumn = False
738     DBLookupProperties.ItemHeight = 0
739     DBLookupProperties.ItemWidth = 0
740     DBLookupProperties.AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
741     end
742     item
743     Title.Alignment = taCenter
744     Title.Caption = 'Seq No.'
745     Width = 60
746     FieldName = 'RDB$FILE_SEQUENCE'
747     AutoSizeColumn = False
748     InitialSortColumn = False
749     DBLookupProperties.ItemHeight = 0
750     DBLookupProperties.ItemWidth = 0
751     DBLookupProperties.AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
752     end
753     item
754     Alignment = taCenter
755     Title.Alignment = taCenter
756     Title.Caption = 'Mode'
757     Width = 50
758     FieldName = 'FileMode'
759     AutoSizeColumn = False
760     InitialSortColumn = False
761     DBLookupProperties.ItemHeight = 0
762     DBLookupProperties.ItemWidth = 0
763     DBLookupProperties.AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
764     end
765     item
766     Title.Alignment = taCenter
767     Title.Caption = 'File Name'
768     Width = 200
769     FieldName = 'RDB$FILE_NAME'
770     AutoSizeColumn = True
771     InitialSortColumn = False
772     DBLookupProperties.ItemHeight = 0
773     DBLookupProperties.ItemWidth = 0
774     DBLookupProperties.AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
775     end
776     item
777     Title.Alignment = taCenter
778     Title.Caption = 'Starts'
779     Width = 80
780     FieldName = 'RDB$FILE_START'
781     AutoSizeColumn = False
782     InitialSortColumn = False
783     DBLookupProperties.ItemHeight = 0
784     DBLookupProperties.ItemWidth = 0
785     DBLookupProperties.AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
786     end
787     item
788     Title.Alignment = taCenter
789     Title.Caption = 'Length'
790     Width = 80
791     FieldName = 'RDB$FILE_LENGTH'
792     AutoSizeColumn = False
793     InitialSortColumn = False
794     DBLookupProperties.ItemHeight = 0
795     DBLookupProperties.ItemWidth = 0
796     DBLookupProperties.AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
797     end>
798     DataSource = ShadowSource
799     ReadOnly = True
800     Scrollbars = ssAutoVertical
801     TabOrder = 3
802     ExpandEditorPanelBelowRow = False
803     Descending = False
804     EditorBorderStyle = bsSingle
805     DefaultPositionAtEnd = False
806     end
807     object AddShadowBtn: TButton
808 tony 272 Left = 874
809 tony 158 Height = 25
810     Top = 280
811     Width = 91
812     Action = AddShadowSet
813     Anchors = [akTop, akRight]
814     TabOrder = 4
815     end
816     object RemoveShadowBtn: TButton
817 tony 272 Left = 874
818 tony 158 Height = 25
819     Top = 312
820     Width = 91
821     Action = RemoveShadow
822     Anchors = [akTop, akRight]
823     TabOrder = 5
824     end
825     end
826     object AttachmentsTab: TTabSheet
827     Caption = 'Attachments'
828 tony 272 ClientHeight = 519
829     ClientWidth = 970
830 tony 158 OnHide = AttachmentsTabHide
831     OnShow = AttachmentsTabShow
832     object AttmtGrid: TIBDynamicGrid
833     Left = 0
834 tony 272 Height = 519
835 tony 158 Top = 0
836 tony 272 Width = 970
837 tony 158 Align = alClient
838     Color = clWindow
839     Columns = <
840     item
841 tony 210 ReadOnly = True
842 tony 158 Title.Alignment = taCenter
843     Title.Caption = 'ID'
844     Width = 40
845     FieldName = 'MON$ATTACHMENT_ID'
846     AutoSizeColumn = False
847     InitialSortColumn = False
848     DBLookupProperties.ItemHeight = 0
849     DBLookupProperties.ItemWidth = 0
850     DBLookupProperties.AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
851     end
852     item
853 tony 210 ReadOnly = True
854 tony 158 Title.Alignment = taCenter
855     Title.Caption = 'Connect Str'
856     Width = 100
857     FieldName = 'MON$ATTACHMENT_NAME'
858     AutoSizeColumn = True
859     InitialSortColumn = False
860     DBLookupProperties.ItemHeight = 0
861     DBLookupProperties.ItemWidth = 0
862     DBLookupProperties.AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
863     end
864     item
865 tony 210 ReadOnly = True
866 tony 158 Title.Alignment = taCenter
867     Title.Caption = 'Client'
868     Width = 120
869     FieldName = 'MON$REMOTE_HOST'
870     AutoSizeColumn = False
871     InitialSortColumn = False
872     DBLookupProperties.ItemHeight = 0
873     DBLookupProperties.ItemWidth = 0
874     DBLookupProperties.AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
875     end
876     item
877 tony 210 ReadOnly = True
878 tony 158 Title.Alignment = taCenter
879     Title.Caption = 'Client Name'
880     Width = 100
881     FieldName = 'MON$REMOTE_PROCESS'
882     AutoSizeColumn = True
883     InitialSortColumn = False
884     DBLookupProperties.ItemHeight = 0
885     DBLookupProperties.ItemWidth = 0
886     DBLookupProperties.AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
887     end
888     item
889 tony 210 ReadOnly = True
890 tony 158 Title.Alignment = taCenter
891     Title.Caption = 'User'
892     Width = 80
893     FieldName = 'MON$USER'
894     AutoSizeColumn = False
895     InitialSortColumn = False
896     DBLookupProperties.ItemHeight = 0
897     DBLookupProperties.ItemWidth = 0
898     DBLookupProperties.AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
899     end
900     item
901 tony 210 ReadOnly = True
902 tony 158 Title.Alignment = taCenter
903     Title.Caption = 'Role'
904     Width = 80
905     FieldName = 'MON$ROLE'
906     AutoSizeColumn = False
907     InitialSortColumn = False
908     DBLookupProperties.ItemHeight = 0
909     DBLookupProperties.ItemWidth = 0
910     DBLookupProperties.AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
911     end
912     item
913 tony 210 ReadOnly = True
914 tony 158 Title.Alignment = taCenter
915     Title.Caption = 'IP Address'
916     Width = 100
917     FieldName = 'MON$REMOTE_ADDRESS'
918     AutoSizeColumn = False
919     InitialSortColumn = False
920     DBLookupProperties.ItemHeight = 0
921     DBLookupProperties.ItemWidth = 0
922     DBLookupProperties.AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
923     end
924     item
925     Alignment = taCenter
926 tony 210 ReadOnly = True
927 tony 158 Title.Alignment = taCenter
928     Title.Caption = 'Protocol'
929     Width = 60
930     FieldName = 'MON$REMOTE_PROTOCOL'
931     AutoSizeColumn = False
932     InitialSortColumn = False
933     DBLookupProperties.ItemHeight = 0
934     DBLookupProperties.ItemWidth = 0
935     DBLookupProperties.AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
936     end
937     item
938 tony 210 ReadOnly = True
939 tony 158 Title.Alignment = taCenter
940     Title.Caption = 'Char Set'
941     Width = 60
942     FieldName = 'RDB$CHARACTER_SET_NAME'
943     AutoSizeColumn = False
944     InitialSortColumn = False
945     DBLookupProperties.ItemHeight = 0
946     DBLookupProperties.ItemWidth = 0
947     DBLookupProperties.AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
948     end
949     item
950     Alignment = taCenter
951 tony 210 ReadOnly = True
952 tony 158 Title.Alignment = taCenter
953     Title.Caption = 'State'
954     Width = 60
955     FieldName = 'MON$STATE'
956     AutoSizeColumn = False
957     InitialSortColumn = False
958     DBLookupProperties.ItemHeight = 0
959     DBLookupProperties.ItemWidth = 0
960     DBLookupProperties.AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
961     end>
962     DataSource = AttachSource
963 tony 210 Options = [dgTitles, dgIndicator, dgColumnResize, dgColumnMove, dgColLines, dgRowLines, dgTabs, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
964 tony 158 PopupMenu = AttmtPopup
965     Scrollbars = ssAutoVertical
966     TabOrder = 0
967     EditorPanel = AttDetailsPanel
968     ExpandEditorPanelBelowRow = True
969     Descending = False
970     EditorBorderStyle = bsSingle
971     DefaultPositionAtEnd = False
972     end
973     object AttDetailsPanel: TPanel
974     Left = 32
975     Height = 60
976     Top = 88
977     Width = 628
978     BevelInner = bvLowered
979     ClientHeight = 60
980     ClientWidth = 628
981     TabOrder = 1
982     object Label31: TLabel
983     Left = 21
984     Height = 14
985     Top = 14
986     Width = 63
987     Caption = 'Server PID'
988     ParentColor = False
989     end
990     object Label32: TLabel
991     Left = 15
992     Height = 14
993     Top = 36
994     Width = 69
995     Caption = 'Remote PID'
996     ParentColor = False
997     end
998     object DBEdit2: TDBEdit
999     Left = 88
1000     Height = 24
1001     Top = 8
1002     Width = 48
1003     DataField = 'MON$SERVER_PID'
1004     DataSource = AttachSource
1005 tony 210 ReadOnly = True
1006 tony 158 CharCase = ecNormal
1007     MaxLength = 0
1008     TabOrder = 0
1009     end
1010     object DBEdit3: TDBEdit
1011     Left = 88
1012     Height = 24
1013     Top = 32
1014     Width = 48
1015     DataField = 'MON$REMOTE_PID'
1016     DataSource = AttachSource
1017 tony 210 ReadOnly = True
1018 tony 158 CharCase = ecNormal
1019     MaxLength = 0
1020     TabOrder = 1
1021     end
1022     object DBCheckBox1: TDBCheckBox
1023     Left = 348
1024     Height = 23
1025     Top = 8
1026     Width = 202
1027     Caption = 'Garbage Collection Allowed'
1028     DataField = 'MON$GARBAGE_COLLECTION'
1029     DataSource = AttachSource
1030 tony 210 ReadOnly = True
1031 tony 158 TabOrder = 2
1032     ValueChecked = '1'
1033     ValueUnchecked = '0'
1034     end
1035     object Label35: TLabel
1036     Left = 352
1037     Height = 14
1038     Top = 36
1039     Width = 72
1040     Caption = 'Statistics ID'
1041     ParentColor = False
1042     end
1043     object DBEdit7: TDBEdit
1044     Left = 432
1045     Height = 24
1046     Top = 32
1047     Width = 64
1048     DataField = 'MON$STAT_ID'
1049     DataSource = AttachSource
1050 tony 210 ReadOnly = True
1051 tony 158 CharCase = ecNormal
1052     MaxLength = 0
1053     TabOrder = 3
1054     end
1055     object AttmntODS12Panel: TPanel
1056     Left = 154
1057     Height = 56
1058     Top = 2
1059     Width = 183
1060     BevelOuter = bvNone
1061     ClientHeight = 56
1062     ClientWidth = 183
1063     TabOrder = 4
1064     object AuthMethLabel: TLabel
1065     Left = 8
1066     Height = 14
1067     Top = 12
1068     Width = 78
1069     Caption = 'Auth Method'
1070     ParentColor = False
1071     end
1072     object RemoteOSLabel: TLabel
1073     Left = 8
1074     Height = 14
1075     Top = 34
1076     Width = 97
1077     Caption = 'Remote OS User'
1078     ParentColor = False
1079     end
1080     object AuthMethod: TDBEdit
1081     Left = 111
1082     Height = 24
1083     Top = 6
1084     Width = 64
1085     DataField = 'MON$AUTH_METHOD'
1086     DataSource = AttachSource
1087     CharCase = ecNormal
1088     MaxLength = 0
1089     TabOrder = 0
1090     end
1091     object RemoteOSUser: TDBEdit
1092     Left = 112
1093     Height = 24
1094     Top = 30
1095     Width = 63
1096     DataField = 'MON$REMOTE_OS_USER'
1097     DataSource = AttachSource
1098     CharCase = ecNormal
1099     MaxLength = 0
1100     TabOrder = 1
1101     end
1102     end
1103     end
1104     end
1105     object StatisticsTab: TTabSheet
1106     Caption = 'Statistics'
1107 tony 272 ClientHeight = 519
1108     ClientWidth = 970
1109 tony 158 OnHide = StatisticsTabHide
1110     OnShow = StatisticsTabShow
1111     object StatsOptions: TComboBox
1112 tony 272 Left = 732
1113 tony 229 Height = 27
1114 tony 158 Top = 8
1115     Width = 228
1116     Anchors = [akTop, akRight]
1117     ItemHeight = 0
1118     ItemIndex = 0
1119     Items.Strings = (
1120     'Header Only'
1121     'Performance and Operational'
1122     'Header and Data'
1123     'Header, Data and Indexes'
1124     'All'
1125     )
1126     OnCloseUp = StatsOptionsCloseUp
1127     TabOrder = 0
1128     Text = 'Header Only'
1129     end
1130     object Label28: TLabel
1131     Left = 8
1132     Height = 14
1133     Top = 24
1134     Width = 115
1135     Caption = 'Database Statistics'
1136     ParentColor = False
1137     end
1138     object StatsMemo: TMemo
1139     Left = 8
1140 tony 272 Height = 464
1141 tony 158 Top = 40
1142 tony 272 Width = 952
1143 tony 158 Anchors = [akTop, akLeft, akRight, akBottom]
1144     Lines.Strings = (
1145     'Memo1'
1146     )
1147     ScrollBars = ssAutoBoth
1148     TabOrder = 1
1149     end
1150     end
1151     object SchemaTab: TTabSheet
1152     Caption = 'Schema'
1153 tony 272 ClientHeight = 519
1154     ClientWidth = 970
1155 tony 158 OnShow = SchemaTabShow
1156     inline SynEdit1: TSynEdit
1157     Left = 0
1158     Height = 495
1159     Top = 0
1160 tony 272 Width = 970
1161 tony 158 Align = alTop
1162     Anchors = [akTop, akLeft, akRight, akBottom]
1163     Font.Height = -11
1164     Font.Name = 'DejaVu Sans Mono'
1165     Font.Pitch = fpFixed
1166     Font.Quality = fqNonAntialiased
1167     ParentColor = False
1168     ParentFont = False
1169     TabOrder = 0
1170     Gutter.Width = 55
1171     Gutter.MouseActions = <>
1172     RightGutter.Width = 0
1173     RightGutter.MouseActions = <>
1174     Highlighter = SynSQLSyn1
1175     Keystrokes = <
1176     item
1177     Command = ecUp
1178     ShortCut = 38
1179     end
1180     item
1181     Command = ecSelUp
1182     ShortCut = 8230
1183     end
1184     item
1185     Command = ecScrollUp
1186     ShortCut = 16422
1187     end
1188     item
1189     Command = ecDown
1190     ShortCut = 40
1191     end
1192     item
1193     Command = ecSelDown
1194     ShortCut = 8232
1195     end
1196     item
1197     Command = ecScrollDown
1198     ShortCut = 16424
1199     end
1200     item
1201     Command = ecLeft
1202     ShortCut = 37
1203     end
1204     item
1205     Command = ecSelLeft
1206     ShortCut = 8229
1207     end
1208     item
1209     Command = ecWordLeft
1210     ShortCut = 16421
1211     end
1212     item
1213     Command = ecSelWordLeft
1214     ShortCut = 24613
1215     end
1216     item
1217     Command = ecRight
1218     ShortCut = 39
1219     end
1220     item
1221     Command = ecSelRight
1222     ShortCut = 8231
1223     end
1224     item
1225     Command = ecWordRight
1226     ShortCut = 16423
1227     end
1228     item
1229     Command = ecSelWordRight
1230     ShortCut = 24615
1231     end
1232     item
1233     Command = ecPageDown
1234     ShortCut = 34
1235     end
1236     item
1237     Command = ecSelPageDown
1238     ShortCut = 8226
1239     end
1240     item
1241     Command = ecPageBottom
1242     ShortCut = 16418
1243     end
1244     item
1245     Command = ecSelPageBottom
1246     ShortCut = 24610
1247     end
1248     item
1249     Command = ecPageUp
1250     ShortCut = 33
1251     end
1252     item
1253     Command = ecSelPageUp
1254     ShortCut = 8225
1255     end
1256     item
1257     Command = ecPageTop
1258     ShortCut = 16417
1259     end
1260     item
1261     Command = ecSelPageTop
1262     ShortCut = 24609
1263     end
1264     item
1265     Command = ecLineStart
1266     ShortCut = 36
1267     end
1268     item
1269     Command = ecSelLineStart
1270     ShortCut = 8228
1271     end
1272     item
1273     Command = ecEditorTop
1274     ShortCut = 16420
1275     end
1276     item
1277     Command = ecSelEditorTop
1278     ShortCut = 24612
1279     end
1280     item
1281     Command = ecLineEnd
1282     ShortCut = 35
1283     end
1284     item
1285     Command = ecSelLineEnd
1286     ShortCut = 8227
1287     end
1288     item
1289     Command = ecEditorBottom
1290     ShortCut = 16419
1291     end
1292     item
1293     Command = ecSelEditorBottom
1294     ShortCut = 24611
1295     end
1296     item
1297     Command = ecToggleMode
1298     ShortCut = 45
1299     end
1300     item
1301     Command = ecCopy
1302     ShortCut = 16429
1303     end
1304     item
1305     Command = ecPaste
1306     ShortCut = 8237
1307     end
1308     item
1309     Command = ecDeleteChar
1310     ShortCut = 46
1311     end
1312     item
1313     Command = ecCut
1314     ShortCut = 8238
1315     end
1316     item
1317     Command = ecDeleteLastChar
1318     ShortCut = 8
1319     end
1320     item
1321     Command = ecDeleteLastChar
1322     ShortCut = 8200
1323     end
1324     item
1325     Command = ecDeleteLastWord
1326     ShortCut = 16392
1327     end
1328     item
1329     Command = ecUndo
1330     ShortCut = 32776
1331     end
1332     item
1333     Command = ecRedo
1334     ShortCut = 40968
1335     end
1336     item
1337     Command = ecLineBreak
1338     ShortCut = 13
1339     end
1340     item
1341     Command = ecSelectAll
1342     ShortCut = 16449
1343     end
1344     item
1345     Command = ecCopy
1346     ShortCut = 16451
1347     end
1348     item
1349     Command = ecBlockIndent
1350     ShortCut = 24649
1351     end
1352     item
1353     Command = ecLineBreak
1354     ShortCut = 16461
1355     end
1356     item
1357     Command = ecInsertLine
1358     ShortCut = 16462
1359     end
1360     item
1361     Command = ecDeleteWord
1362     ShortCut = 16468
1363     end
1364     item
1365     Command = ecBlockUnindent
1366     ShortCut = 24661
1367     end
1368     item
1369     Command = ecPaste
1370     ShortCut = 16470
1371     end
1372     item
1373     Command = ecCut
1374     ShortCut = 16472
1375     end
1376     item
1377     Command = ecDeleteLine
1378     ShortCut = 16473
1379     end
1380     item
1381     Command = ecDeleteEOL
1382     ShortCut = 24665
1383     end
1384     item
1385     Command = ecUndo
1386     ShortCut = 16474
1387     end
1388     item
1389     Command = ecRedo
1390     ShortCut = 24666
1391     end
1392     item
1393     Command = ecGotoMarker0
1394     ShortCut = 16432
1395     end
1396     item
1397     Command = ecGotoMarker1
1398     ShortCut = 16433
1399     end
1400     item
1401     Command = ecGotoMarker2
1402     ShortCut = 16434
1403     end
1404     item
1405     Command = ecGotoMarker3
1406     ShortCut = 16435
1407     end
1408     item
1409     Command = ecGotoMarker4
1410     ShortCut = 16436
1411     end
1412     item
1413     Command = ecGotoMarker5
1414     ShortCut = 16437
1415     end
1416     item
1417     Command = ecGotoMarker6
1418     ShortCut = 16438
1419     end
1420     item
1421     Command = ecGotoMarker7
1422     ShortCut = 16439
1423     end
1424     item
1425     Command = ecGotoMarker8
1426     ShortCut = 16440
1427     end
1428     item
1429     Command = ecGotoMarker9
1430     ShortCut = 16441
1431     end
1432     item
1433     Command = ecSetMarker0
1434     ShortCut = 24624
1435     end
1436     item
1437     Command = ecSetMarker1
1438     ShortCut = 24625
1439     end
1440     item
1441     Command = ecSetMarker2
1442     ShortCut = 24626
1443     end
1444     item
1445     Command = ecSetMarker3
1446     ShortCut = 24627
1447     end
1448     item
1449     Command = ecSetMarker4
1450     ShortCut = 24628
1451     end
1452     item
1453     Command = ecSetMarker5
1454     ShortCut = 24629
1455     end
1456     item
1457     Command = ecSetMarker6
1458     ShortCut = 24630
1459     end
1460     item
1461     Command = ecSetMarker7
1462     ShortCut = 24631
1463     end
1464     item
1465     Command = ecSetMarker8
1466     ShortCut = 24632
1467     end
1468     item
1469     Command = ecSetMarker9
1470     ShortCut = 24633
1471     end
1472     item
1473     Command = EcFoldLevel1
1474     ShortCut = 41009
1475     end
1476     item
1477     Command = EcFoldLevel2
1478     ShortCut = 41010
1479     end
1480     item
1481     Command = EcFoldLevel3
1482     ShortCut = 41011
1483     end
1484     item
1485     Command = EcFoldLevel4
1486     ShortCut = 41012
1487     end
1488     item
1489     Command = EcFoldLevel5
1490     ShortCut = 41013
1491     end
1492     item
1493     Command = EcFoldLevel6
1494     ShortCut = 41014
1495     end
1496     item
1497     Command = EcFoldLevel7
1498     ShortCut = 41015
1499     end
1500     item
1501     Command = EcFoldLevel8
1502     ShortCut = 41016
1503     end
1504     item
1505     Command = EcFoldLevel9
1506     ShortCut = 41017
1507     end
1508     item
1509     Command = EcFoldLevel0
1510     ShortCut = 41008
1511     end
1512     item
1513     Command = EcFoldCurrent
1514     ShortCut = 41005
1515     end
1516     item
1517     Command = EcUnFoldCurrent
1518     ShortCut = 41003
1519     end
1520     item
1521     Command = EcToggleMarkupWord
1522     ShortCut = 32845
1523     end
1524     item
1525     Command = ecNormalSelect
1526     ShortCut = 24654
1527     end
1528     item
1529     Command = ecColumnSelect
1530     ShortCut = 24643
1531     end
1532     item
1533     Command = ecLineSelect
1534     ShortCut = 24652
1535     end
1536     item
1537     Command = ecTab
1538     ShortCut = 9
1539     end
1540     item
1541     Command = ecShiftTab
1542     ShortCut = 8201
1543     end
1544     item
1545     Command = ecMatchBracket
1546     ShortCut = 24642
1547     end
1548     item
1549     Command = ecColSelUp
1550     ShortCut = 40998
1551     end
1552     item
1553     Command = ecColSelDown
1554     ShortCut = 41000
1555     end
1556     item
1557     Command = ecColSelLeft
1558     ShortCut = 40997
1559     end
1560     item
1561     Command = ecColSelRight
1562     ShortCut = 40999
1563     end
1564     item
1565     Command = ecColSelPageDown
1566     ShortCut = 40994
1567     end
1568     item
1569     Command = ecColSelPageBottom
1570     ShortCut = 57378
1571     end
1572     item
1573     Command = ecColSelPageUp
1574     ShortCut = 40993
1575     end
1576     item
1577     Command = ecColSelPageTop
1578     ShortCut = 57377
1579     end
1580     item
1581     Command = ecColSelLineStart
1582     ShortCut = 40996
1583     end
1584     item
1585     Command = ecColSelLineEnd
1586     ShortCut = 40995
1587     end
1588     item
1589     Command = ecColSelEditorTop
1590     ShortCut = 57380
1591     end
1592     item
1593     Command = ecColSelEditorBottom
1594     ShortCut = 57379
1595     end>
1596     MouseActions = <>
1597     MouseTextActions = <>
1598     MouseSelActions = <>
1599     Lines.Strings = (
1600     'SynEdit1'
1601     )
1602     VisibleSpecialChars = [vscSpace, vscTabAtLast]
1603     ReadOnly = True
1604     SelectedColor.BackPriority = 50
1605     SelectedColor.ForePriority = 50
1606     SelectedColor.FramePriority = 50
1607     SelectedColor.BoldPriority = 50
1608     SelectedColor.ItalicPriority = 50
1609     SelectedColor.UnderlinePriority = 50
1610     SelectedColor.StrikeOutPriority = 50
1611     BracketHighlightStyle = sbhsBoth
1612     BracketMatchColor.Background = clNone
1613     BracketMatchColor.Foreground = clNone
1614     BracketMatchColor.Style = [fsBold]
1615     FoldedCodeColor.Background = clNone
1616     FoldedCodeColor.Foreground = clGray
1617     FoldedCodeColor.FrameColor = clGray
1618     MouseLinkColor.Background = clNone
1619     MouseLinkColor.Foreground = clBlue
1620     LineHighlightColor.Background = clNone
1621     LineHighlightColor.Foreground = clNone
1622     inline SynLeftGutterPartList1: TSynGutterPartList
1623     object SynGutterMarks1: TSynGutterMarks
1624     Width = 24
1625     MouseActions = <>
1626     end
1627     object SynGutterLineNumber1: TSynGutterLineNumber
1628     Width = 15
1629     MouseActions = <>
1630     MarkupInfo.Background = clBtnFace
1631     MarkupInfo.Foreground = clNone
1632     DigitCount = 2
1633     ShowOnlyLineNumbersMultiplesOf = 1
1634     ZeroStart = False
1635     LeadingZeros = False
1636     end
1637     object SynGutterChanges1: TSynGutterChanges
1638     Width = 4
1639     MouseActions = <>
1640     ModifiedColor = 59900
1641     SavedColor = clGreen
1642     end
1643     object SynGutterSeparator1: TSynGutterSeparator
1644     Width = 2
1645     MouseActions = <>
1646     MarkupInfo.Background = clWhite
1647     MarkupInfo.Foreground = clGray
1648     end
1649     object SynGutterCodeFolding1: TSynGutterCodeFolding
1650     MouseActions = <>
1651     MarkupInfo.Background = clNone
1652     MarkupInfo.Foreground = clGray
1653     MouseActionsExpanded = <>
1654     MouseActionsCollapsed = <>
1655     end
1656     end
1657     end
1658     object IncludeUserGrants: TCheckBox
1659     Left = 0
1660     Height = 22
1661     Top = 494
1662     Width = 166
1663     Anchors = [akLeft, akBottom]
1664     Caption = 'Include Grants to Users'
1665     OnChange = SchemaTabShow
1666     TabOrder = 1
1667     end
1668     end
1669     object ServerTab: TTabSheet
1670     Caption = 'Server'
1671 tony 272 ClientHeight = 519
1672     ClientWidth = 970
1673 tony 158 OnHide = ServerTabHide
1674     OnShow = ServerTabShow
1675     object Panel1: TPanel
1676     Left = 0
1677 tony 272 Height = 519
1678 tony 158 Top = 0
1679 tony 272 Width = 491
1680 tony 158 Align = alLeft
1681     BevelOuter = bvNone
1682 tony 272 ClientHeight = 519
1683     ClientWidth = 491
1684 tony 158 TabOrder = 0
1685     object Label29: TLabel
1686     Left = 5
1687     Height = 14
1688     Top = 8
1689     Width = 60
1690     Caption = 'Properties'
1691     ParentColor = False
1692     end
1693 tony 272 object Label53: TLabel
1694 tony 158 Left = 8
1695 tony 272 Height = 14
1696     Top = 296
1697     Width = 98
1698     Caption = 'Open Databases'
1699     ParentColor = False
1700     end
1701     object OpenDatabasesList: TMemo
1702     Left = 8
1703     Height = 90
1704     Top = 312
1705     Width = 480
1706     Anchors = [akTop, akLeft, akRight]
1707 tony 158 Lines.Strings = (
1708 tony 272 ''
1709 tony 158 )
1710 tony 272 ScrollBars = ssAutoVertical
1711 tony 158 TabOrder = 0
1712     end
1713 tony 272 object ConfigDataLabel: TLabel
1714     Left = 8
1715     Height = 14
1716     Top = 408
1717     Width = 71
1718     Caption = 'Config Data'
1719     ParentColor = False
1720     end
1721     object ConfigDataGrid: TIBDynamicGrid
1722     Left = 8
1723     Height = 85
1724     Top = 424
1725     Width = 480
1726     Anchors = [akTop, akLeft, akRight, akBottom]
1727     Color = clWindow
1728     Columns = <
1729     item
1730     Title.Alignment = taCenter
1731     Title.Caption = 'Description'
1732     Width = 100
1733     FieldName = 'ParamDescription'
1734     AutoSizeColumn = True
1735     InitialSortColumn = False
1736     DBLookupProperties.ItemHeight = 0
1737     DBLookupProperties.ItemWidth = 0
1738     DBLookupProperties.AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
1739     end
1740     item
1741     Title.Alignment = taCenter
1742     Title.Caption = 'Value'
1743     Width = 60
1744     FieldName = 'ParamValue'
1745     AutoSizeColumn = False
1746     InitialSortColumn = False
1747     DBLookupProperties.ItemHeight = 0
1748     DBLookupProperties.ItemWidth = 0
1749     DBLookupProperties.AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
1750     end>
1751     DataSource = ConfigDataSource
1752     Scrollbars = ssAutoVertical
1753     TabOrder = 1
1754     ExpandEditorPanelBelowRow = False
1755     Descending = False
1756     EditorBorderStyle = bsSingle
1757     DefaultPositionAtEnd = False
1758     end
1759     object Panel10: TPanel
1760     Left = 6
1761     Height = 264
1762     Top = 24
1763     Width = 482
1764     Anchors = [akTop, akLeft, akRight]
1765     BevelInner = bvLowered
1766     BevelOuter = bvLowered
1767     ClientHeight = 264
1768     ClientWidth = 482
1769     Color = clWindow
1770     ParentColor = False
1771     TabOrder = 2
1772     object Label45: TLabel
1773     Left = 8
1774     Height = 14
1775     Top = 48
1776     Width = 90
1777     Caption = 'Server Version:'
1778     ParentColor = False
1779     end
1780     object Label46: TLabel
1781     Left = 8
1782     Height = 14
1783     Top = 102
1784     Width = 143
1785     Caption = 'Server Implementation:'
1786     ParentColor = False
1787     end
1788     object Label47: TLabel
1789     Left = 8
1790     Height = 14
1791     Top = 75
1792     Width = 95
1793     Caption = 'Service Version:'
1794     ParentColor = False
1795     end
1796     object Label48: TLabel
1797     Left = 8
1798     Height = 14
1799     Top = 129
1800     Width = 107
1801     Caption = 'Firebird Directory:'
1802     ParentColor = False
1803     end
1804     object Label49: TLabel
1805     Left = 8
1806     Height = 14
1807     Top = 156
1808     Width = 113
1809     Caption = 'Lock File Directory:'
1810     ParentColor = False
1811     end
1812     object Label50: TLabel
1813     Left = 8
1814     Height = 14
1815     Top = 183
1816     Width = 114
1817     Caption = 'Security Database:'
1818     ParentColor = False
1819     end
1820     object Edit2: TEdit
1821     Left = 160
1822     Height = 24
1823     Top = 44
1824     Width = 312
1825     Anchors = [akTop, akLeft, akRight]
1826     ReadOnly = True
1827     TabOrder = 0
1828     Text = 'Edit2'
1829     end
1830     object Edit3: TEdit
1831     Left = 160
1832     Height = 24
1833     Top = 71
1834     Width = 312
1835     Anchors = [akTop, akLeft, akRight]
1836     ReadOnly = True
1837     TabOrder = 1
1838     Text = 'Edit3'
1839     end
1840     object Edit4: TEdit
1841     Left = 160
1842     Height = 24
1843     Top = 98
1844     Width = 312
1845     Anchors = [akTop, akLeft, akRight]
1846     ReadOnly = True
1847     TabOrder = 2
1848     Text = 'Edit4'
1849     end
1850     object Edit5: TEdit
1851     Left = 160
1852     Height = 24
1853     Top = 125
1854     Width = 312
1855     Anchors = [akTop, akLeft, akRight]
1856     ReadOnly = True
1857     TabOrder = 3
1858     Text = 'Edit5'
1859     end
1860     object Edit6: TEdit
1861     Left = 160
1862     Height = 24
1863     Top = 152
1864     Width = 312
1865     Anchors = [akTop, akLeft, akRight]
1866     ReadOnly = True
1867     TabOrder = 4
1868     Text = 'Edit6'
1869     end
1870     object Edit7: TEdit
1871     Left = 160
1872     Height = 24
1873     Top = 179
1874     Width = 312
1875     Anchors = [akTop, akLeft, akRight]
1876     ReadOnly = True
1877     TabOrder = 5
1878     Text = 'Edit7'
1879     end
1880     object Label51: TLabel
1881     Left = 8
1882     Height = 14
1883     Top = 21
1884     Width = 78
1885     Caption = 'Server Name'
1886     ParentColor = False
1887     end
1888     object Edit8: TEdit
1889     Left = 160
1890     Height = 24
1891     Top = 16
1892     Width = 312
1893     Anchors = [akTop, akLeft, akRight]
1894     ReadOnly = True
1895     TabOrder = 6
1896     Text = 'Edit8'
1897     end
1898     object Label52: TLabel
1899     Left = 8
1900     Height = 14
1901     Top = 212
1902     Width = 142
1903     Caption = 'Messages File Directory:'
1904     ParentColor = False
1905     end
1906     object Edit9: TEdit
1907     Left = 160
1908     Height = 24
1909     Top = 208
1910     Width = 312
1911     Anchors = [akTop, akLeft, akRight]
1912     ReadOnly = True
1913     TabOrder = 7
1914     Text = 'Edit9'
1915     end
1916     object Edit12: TEdit
1917     Left = 160
1918     Height = 24
1919     Top = 236
1920     Width = 312
1921     ReadOnly = True
1922     TabOrder = 8
1923     Text = 'Edit12'
1924     end
1925     object Label54: TLabel
1926     Left = 8
1927     Height = 14
1928     Top = 240
1929     Width = 117
1930     Caption = 'No. of Attachments'
1931     ParentColor = False
1932     end
1933     end
1934 tony 158 end
1935     object Splitter1: TSplitter
1936 tony 272 Left = 491
1937     Height = 519
1938 tony 158 Top = 0
1939     Width = 5
1940     end
1941     object Panel2: TPanel
1942 tony 272 Left = 496
1943     Height = 519
1944 tony 158 Top = 0
1945 tony 272 Width = 474
1946 tony 158 Align = alClient
1947     BevelOuter = bvNone
1948 tony 272 ClientHeight = 519
1949     ClientWidth = 474
1950 tony 158 TabOrder = 2
1951     object Label30: TLabel
1952     Left = 8
1953     Height = 14
1954     Top = 8
1955     Width = 65
1956     Caption = 'Server Log'
1957     ParentColor = False
1958     end
1959     object ServerLog: TMemo
1960     Left = 8
1961 tony 272 Height = 484
1962 tony 158 Top = 26
1963 tony 272 Width = 456
1964 tony 158 Anchors = [akTop, akLeft, akRight, akBottom]
1965     Lines.Strings = (
1966     'ServerLog'
1967     )
1968     ScrollBars = ssAutoBoth
1969     TabOrder = 0
1970     end
1971     end
1972     end
1973     object UserManagerTab: TTabSheet
1974     Caption = 'User Manager'
1975 tony 272 ClientHeight = 519
1976     ClientWidth = 970
1977 tony 158 OnHide = UserManagerTabHide
1978     OnShow = UserManagerTabShow
1979     object Panel4: TPanel
1980     Left = 0
1981 tony 272 Height = 519
1982 tony 158 Top = 0
1983 tony 272 Width = 827
1984 tony 158 Align = alLeft
1985 tony 272 ClientHeight = 519
1986     ClientWidth = 827
1987 tony 158 TabOrder = 0
1988     object UserManagerGrid: TIBDynamicGrid
1989     Left = 1
1990 tony 272 Height = 517
1991 tony 158 Top = 1
1992 tony 272 Width = 825
1993 tony 158 Align = alClient
1994     Color = clWindow
1995     Columns = <
1996     item
1997     ReadOnly = True
1998     Title.Alignment = taCenter
1999     Title.Caption = 'User Name'
2000     Width = 120
2001 tony 209 FieldName = 'SEC$USER_NAME'
2002 tony 158 AutoSizeColumn = False
2003     InitialSortColumn = False
2004     DBLookupProperties.ItemHeight = 0
2005     DBLookupProperties.ItemWidth = 0
2006     DBLookupProperties.AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
2007     end
2008     item
2009     Title.Alignment = taCenter
2010     Title.Caption = 'First Name'
2011     Width = 80
2012     FieldName = 'SEC$FIRST_NAME'
2013     AutoSizeColumn = True
2014     InitialSortColumn = False
2015     DBLookupProperties.ItemHeight = 0
2016     DBLookupProperties.ItemWidth = 0
2017     DBLookupProperties.AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
2018     end
2019     item
2020     Title.Alignment = taCenter
2021     Title.Caption = 'Middle Name'
2022     Width = 85
2023     FieldName = 'SEC$MIDDLE_NAME'
2024     AutoSizeColumn = False
2025     InitialSortColumn = False
2026     DBLookupProperties.ItemHeight = 0
2027     DBLookupProperties.ItemWidth = 0
2028     DBLookupProperties.AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
2029     end
2030     item
2031     Title.Alignment = taCenter
2032     Title.Caption = 'Last Name'
2033     Width = 80
2034     FieldName = 'SEC$LAST_NAME'
2035     AutoSizeColumn = True
2036     InitialSortColumn = False
2037     DBLookupProperties.ItemHeight = 0
2038     DBLookupProperties.ItemWidth = 0
2039     DBLookupProperties.AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
2040     end
2041     item
2042     Alignment = taCenter
2043     Title.Alignment = taCenter
2044     Title.Caption = 'Active'
2045     Width = 55
2046     FieldName = 'SEC$ACTIVE'
2047     AutoSizeColumn = False
2048     InitialSortColumn = False
2049     DBLookupProperties.ItemHeight = 0
2050     DBLookupProperties.ItemWidth = 0
2051     DBLookupProperties.AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
2052     end
2053     item
2054     Alignment = taCenter
2055     Title.Alignment = taCenter
2056     Title.Caption = 'Admin'
2057     Width = 55
2058     FieldName = 'SEC$ADMIN'
2059     AutoSizeColumn = False
2060     InitialSortColumn = False
2061     DBLookupProperties.ItemHeight = 0
2062     DBLookupProperties.ItemWidth = 0
2063     DBLookupProperties.AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
2064     end
2065     item
2066     Title.Alignment = taCenter
2067     Title.Caption = 'DB Creator'
2068     Width = 70
2069     FieldName = 'DBCREATOR'
2070     AutoSizeColumn = False
2071     InitialSortColumn = False
2072     DBLookupProperties.ItemHeight = 0
2073     DBLookupProperties.ItemWidth = 0
2074     DBLookupProperties.AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
2075     end
2076     item
2077     Alignment = taCenter
2078     ReadOnly = True
2079     Title.Alignment = taCenter
2080     Title.Caption = 'Logged In'
2081     Width = 70
2082     FieldName = 'LOGGEDIN'
2083     AutoSizeColumn = False
2084     InitialSortColumn = False
2085     DBLookupProperties.ItemHeight = 0
2086     DBLookupProperties.ItemWidth = 0
2087     DBLookupProperties.AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
2088     end
2089     item
2090     ButtonStyle = cbsPickList
2091     PickList.Strings = (
2092     'Srp'
2093     'Legacy_UserManager'
2094     )
2095     Title.Alignment = taCenter
2096     Title.Caption = 'User Manager'
2097     Width = 100
2098     FieldName = 'SEC$PLUGIN'
2099     AutoSizeColumn = False
2100     InitialSortColumn = False
2101     DBLookupProperties.ItemHeight = 0
2102     DBLookupProperties.ItemWidth = 0
2103     DBLookupProperties.AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
2104     end
2105     item
2106     Title.Alignment = taCenter
2107     Title.Caption = 'UID'
2108     Width = 40
2109     FieldName = 'USERID'
2110     AutoSizeColumn = False
2111     InitialSortColumn = False
2112     DBLookupProperties.ItemHeight = 0
2113     DBLookupProperties.ItemWidth = 0
2114     DBLookupProperties.AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
2115     end
2116     item
2117     Title.Alignment = taCenter
2118     Title.Caption = 'GID'
2119     Width = 40
2120     FieldName = 'GROUPID'
2121     AutoSizeColumn = False
2122     InitialSortColumn = False
2123     DBLookupProperties.ItemHeight = 0
2124     DBLookupProperties.ItemWidth = 0
2125     DBLookupProperties.AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
2126     end>
2127     DataSource = UserListSource
2128     PopupMenu = UserPopup
2129     Scrollbars = ssAutoVertical
2130     TabOrder = 0
2131     ExpandEditorPanelBelowRow = False
2132     Descending = False
2133     EditorBorderStyle = bsSingle
2134     DefaultPositionAtEnd = False
2135 tony 209 IndexFieldNames = 'SEC$USER_NAME'
2136 tony 158 end
2137     end
2138     object Splitter2: TSplitter
2139 tony 272 Left = 827
2140     Height = 519
2141 tony 158 Top = 0
2142     Width = 5
2143     end
2144     object Panel3: TPanel
2145 tony 272 Left = 832
2146     Height = 519
2147 tony 158 Top = 0
2148 tony 272 Width = 138
2149 tony 158 Align = alClient
2150     BevelOuter = bvNone
2151 tony 272 ClientHeight = 519
2152     ClientWidth = 138
2153 tony 158 TabOrder = 2
2154 tony 272 object RolesGrid: TIBDynamicGrid
2155 tony 158 Left = 0
2156     Height = 161
2157     Top = 50
2158 tony 272 Width = 138
2159 tony 158 Align = alTop
2160     Color = clWindow
2161     Columns = <
2162     item
2163     ButtonStyle = cbsCheckboxColumn
2164     Title.Caption = ''
2165     Width = 30
2166     FieldName = 'GRANTED'
2167     AutoSizeColumn = False
2168     InitialSortColumn = False
2169     DBLookupProperties.ItemHeight = 0
2170     DBLookupProperties.ItemWidth = 0
2171     DBLookupProperties.AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
2172     end
2173     item
2174     Title.Alignment = taCenter
2175     Title.Caption = 'Role'
2176     Width = 70
2177     FieldName = 'RDB$ROLE_NAME'
2178     AutoSizeColumn = True
2179     InitialSortColumn = False
2180     DBLookupProperties.ItemHeight = 0
2181     DBLookupProperties.ItemWidth = 0
2182     DBLookupProperties.AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
2183     end>
2184     DataSource = RoleSource
2185     Options = [dgEditing, dgIndicator, dgColumnResize, dgColumnMove, dgRowLines, dgTabs, dgConfirmDelete, dgCancelOnExit, dgDisableDelete, dgDisableInsert]
2186     Scrollbars = ssAutoVertical
2187     TabOrder = 0
2188     ExpandEditorPanelBelowRow = False
2189     Descending = False
2190     EditorBorderStyle = bsSingle
2191     DefaultPositionAtEnd = False
2192     end
2193     object Panel5: TPanel
2194     Left = 0
2195     Height = 61
2196 tony 272 Top = 458
2197     Width = 138
2198 tony 158 Align = alBottom
2199     BevelInner = bvLowered
2200     BevelOuter = bvLowered
2201     ClientHeight = 61
2202 tony 272 ClientWidth = 138
2203 tony 158 TabOrder = 1
2204     object Button1: TButton
2205     Left = 16
2206     Height = 28
2207     Top = 16
2208 tony 272 Width = 111
2209 tony 158 Action = SaveChanges
2210     Anchors = [akTop, akLeft, akRight]
2211     TabOrder = 0
2212     end
2213     end
2214 tony 272 object RolesHeaderPanel: TPanel
2215 tony 158 Left = 0
2216     Height = 50
2217     Top = 0
2218 tony 272 Width = 138
2219 tony 158 Align = alTop
2220     BevelInner = bvLowered
2221     BevelOuter = bvLowered
2222     ClientHeight = 50
2223 tony 272 ClientWidth = 138
2224 tony 158 TabOrder = 2
2225     object DBText1: TDBText
2226     Left = 10
2227     Height = 14
2228     Top = 30
2229     Width = 49
2230 tony 209 DataField = 'SEC$USER_NAME'
2231 tony 158 DataSource = UserListSource
2232     ParentColor = False
2233     end
2234     object Label36: TLabel
2235     Left = 10
2236     Height = 14
2237     Top = 10
2238     Width = 104
2239     Caption = 'Roles Assigned to'
2240     ParentColor = False
2241     end
2242     end
2243     object Splitter3: TSplitter
2244     Cursor = crVSplit
2245     Left = 0
2246     Height = 5
2247     Top = 211
2248 tony 272 Width = 138
2249 tony 158 Align = alTop
2250     ResizeAnchor = akTop
2251     end
2252     object TagsHeader: TPanel
2253     Left = 0
2254     Height = 26
2255     Top = 216
2256 tony 272 Width = 138
2257 tony 158 Align = alTop
2258     BevelInner = bvRaised
2259     Caption = 'Tags'
2260     TabOrder = 4
2261     end
2262     object TagsGrid: TIBDynamicGrid
2263     Left = 0
2264 tony 272 Height = 211
2265 tony 158 Top = 242
2266 tony 272 Width = 138
2267 tony 158 Align = alClient
2268     Color = clWindow
2269     Columns = <
2270     item
2271     Title.Alignment = taCenter
2272     Title.Caption = 'Key'
2273     Width = 60
2274     FieldName = 'SEC$KEY'
2275     AutoSizeColumn = False
2276     InitialSortColumn = False
2277     DBLookupProperties.ItemHeight = 0
2278     DBLookupProperties.ItemWidth = 0
2279     DBLookupProperties.AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
2280     end
2281     item
2282     Title.Alignment = taCenter
2283     Title.Caption = 'Value'
2284     Width = 60
2285     FieldName = 'SEC$VALUE'
2286     AutoSizeColumn = True
2287     InitialSortColumn = False
2288     DBLookupProperties.ItemHeight = 0
2289     DBLookupProperties.ItemWidth = 0
2290     DBLookupProperties.AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
2291     end>
2292     DataSource = UserTagsSource
2293     PopupMenu = UserTagPopup
2294     Scrollbars = ssAutoVertical
2295     TabOrder = 5
2296     ExpandEditorPanelBelowRow = False
2297     Descending = False
2298     EditorBorderStyle = bsSingle
2299     DefaultPositionAtEnd = False
2300     end
2301     object Splitter4: TSplitter
2302     Cursor = crVSplit
2303     Left = 0
2304     Height = 5
2305 tony 272 Top = 453
2306     Width = 138
2307 tony 158 Align = alBottom
2308     ResizeAnchor = akBottom
2309     end
2310     end
2311     end
2312     object AccessRightsTab: TTabSheet
2313     Caption = 'Access Rights'
2314 tony 272 ClientHeight = 519
2315     ClientWidth = 970
2316 tony 158 OnHide = AccessRightsTabHide
2317     OnShow = AccessRightsTabShow
2318     object AccessRightsTreeView: TIBTreeView
2319     Left = 0
2320 tony 272 Height = 519
2321 tony 158 Top = 0
2322     Width = 300
2323     Align = alLeft
2324     TextField = 'DisplayName'
2325     DataSource = AccessRightsSource
2326     Images = MenuImages
2327     HasChildField = 'CHILDCOUNT'
2328     ImageIndexField = 'ImageIndex'
2329     SelectedIndexField = 'ImageIndex'
2330     KeyField = 'ID'
2331     ParentField = 'PARENT'
2332     PopupMenu = AccessRightsPopup
2333 tony 213 ReadOnly = True
2334 tony 158 TabOrder = 0
2335     OnSelectionChanged = AccessRightsTreeViewSelectionChanged
2336 tony 213 Options = [tvoAutoItemHeight, tvoHideSelection, tvoKeepCollapsedNodes, tvoReadOnly, tvoShowButtons, tvoShowLines, tvoShowRoot, tvoToolTips, tvoThemedDraw]
2337 tony 158 end
2338     object Splitter5: TSplitter
2339     Left = 300
2340 tony 272 Height = 519
2341 tony 158 Top = 0
2342     Width = 5
2343     end
2344     object SubjectAccessRightsGrid: TIBDynamicGrid
2345     Left = 305
2346 tony 272 Height = 519
2347 tony 158 Top = 0
2348 tony 272 Width = 665
2349 tony 158 Align = alClient
2350     Color = clWindow
2351     Columns = <
2352     item
2353     Title.Alignment = taCenter
2354     Title.Caption = 'Type'
2355     Width = 100
2356     FieldName = 'OBJECT_TYPE_NAME'
2357     AutoSizeColumn = False
2358     InitialSortColumn = False
2359     DBLookupProperties.ItemHeight = 0
2360     DBLookupProperties.ItemWidth = 0
2361     DBLookupProperties.AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
2362     end
2363     item
2364     Title.Alignment = taCenter
2365     Title.Caption = 'Object'
2366     Width = 150
2367     FieldName = 'OBJECT_NAME'
2368     AutoSizeColumn = True
2369     InitialSortColumn = True
2370     DBLookupProperties.ItemHeight = 0
2371     DBLookupProperties.ItemWidth = 0
2372     DBLookupProperties.AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
2373     end
2374     item
2375     Title.Alignment = taCenter
2376     Title.Caption = 'Granted'
2377     Width = 80
2378     FieldName = 'GRANTED_PRIVILEGES'
2379     AutoSizeColumn = False
2380     InitialSortColumn = False
2381     DBLookupProperties.ItemHeight = 0
2382     DBLookupProperties.ItemWidth = 0
2383     DBLookupProperties.AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
2384     end
2385     item
2386     Title.Alignment = taCenter
2387     Title.Caption = 'Granted By'
2388     Width = 80
2389     FieldName = 'GRANTEDBY'
2390     AutoSizeColumn = False
2391     InitialSortColumn = False
2392     DBLookupProperties.ItemHeight = 0
2393     DBLookupProperties.ItemWidth = 0
2394     DBLookupProperties.AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
2395     end
2396     item
2397     ButtonStyle = cbsCheckboxColumn
2398     Title.Caption = 'Grant Opt'
2399 tony 272 Width = 80
2400 tony 158 FieldName = 'GRANT_OPTION'
2401     AutoSizeColumn = False
2402     InitialSortColumn = False
2403     DBLookupProperties.ItemHeight = 0
2404     DBLookupProperties.ItemWidth = 0
2405     DBLookupProperties.AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
2406     end>
2407     DataSource = SubjectAccessRightsSource
2408     Scrollbars = ssAutoVertical
2409     TabOrder = 2
2410     EditorPanel = UpdateColsPanel
2411     ExpandEditorPanelBelowRow = True
2412     Descending = False
2413     EditorBorderStyle = bsSingle
2414     DefaultPositionAtEnd = False
2415     end
2416     end
2417     object MappingsTab: TTabSheet
2418     Caption = 'Auth Mappings'
2419 tony 272 ClientHeight = 519
2420     ClientWidth = 970
2421 tony 158 OnHide = MappingsTabHide
2422     OnShow = MappingsTabShow
2423     object IBDynamicGrid5: TIBDynamicGrid
2424     Left = 0
2425 tony 209 Height = 492
2426     Top = 24
2427 tony 272 Width = 973
2428 tony 209 Anchors = [akTop, akLeft, akRight, akBottom]
2429 tony 158 Color = clWindow
2430     Columns = <
2431     item
2432     Title.Alignment = taCenter
2433     Title.Caption = 'Name'
2434     Width = 200
2435     FieldName = 'RDB$MAP_NAME'
2436     AutoSizeColumn = False
2437     InitialSortColumn = False
2438     DBLookupProperties.ItemHeight = 0
2439     DBLookupProperties.ItemWidth = 0
2440     DBLookupProperties.AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
2441     end
2442     item
2443     Title.Alignment = taCenter
2444     Title.Caption = 'Type'
2445     Width = 60
2446     FieldName = 'MAPTYPE'
2447     AutoSizeColumn = False
2448     InitialSortColumn = False
2449     DBLookupProperties.ItemHeight = 0
2450     DBLookupProperties.ItemWidth = 0
2451     DBLookupProperties.AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
2452     end
2453     item
2454     Title.Alignment = taCenter
2455     Title.Caption = 'Using'
2456     Width = 150
2457     FieldName = 'MAP_USING'
2458     AutoSizeColumn = False
2459     InitialSortColumn = False
2460     DBLookupProperties.ItemHeight = 0
2461     DBLookupProperties.ItemWidth = 0
2462     DBLookupProperties.AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
2463     end
2464     item
2465     Title.Alignment = taCenter
2466     Title.Caption = 'Database'
2467 tony 263 Width = 120
2468 tony 158 FieldName = 'RDB$MAP_DB'
2469     AutoSizeColumn = False
2470     InitialSortColumn = False
2471     DBLookupProperties.ItemHeight = 0
2472     DBLookupProperties.ItemWidth = 0
2473     DBLookupProperties.AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
2474     end
2475     item
2476     Title.Alignment = taCenter
2477     Title.Caption = 'Mapping From'
2478 tony 263 Width = 120
2479 tony 158 FieldName = 'MAP_FROM'
2480     AutoSizeColumn = False
2481     InitialSortColumn = False
2482     DBLookupProperties.ItemHeight = 0
2483     DBLookupProperties.ItemWidth = 0
2484     DBLookupProperties.AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
2485     end
2486     item
2487     Title.Alignment = taCenter
2488     Title.Caption = 'Mapping To'
2489 tony 263 Width = 120
2490 tony 158 FieldName = 'MAP_TO'
2491     AutoSizeColumn = False
2492     InitialSortColumn = False
2493     DBLookupProperties.ItemHeight = 0
2494     DBLookupProperties.ItemWidth = 0
2495     DBLookupProperties.AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
2496     end
2497     item
2498     Title.Alignment = taCenter
2499     Title.Caption = 'Description'
2500     Width = 80
2501     FieldName = 'RDB$DESCRIPTION'
2502     AutoSizeColumn = True
2503     InitialSortColumn = False
2504     DBLookupProperties.ItemHeight = 0
2505     DBLookupProperties.ItemWidth = 0
2506     DBLookupProperties.AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
2507     end>
2508     DataSource = AuthMapSource
2509     Scrollbars = ssAutoVertical
2510     TabOrder = 0
2511     ExpandEditorPanelBelowRow = False
2512     Descending = False
2513     EditorBorderStyle = bsSingle
2514     DefaultPositionAtEnd = False
2515     end
2516 tony 209 object AutoAdmin: TCheckBox
2517 tony 272 Left = 816
2518 tony 209 Height = 22
2519     Top = 2
2520     Width = 151
2521     Anchors = [akTop, akRight]
2522     Caption = 'Auto Admin Mapping'
2523     OnChange = AutoAdminChange
2524     TabOrder = 1
2525     end
2526 tony 158 end
2527     object RepairTab: TTabSheet
2528     Caption = 'Database Repair'
2529 tony 272 ClientHeight = 519
2530     ClientWidth = 970
2531 tony 158 OnHide = RepairTabHide
2532     OnShow = RepairTabShow
2533     object SelectRepairAction: TComboBox
2534 tony 272 Left = 712
2535 tony 229 Height = 27
2536 tony 158 Top = 8
2537     Width = 200
2538     Anchors = [akTop, akRight]
2539     ItemHeight = 0
2540     ItemIndex = 0
2541     Items.Strings = (
2542     'Database Sweep'
2543     'Online Validation'
2544     'Database Validation'
2545     'Kill Shadows'
2546     )
2547     OnCloseUp = SelectRepairActionCloseUp
2548     TabOrder = 0
2549     Text = 'Database Sweep'
2550     end
2551     object Button2: TButton
2552 tony 272 Left = 920
2553 tony 158 Height = 25
2554     Top = 9
2555     Width = 35
2556     Action = RunRepair
2557     Anchors = [akTop, akRight]
2558     TabOrder = 1
2559     end
2560     object ValidateOptions: TPageControl
2561     Left = 6
2562     Height = 108
2563     Top = 7
2564     Width = 322
2565     ActivePage = RepairOptionsTab
2566     ShowTabs = False
2567     TabIndex = 1
2568     TabOrder = 2
2569     object ValidateOptionsTab: TTabSheet
2570     Caption = 'ValidateOptionsTab'
2571 tony 231 ClientHeight = 104
2572     ClientWidth = 318
2573 tony 158 object Label33: TLabel
2574     Left = 5
2575     Height = 14
2576     Top = 9
2577     Width = 108
2578     Caption = 'Validation Options'
2579     ParentColor = False
2580     end
2581     object RecordFragments: TCheckBox
2582     Left = 32
2583     Height = 22
2584     Top = 29
2585     Width = 184
2586     Caption = 'Validate Record Fragments'
2587     Checked = True
2588     State = cbChecked
2589     TabOrder = 0
2590     end
2591     object ReadOnlyValidation: TCheckBox
2592     Left = 32
2593     Height = 22
2594     Top = 51
2595     Width = 146
2596     Caption = 'Read Only Validation'
2597     TabOrder = 1
2598     end
2599     object IgnoreChecksums: TCheckBox
2600     Left = 32
2601     Height = 22
2602     Top = 73
2603     Width = 136
2604     Caption = 'Ignore Checksums'
2605     TabOrder = 2
2606     end
2607     end
2608     object RepairOptionsTab: TTabSheet
2609     Caption = 'RepairOptionsTab'
2610 tony 231 ClientHeight = 104
2611     ClientWidth = 318
2612 tony 158 object Label34: TLabel
2613     Left = 10
2614     Height = 40
2615     Top = 8
2616     Width = 294
2617     AutoSize = False
2618     Caption = 'If errors have been reported, you should now select the repair options and click on repair'
2619     ParentColor = False
2620     WordWrap = True
2621     end
2622     object ValidateRepairRecordFragments: TCheckBox
2623     Left = 16
2624 tony 229 Height = 22
2625 tony 158 Top = 48
2626 tony 229 Width = 184
2627 tony 158 Caption = 'Validate Record Fragments'
2628     Checked = True
2629     State = cbChecked
2630     TabOrder = 0
2631     end
2632     object IgnoreChecksumsOnRepair: TCheckBox
2633     Left = 16
2634 tony 229 Height = 22
2635 tony 158 Top = 71
2636 tony 229 Width = 170
2637 tony 158 Caption = 'Ignore Checksum Errors'
2638     TabOrder = 1
2639     end
2640     object Button7: TButton
2641     Left = 231
2642     Height = 25
2643     Top = 70
2644     Width = 75
2645     Action = Phase2Repair
2646     TabOrder = 2
2647     end
2648     end
2649     end
2650     object Panel8: TPanel
2651     Left = 10
2652 tony 209 Height = 384
2653 tony 158 Top = 123
2654 tony 272 Width = 950
2655 tony 158 Anchors = [akTop, akLeft, akRight, akBottom]
2656     BevelOuter = bvNone
2657     Caption = 'ValidationPanel'
2658 tony 209 ClientHeight = 384
2659 tony 272 ClientWidth = 950
2660 tony 158 TabOrder = 3
2661     object DBTablesPanel: TPanel
2662     Left = 0
2663 tony 209 Height = 384
2664 tony 158 Top = 0
2665     Width = 170
2666     Align = alLeft
2667     BevelOuter = bvNone
2668 tony 209 ClientHeight = 384
2669 tony 158 ClientWidth = 170
2670     TabOrder = 0
2671     object Alltables: TRadioButton
2672     Left = 9
2673 tony 229 Height = 22
2674 tony 158 Top = 32
2675 tony 229 Width = 78
2676 tony 158 Caption = 'All Tables'
2677     Checked = True
2678     OnChange = SelectedTablesOnlyChange
2679     TabOrder = 0
2680     TabStop = True
2681     end
2682     object SelectedTablesOnly: TRadioButton
2683     Left = 9
2684 tony 229 Height = 22
2685 tony 158 Top = 56
2686 tony 229 Width = 147
2687 tony 158 Caption = 'Selected Tables Only'
2688     OnChange = SelectedTablesOnlyChange
2689     TabOrder = 1
2690     end
2691     object SelectedTablesGrid: TIBDynamicGrid
2692     Left = 0
2693 tony 209 Height = 271
2694 tony 158 Top = 90
2695     Width = 170
2696     Anchors = [akTop, akLeft, akRight, akBottom]
2697     Color = clWindow
2698     Columns = <
2699     item
2700     ButtonStyle = cbsCheckboxColumn
2701     Title.Caption = 'SELECTED'
2702     Width = 30
2703     FieldName = 'SELECTED'
2704     AutoSizeColumn = False
2705     InitialSortColumn = False
2706     DBLookupProperties.ItemHeight = 0
2707     DBLookupProperties.ItemWidth = 0
2708     DBLookupProperties.AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
2709     end
2710     item
2711     Title.Caption = 'RDB$RELATION_NAME'
2712     Width = 80
2713     FieldName = 'RDB$RELATION_NAME'
2714     AutoSizeColumn = True
2715     InitialSortColumn = True
2716     DBLookupProperties.ItemHeight = 0
2717     DBLookupProperties.ItemWidth = 0
2718     DBLookupProperties.AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
2719     end>
2720     DataSource = DBTablesSource
2721     FixedCols = 0
2722     Options = [dgEditing, dgColumnResize, dgColumnMove, dgRowLines, dgTabs, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
2723     Scrollbars = ssAutoVertical
2724     TabOrder = 2
2725     ExpandEditorPanelBelowRow = False
2726     Descending = False
2727     EditorBorderStyle = bsSingle
2728     DefaultPositionAtEnd = False
2729     end
2730     object Label40: TLabel
2731     Left = 9
2732 tony 229 Height = 14
2733 tony 158 Top = 7
2734 tony 229 Width = 47
2735 tony 158 Caption = 'Validate'
2736     ParentColor = False
2737     end
2738     object SelectAllTables: TCheckBox
2739     Left = 0
2740 tony 229 Height = 22
2741     Top = 363
2742     Width = 134
2743 tony 158 Anchors = [akLeft, akBottom]
2744     Caption = 'Select/Deselect All'
2745     OnChange = SelectAllTablesChange
2746     TabOrder = 3
2747     end
2748     end
2749     object DBTablesSplitter: TSplitter
2750     Left = 170
2751 tony 209 Height = 384
2752 tony 158 Top = 0
2753     Width = 5
2754     end
2755     object Panel9: TPanel
2756     Left = 175
2757 tony 209 Height = 384
2758 tony 158 Top = 0
2759 tony 272 Width = 775
2760 tony 158 Align = alClient
2761     BevelOuter = bvNone
2762 tony 209 ClientHeight = 384
2763 tony 272 ClientWidth = 775
2764 tony 158 TabOrder = 2
2765     object Label37: TLabel
2766     Left = 0
2767 tony 229 Height = 14
2768 tony 158 Top = 8
2769 tony 229 Width = 101
2770 tony 158 Caption = 'Validation Report'
2771     ParentColor = False
2772     end
2773     object ValidationReport: TMemo
2774     Left = 0
2775 tony 272 Height = 359
2776     Top = 25
2777     Width = 775
2778 tony 158 Align = alBottom
2779     Anchors = [akTop, akLeft, akRight, akBottom]
2780     Lines.Strings = (
2781     'ValidationReport'
2782     )
2783     ScrollBars = ssAutoBoth
2784     TabOrder = 0
2785     end
2786     end
2787     end
2788     end
2789     object LimboTab: TTabSheet
2790     Caption = 'Limbo Transactions'
2791 tony 272 ClientHeight = 519
2792     ClientWidth = 970
2793 tony 158 OnHide = LimboTabHide
2794     OnShow = LimboTabShow
2795     object Label38: TLabel
2796     Left = 12
2797     Height = 14
2798     Top = 8
2799     Width = 74
2800     Caption = 'Transactions'
2801     ParentColor = False
2802     end
2803     object IBDynamicGrid3: TIBDynamicGrid
2804     Left = 13
2805     Height = 242
2806     Top = 24
2807 tony 272 Width = 947
2808 tony 158 Anchors = [akTop, akLeft, akRight]
2809     Color = clWindow
2810     Columns = <
2811     item
2812     ReadOnly = True
2813     Title.Alignment = taCenter
2814     Title.Caption = 'ID'
2815     Width = 60
2816     FieldName = 'TransactionID'
2817     AutoSizeColumn = False
2818     InitialSortColumn = False
2819     DBLookupProperties.ItemHeight = 0
2820     DBLookupProperties.ItemWidth = 0
2821     DBLookupProperties.AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
2822     end
2823     item
2824     ReadOnly = True
2825     Title.Alignment = taCenter
2826     Title.Caption = 'Type'
2827     Width = 80
2828     FieldName = 'TransactionType'
2829     AutoSizeColumn = False
2830     InitialSortColumn = False
2831     DBLookupProperties.ItemHeight = 0
2832     DBLookupProperties.ItemWidth = 0
2833     DBLookupProperties.AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
2834     end
2835     item
2836     ReadOnly = True
2837     Title.Alignment = taCenter
2838     Title.Caption = 'Host Site'
2839     Width = 100
2840     FieldName = 'HostSite'
2841     AutoSizeColumn = False
2842     InitialSortColumn = False
2843     DBLookupProperties.ItemHeight = 0
2844     DBLookupProperties.ItemWidth = 0
2845     DBLookupProperties.AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
2846     end
2847     item
2848     ReadOnly = True
2849     Title.Alignment = taCenter
2850     Title.Caption = 'Remote Site'
2851     Width = 100
2852     FieldName = 'RemoteSite'
2853     AutoSizeColumn = False
2854     InitialSortColumn = False
2855     DBLookupProperties.ItemHeight = 0
2856     DBLookupProperties.ItemWidth = 0
2857     DBLookupProperties.AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
2858     end
2859     item
2860     ReadOnly = True
2861     Title.Alignment = taCenter
2862     Title.Caption = 'Database Path'
2863     Width = 150
2864     FieldName = 'DatabasePath'
2865     AutoSizeColumn = True
2866     InitialSortColumn = False
2867     DBLookupProperties.ItemHeight = 0
2868     DBLookupProperties.ItemWidth = 0
2869     DBLookupProperties.AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
2870     end
2871     item
2872     ReadOnly = True
2873     Title.Alignment = taCenter
2874     Title.Caption = 'State'
2875     Width = 80
2876     FieldName = 'State'
2877     AutoSizeColumn = False
2878     InitialSortColumn = False
2879     DBLookupProperties.ItemHeight = 0
2880     DBLookupProperties.ItemWidth = 0
2881     DBLookupProperties.AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
2882     end
2883     item
2884     ReadOnly = True
2885     Title.Alignment = taCenter
2886     Title.Caption = 'Rec. Action'
2887     Width = 100
2888     FieldName = 'RecommendedAction'
2889     AutoSizeColumn = False
2890     InitialSortColumn = False
2891     DBLookupProperties.ItemHeight = 0
2892     DBLookupProperties.ItemWidth = 0
2893     DBLookupProperties.AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
2894     end
2895     item
2896     PickList.Strings = (
2897     'Commit'
2898     'Rollback'
2899     )
2900     Title.Alignment = taCenter
2901     Title.Caption = 'Req. Action'
2902     Width = 100
2903     FieldName = 'RequestedAction'
2904     AutoSizeColumn = False
2905     InitialSortColumn = False
2906     DBLookupProperties.ItemHeight = 0
2907     DBLookupProperties.ItemWidth = 0
2908     DBLookupProperties.AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
2909     end>
2910     DataSource = LimboListSource
2911     Options = [dgEditing, dgTitles, dgIndicator, dgColumnResize, dgColumnMove, dgColLines, dgRowLines, dgTabs, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit, dgDisableDelete, dgDisableInsert]
2912     Scrollbars = ssAutoVertical
2913     TabOrder = 0
2914     ExpandEditorPanelBelowRow = False
2915     Descending = False
2916     EditorBorderStyle = bsSingle
2917     DefaultPositionAtEnd = False
2918     end
2919     object Button3: TButton
2920     Left = 16
2921     Height = 25
2922     Top = 482
2923     Width = 100
2924     Action = CommitAll
2925     Anchors = [akLeft, akBottom]
2926     TabOrder = 1
2927     end
2928     object Button4: TButton
2929     Left = 128
2930     Height = 25
2931     Top = 482
2932     Width = 100
2933     Action = RollbackAll
2934     Anchors = [akLeft, akBottom]
2935     TabOrder = 2
2936     end
2937     object Button5: TButton
2938     Left = 233
2939     Height = 25
2940     Top = 482
2941     Width = 127
2942     Action = Commit2Phase
2943     Anchors = [akLeft, akBottom]
2944     TabOrder = 3
2945     end
2946     object Button6: TButton
2947     Left = 368
2948     Height = 25
2949     Top = 482
2950     Width = 144
2951     Action = ApplySelected
2952     Anchors = [akLeft, akBottom]
2953     TabOrder = 4
2954     end
2955     object Label39: TLabel
2956     Left = 17
2957     Height = 14
2958     Top = 280
2959     Width = 104
2960     Caption = 'Resolution Report'
2961     ParentColor = False
2962     end
2963     object LimboReport: TMemo
2964     Left = 16
2965     Height = 178
2966     Top = 296
2967 tony 272 Width = 947
2968 tony 158 Anchors = [akTop, akLeft, akRight, akBottom]
2969     Lines.Strings = (
2970     'LimboReport'
2971     )
2972     TabOrder = 5
2973     end
2974     end
2975     end
2976     object UpdateColsPanel: TPanel
2977 tony 229 Left = 40
2978 tony 158 Height = 64
2979 tony 229 Top = 488
2980 tony 158 Width = 544
2981     BevelOuter = bvNone
2982     BorderStyle = bsSingle
2983     ClientHeight = 62
2984     ClientWidth = 542
2985     TabOrder = 3
2986     object Label41: TLabel
2987     Left = 32
2988     Height = 14
2989     Top = 8
2990     Width = 100
2991     Caption = 'Update Columns'
2992     ParentColor = False
2993     end
2994     object DBEdit5: TDBEdit
2995     Left = 144
2996     Height = 24
2997     Top = 4
2998 tony 272 Width = 386
2999 tony 158 DataField = 'UPDATE_COLUMNS'
3000     DataSource = SubjectAccessRightsSource
3001     Anchors = [akTop, akLeft, akRight]
3002     CharCase = ecNormal
3003     MaxLength = 0
3004     TabOrder = 0
3005     end
3006     object Label42: TLabel
3007 tony 272 Left = 9
3008 tony 158 Height = 14
3009 tony 272 Top = 35
3010 tony 158 Width = 123
3011     Caption = 'Referenced Columns'
3012     ParentColor = False
3013     end
3014     object DBEdit6: TDBEdit
3015     Left = 144
3016     Height = 24
3017     Top = 35
3018 tony 272 Width = 386
3019 tony 158 DataField = 'REFERENCE_COLUMNS'
3020     DataSource = SubjectAccessRightsSource
3021     Anchors = [akTop, akLeft, akRight]
3022     CharCase = ecNormal
3023     MaxLength = 0
3024     TabOrder = 1
3025     end
3026     end
3027     object MainMenu1: TMainMenu
3028 tony 272 left = 720
3029     top = 80
3030 tony 158 object MenuItem1: TMenuItem
3031     Caption = 'File'
3032     object MenuItem6: TMenuItem
3033     Action = OpenDatabase
3034     end
3035     object MenuItem8: TMenuItem
3036     Action = Save
3037     end
3038     object MenuItem7: TMenuItem
3039     Caption = '-'
3040     end
3041     object MenuItem3: TMenuItem
3042     Action = Backup
3043     end
3044     object MenuItem5: TMenuItem
3045     Action = Restore
3046     end
3047 tony 231 object MenuItem21: TMenuItem
3048     Caption = '-'
3049     end
3050     object MenuItem20: TMenuItem
3051     Action = RunScript
3052     end
3053 tony 158 object MenuItem10: TMenuItem
3054     Caption = '-'
3055     end
3056     object MenuItem9: TMenuItem
3057     Action = DropDatabase
3058     end
3059     object MenuItem4: TMenuItem
3060     Caption = '-'
3061     end
3062     object MenuItem2: TMenuItem
3063     Action = Quit
3064     end
3065     end
3066     end
3067     object ActionList1: TActionList
3068     Images = MenuImages
3069     left = 712
3070     top = 128
3071     object Quit: TAction
3072     Category = 'General'
3073     Caption = 'Exit'
3074 tony 209 OnExecute = QuitExecute
3075 tony 158 end
3076     object Backup: TAction
3077     Category = 'General'
3078     Caption = 'Backup'
3079     Hint = 'Backup Database to Archive File'
3080     ImageIndex = 1
3081     OnExecute = BackupExecute
3082     end
3083     object Restore: TAction
3084     Category = 'General'
3085     Caption = 'Restore'
3086     Hint = 'Restore Database From Archive'
3087     ImageIndex = 0
3088     OnExecute = RestoreExecute
3089     end
3090     object OpenDatabase: TAction
3091     Category = 'General'
3092     Caption = 'Open Database'
3093     OnExecute = OpenDatabaseExecute
3094     end
3095     object AddSecondary: TAction
3096     Category = 'files'
3097     Caption = 'Add'
3098     OnExecute = AddSecondaryExecute
3099     end
3100     object AddShadowSet: TAction
3101     Category = 'files'
3102     Caption = 'Add Set'
3103     OnExecute = AddShadowSetExecute
3104     end
3105     object RemoveShadow: TAction
3106     Category = 'files'
3107     Caption = 'Remove Set'
3108     OnExecute = RemoveShadowExecute
3109     OnUpdate = RemoveShadowUpdate
3110     end
3111     object Save: TAction
3112     Category = 'General'
3113     Caption = 'Save'
3114     Hint = 'Save to File'
3115     ImageIndex = 2
3116     OnExecute = SaveExecute
3117     OnUpdate = SaveUpdate
3118     end
3119     object DropDatabase: TAction
3120     Category = 'General'
3121     Caption = 'Drop Database'
3122     OnExecute = DropDatabaseExecute
3123     OnUpdate = DropDatabaseUpdate
3124     end
3125     object AddUser: TAction
3126     Category = 'Users'
3127     Caption = 'Add New User'
3128     OnExecute = AddUserExecute
3129     OnUpdate = AddUserUpdate
3130     end
3131     object ChgPassword: TAction
3132     Category = 'Users'
3133     Caption = 'Change Password'
3134     OnExecute = ChgPasswordExecute
3135     OnUpdate = ChgPasswordUpdate
3136     end
3137     object DeleteUser: TAction
3138     Category = 'Users'
3139     Caption = 'Delete'
3140     OnExecute = DeleteUserExecute
3141     OnUpdate = DeleteUserUpdate
3142     end
3143     object SaveChanges: TAction
3144     Category = 'Users'
3145     Caption = 'Save Changes'
3146     OnExecute = SaveChangesExecute
3147     OnUpdate = SaveChangesUpdate
3148     end
3149     object AddTag: TAction
3150     Category = 'Tags'
3151     Caption = 'Add Tag'
3152     OnExecute = AddTagExecute
3153     OnUpdate = AddTagUpdate
3154     end
3155     object DeleteTag: TAction
3156     Category = 'Tags'
3157     Caption = 'Delete'
3158     OnExecute = DeleteTagExecute
3159     OnUpdate = DeleteTagUpdate
3160     end
3161     object ToggleAutoRefresh: TAction
3162     Category = 'Attachments'
3163     Caption = 'Auto Refresh'
3164     OnExecute = ToggleAutoRefreshExecute
3165     OnUpdate = ToggleAutoRefreshUpdate
3166     end
3167     object DisconnectAttachment: TAction
3168     Category = 'Attachments'
3169     Caption = 'Disconnect'
3170     OnExecute = DisconnectAttachmentExecute
3171     OnUpdate = DisconnectAttachmentUpdate
3172     end
3173     object RunRepair: TAction
3174     Category = 'Repair'
3175     Caption = 'Run'
3176     OnExecute = RunRepairExecute
3177     end
3178     object CommitAll: TAction
3179     Category = 'Limbo'
3180     Caption = 'Commit All'
3181     OnExecute = CommitAllExecute
3182     OnUpdate = CommitAllUpdate
3183     end
3184     object RollbackAll: TAction
3185     Category = 'Limbo'
3186     Caption = 'Rollback All'
3187     OnExecute = RollbackAllExecute
3188     OnUpdate = CommitAllUpdate
3189     end
3190     object Commit2Phase: TAction
3191     Category = 'Limbo'
3192     Caption = 'Commit 2 Phase All'
3193     OnExecute = Commit2PhaseExecute
3194     OnUpdate = CommitAllUpdate
3195     end
3196     object ApplySelected: TAction
3197     Category = 'Limbo'
3198     Caption = 'Apply Selected Action'
3199     OnExecute = ApplySelectedExecute
3200     OnUpdate = CommitAllUpdate
3201     end
3202     object Phase2Repair: TAction
3203     Category = 'Repair'
3204     Caption = 'Repair'
3205     OnExecute = RunRepairExecute
3206     end
3207     object RevokeAll: TAction
3208     Category = 'AccessRights'
3209     Caption = 'Revoke All'
3210     OnExecute = RevokeAllExecute
3211     OnUpdate = RevokeAllUpdate
3212     end
3213 tony 231 object RunScript: TAction
3214     Category = 'General'
3215     Caption = 'Run SQL Script'
3216     Hint = 'Run SQL Script'
3217     ImageIndex = 5
3218     OnExecute = RunScriptExecute
3219     end
3220 tony 158 end
3221     object MenuImages: TImageList
3222     left = 704
3223     top = 184
3224     Bitmap = {
3225 tony 231 4C69060000001000000010000000000000000000000000000000000000000000
3226 tony 158 0000000000000000000000000000000000000000000000000000000000FF0000
3227     00FF000000FF000000FF000000FF000000000000000000000000000000000000
3228     00000000000000000000000084FF0000000000000000000000FF848400FFFFFF
3229     00FF000000FFFFFF00FFFFFF00FF000000000000000000000000000000000000
3230     00000000000000000000000084FF000084FF00000000000000FF848400FF8484
3231     00FFFFFF00FF000000FFFFFF00FF000000000000000000000000000000000000
3232     0000000084FF000084FF000084FF000084FF000084FF000000FF848400FFFFFF
3233     00FF000000FFFFFF00FFFFFF00FF000000000000000000000000000000000000
3234     0000000084FF00000000000084FF000084FF00000000000000FF848400FF8484
3235     00FFFFFF00FF000000FFFFFF00FF000000000000000000000000000000000000
3236     0000000084FF00000000000084FF0000000000000000000000FF848400FFFFFF
3237     00FF000000FFFFFF00FFFFFF00FF000000000000000000000000000000000000
3238     0000000084FF0000000000000000000000000000000000000000000000FF0000
3239     00FF000000FF000000FF000000FF000000000000000000000000000000000000
3240     0000000084FF0000000000000000000000000000000000000000000000000000
3241     00000000000000000000000000000000000000000000000000FF000000FF0000
3242     00FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF0000
3243     00FF000000FF000000FF000000FF00000000000000FF00000000000000008484
3244     84FFC6C6C6FFC6C6C6FFC6C6C6FF000000FF000000FFC6C6C6FFC6C6C6FFC6C6
3245     C6FF848484FF000000000000000000000000000000FF848484FF848484FF0000
3246     00FF000000FF000000FF848484FFC6C6C6FFC6C6C6FF848484FF000000FF0000
3247     00FF000000FF848484FFC6C6C6FF00000000000000FF848484FF000000FF8484
3248     84FF0000000000000000000000FFC6C6C6FF848484FF000000FF848484FF0000
3249     000000000000000000FF848484FF00000000000000FF848484FF000000FF0000
3250     0000000000FF00000000000000FFC6C6C6FFC6C6C6FF000000FF000000000000
3251     00FF00000000000000FF848484FF00000000000000FF848484FF000000FF8484
3252     84FF00000000848484FF000000FFC6C6C6FFC6C6C6FF000000FF848484FF0000
3253     0000848484FF000000FF848484FF00000000000000FF848484FF848484FF0000
3254     00FF000000FF000000FF848484FF848484FF848484FF848484FF000000FF0000
3255     00FF000000FF000000FF848484FF00000000000000FF848484FFC6C6C6FFC6C6
3256     C6FFC6C6C6FFC6C6C6FFC6C6C6FFC6C6C6FF00000000C6C6C6FF848484FF8484
3257     84FF848484FF848484FFC6C6C6FF000000000000000000000000000000000000
3258     0000000000000000000000000000000000000000000000000000000000FF0000
3259     00FF000000FF000000FF000000FF000000000000000000000000000000000000
3260     00000000000000000000000000000000000000000000000000FF848400FFFFFF
3261     00FF000000FFFFFF00FFFFFF00FF000000000000000000000000000000000000
3262     00000000000000000000000000000000000000000000000000FF848400FF8484
3263     00FFFFFF00FF000000FFFFFF00FF000000000000000000000000000000000000
3264     0000000084FF000084FF000084FF000084FF000084FF000000FF848400FFFFFF
3265     00FF000000FFFFFF00FFFFFF00FF000000000000000000000000000000000000
3266     0000000084FF00000000000000000000000000000000000000FF848400FF8484
3267     00FFFFFF00FF000000FFFFFF00FF000000000000000000000000000084FF0000
3268     84FF000084FF000084FF000084FF0000000000000000000000FF848400FFFFFF
3269     00FF000000FFFFFF00FFFFFF00FF000000000000000000000000000000000000
3270     84FF000084FF000084FF00000000000000000000000000000000000000FF0000
3271     00FF000000FF000000FF000000FF000000000000000000000000000000000000
3272     0000000084FF0000000000000000000000000000000000000000000000000000
3273     00000000000000000000000000000000000000000000000000FF000000FF0000
3274     00FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF0000
3275     00FF000000FF000000FF000000FF00000000000000FF00000000000000008484
3276     84FFC6C6C6FFC6C6C6FFC6C6C6FF000000FF000000FFC6C6C6FFC6C6C6FFC6C6
3277     C6FF848484FF000000000000000000000000000000FF848484FF848484FF0000
3278     00FF000000FF000000FF848484FFC6C6C6FFC6C6C6FF848484FF000000FF0000
3279     00FF000000FF848484FFC6C6C6FF00000000000000FF848484FF000000FF8484
3280     84FF0000000000000000000000FFC6C6C6FF848484FF000000FF848484FF0000
3281     000000000000000000FF848484FF00000000000000FF848484FF000000FF0000
3282     0000000000FF00000000000000FFC6C6C6FFC6C6C6FF000000FF000000000000
3283     00FF00000000000000FF848484FF00000000000000FF848484FF000000FF8484
3284     84FF00000000848484FF000000FFC6C6C6FFC6C6C6FF000000FF848484FF0000
3285     0000848484FF000000FF848484FF00000000000000FF848484FF848484FF0000
3286     00FF000000FF000000FF848484FF848484FF848484FF848484FF000000FF0000
3287     00FF000000FF000000FF848484FF00000000000000FF848484FFC6C6C6FFC6C6
3288     C6FFC6C6C6FFC6C6C6FFC6C6C6FFC6C6C6FF00000000C6C6C6FF848484FF8484
3289     84FF848484FF848484FFC6C6C6FFA46534FF5959F3FF5959F3FF5959F3FF5959
3290     F3FF5959F3FF5959F3FF5959F3FF5959F3FF5959F3FF5959F3FF5959F3FF5959
3291     F3FF5959F3FFA46534FF00000000A46534FF5959F3FF5959F3FF5959F3FF5959
3292     F3FF5959F3FF5959F3FF5959F3FF5959F3FF5959F3FF5959F3FF5959F3FF5959
3293     F3FF5959F3FFA46534FF00000000A46534FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
3294     FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
3295     FFFFFFFFFFFFA46534FF00000000A46534FFFFFFFFFF2929EFFFFFFFFFFF2929
3296     EFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
3297     FFFFFFFFFFFFA46534FF00000000A46534FFFFFFFFFFFFFFFFFF2929EFFFFFFF
3298     FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
3299     FFFFFFFFFFFFA46534FF00000000A46534FFFFFFFFFFFFFFFFFF2929EFFFFFFF
3300     FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
3301     FFFFFFFFFFFFA46534FF00000000A46534FFFFFFFFFFFFFFFFFF2929EFFFFFFF
3302     FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
3303     FFFFFFFFFFFFA46534FF00000000A46534FFFFFFFFFF2929EFFFFFFFFFFF2929
3304     EFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
3305     FFFFFFFFFFFFA46534FF00000000A46534FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
3306     FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
3307     FFFFFFFFFFFFA46534FF00000000A46534FFA46534FFA46534FFA46534FFA465
3308     34FFA46534FFA46534FFA46534FFA46534FFA46534FFA46534FFA46534FFA465
3309     34FFA46534FFA46534FF00000000A46534FFA46534FFA46534FFB6BDBAFFB6BD
3310     BAFFB6BDBAFFB6BDBAFFB6BDBAFFB6BDBAFFB6BDBAFFA46534FFA46534FFA465
3311     34FFA46534FFA46534FF00000000A46534FFA46534FFA46534FFB6BDBAFFA465
3312     34FFB6BDBAFFB6BDBAFFB6BDBAFFB6BDBAFFB6BDBAFFA46534FFA46534FFA465
3313     34FFA46534FFA46534FF00000000A46534FFA46534FFA46534FFB6BDBAFFA465
3314     34FFB6BDBAFFB6BDBAFFB6BDBAFFB6BDBAFFB6BDBAFFA46534FFA46534FFA465
3315     34FFA46534FFA46534FF00000000A46534FFA46534FFA46534FFB6BDBAFFA465
3316     34FFB6BDBAFFB6BDBAFFB6BDBAFFB6BDBAFFB6BDBAFFA46534FFA46534FFA465
3317     34FFA46534FFA46534FF00000000A46534FFA46534FFA46534FFB6BDBAFFA465
3318     34FFB6BDBAFFB6BDBAFFB6BDBAFFB6BDBAFFB6BDBAFFA46534FFA46534FFA465
3319     34FFA46534FFA46534FF00000000A4653455A46534FFA46534FFB6BDBAFFB6BD
3320     BAFFB6BDBAFFB6BDBAFFB6BDBAFFB6BDBAFFB6BDBAFFA46534FFA46534FFA465
3321     34FFA46534FFA46534FF0000000000000000959493099898973D9C9C9B67A3A3
3322     A293B1B1B0C2CECFCEDCE0E1E0E9CBCBC7EAB9B7B3DEB0AFA9C4AEADA896B0AE
3323     AA6AACABA6409A99980A00000000A1A1A048A2A3A2FFA1A19FFF9E9E9CFF9C9D
3324     9AFF9C9C9BFFA6A7A6FFDBDCDCFFC5C4BDFFAEAAA1FFA7A49BFFA7A59CFFABAA
3325     A4FFB4B3AFFFB9B8B4FFADACA84C9C9C9BABBCBDBCFFC0C1C0FFC2C2C1FFC3C3
3326     C2FFC8C8C7FFD7D8D8FFEAEAEAFFBBB8B1FFA9A69CFFA5A197FFA09C93FFA09C
3327     93FFA7A49CFFB2B0AAFFA09E99AC8C8C8AABA2A2A0FFBDBEBDFFCCCECDFFD5D5
3328     D5FFDEDFDFFFE9E9EAFFDEDEDBFFC8C6C2FFB7B5AFFFACAAA3FFA7A59EFFA8A7
3329     A1FFB1AFACFFA8A6A3FF8E8B84AB8D8D8CABA2A2A0FFBFC1C0FFE0E0E0FFFBFD
3330     FDFFECEDECFFD7D7D4FFC4C4BFFFB4B3ADFFA4A29AFF9C9990FFA6A39DFFAEAE
3331     AAFFB9B8B7FFA9A8A5FF8F8C86AB8D806E99A3A4A1FFC0C1C1FFDFE0E0FFF8FA
3332     F9FFEAEBEBFFD9D9D7FFC8C8C3FFB7B5B0FFA6A49DFF9D9A92FFA6A39EFFAEAE
3333     AAFFB9B8B8FFAAA9A7FF8F826F9E8E8C899B615443FF837053FFBDA987FFE5D9
3334     C3FFE6E3D8FFDDDDDAFFD9DBD9FFD3D3D1FFB7B7B2FFB8B3A9FFBEB3A1FFBEAD
3335     93FF9F8E75FFA8A196FFBAB6B1B28F8F8DAB989A99FF898987FF72706DFF6762
3336     5BFF655D52FF685E50FF857C70FF8C8579FF898275FFABA69EFF908B84FF9C98
3337     95FFA9A8A4FFB5B4B2FFC7C6C3CD8D8D8BABA3A2A0FFC1C3C2FFDADCDCFFE8E9
3338     E9FFDFE0DFFFDEDFDEFFCFD0CDFFC0BFBBFFB2B1ABFFAAA7A1FFABABA5FF7EB3
3339     79FFB8B9B8FFAAA9A6FF8F8C85AB8C8B88ABA2A3A1FFBFC1C0FFDEDFDFFFF7F9
3340     F8FFEAEAE9FFD9D9D6FFC8C8C3FFB7B6B1FFA6A49DFF9E9B93FF6BB161FF56AF
3341     49FF65B35BFFA7A7A3FF8F8B84AB8C7C678F9E8868FFC3C3BFFFE3E9F0FFFEFF
3342     FFFFEDEEEFFFDADBD9FFC9C8C3FFB8B6B0FFA5A49CFF6BB061FF55B148FF50B0
3343     43FF50B144FF67AF5EFF98826E968F908FAB767571FF615748FF655844FF7969
3344     50FF8C7859FF967F5EFF99825CFF977F5AFF6EAB60FF3FA432FF269816FF228F
3345     15FF28981DFF32A528FF489D43C78D8D8BABA4A4A2FFB9BAB9FFB9BAB9FFAFB1
3346     B2FF9DA1A4FF969A9EFF878C90FF7C7F82FF7B7479FF63975BFF1E8D11FF2178
3347     18FF2B8625FF899C84FF99898FA88C8C8BACA2A2A0FFBFC1C0FFDEDFDFFFF9FB
3348     FBFFEEEFEEFFDDDDD9FFCAC9C5FFB8B7B1FFA7A39DFF6FA565FF259619FF2B85
3349     24FF389534FF88A183FF918C87AB91918F49A0A1A0FFC1C2C1FFE0E0E0FFF7F9
3350     F8FFE9EAE9FFD9D9D6FFC8C8C3FFB6B5B0FFA7A49DFF71A667FF2EA723FF3CAC
3351     36FF4FBC4DFF8CA588FF97908F5B00000000999B9B0AAEB0AF40CBCCCC6CDEE0
3352     DF94D9D9D8B7CCCDCAD0BFBFBBD7B1B0ACD8A4A29CD372A06AC333A32BB643AE
3353     3EB552BC52B658A6593E00000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
3354     FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF006360
3355     F80AFFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF007774FF1F7774
3356     FF2BFFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00625FF82B5D5B
3357     F76F5956F53EFFFFFF00FFFFFF00FFFFFF00FFFFFF007774FF1F7A77FFFF7976
3358     FEFF726FFD2BFFFFFF00FFFFFF00FFFFFF00FFFFFF00615EF82B6461F8FF6A68
3359     F9FF5451F3A84F4DF229FFFFFF00FFFFFF007774FF1F7A77FFFF817EFFFF817E
3360     FEFF7471FDFF6C69FB2BFFFFFF00FFFFFF00605DF72B625FF8FF6F6DFBFF7E7C
3361     FFFF625FF8FF4A47F06F4542EE02FFFFFF007673FF087471FEFD7D7AFEFF8A87
3362     FFFF7C79FDFF6C69FBFF6361F92B5F5CF72B615EF8FF6E6CFAFF7D7AFFFF615F
3363     F7FF4946F0FC4441EE05FFFFFF00FFFFFF00FFFFFF00716EFD086E6BFCFC7774
3364     FDFF8682FFFF7673FCFF6462F8FF605DF7FF6D6AFAFF7B79FFFF605DF7FF4845
3365     EFFC4341EE08FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF006967FB086663
3366     F9FC706DFBFF807EFFFF7E7BFFFF7C79FFFF7977FFFF5E5CF7FF4744EFFC4240
3367     EE08FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00615E
3368     F8085D5AF6FD7D79FFFF5E5BFFFF5B58FFFF7674FFFF4643EFFD413FED08FFFF
3369     FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF005C59
3370     F62B5D5BF7FF7976FFFF5956FFFF5754FFFF7270FFFF4846F0FF3C39EB2BFFFF
3371     FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF005B58F62B5C5A
3372     F6FF6764FAFF7472FFFF7370FFFF706EFFFF6E6CFFFF5755F7FF3F3DEEFF3230
3373     E82BFFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF005A57F52B5B59F6FF6663
3374     FAFF7471FFFF5A58F6FF4341EEFC3E3CECFD504DF4FF6867FFFF504EF5FF3634
3375     EBFF2A27E52BFFFFFF00FFFFFF00FFFFFF005956F52B5B58F6FF6562FAFF7170
3376     FFFF5956F6FF4240EEFC3E3BEC083937EB083532E9FC4745F2FF6362FFFF4A48
3377     F4FF2F2DE9FF2220E32BFFFFFF00FFFFFF005451F3415856F5FF6361FAFF5855
3378     F6FF413FEDFC3D3AEC08FFFFFF00FFFFFF00302DE7082C2AE6FC413FF1FF4C4A
3379     F6FF312FEAFF1F1DE241FFFFFF00FFFFFF00FFFFFF004A47F0414F4CF2FF403E
3380     EDFD3C39EB08FFFFFF00FFFFFF00FFFFFF00FFFFFF002725E5082422E4FC312F
3381     EAFF1F1DE241FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF003F3DED413B38
3382     EB08FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00211FE3081E1C
3383     E241FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
3384     FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
3385 tony 231 FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
3386     FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00858A88FF858A88FF858A
3387     88FFFFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
3388     FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00808080026A6E6CFFECEEEEFF6A6E
3389     6CFF80808002FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
3390     FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF01414342FEF2F3F2FFFEFEFEFFF2F3
3391     F2FF414342FEFFFFFF01FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
3392     FF00FFFFFF00FFFFFF00858A88FF6A6E6CFFF1F1F1FFACADADFB717473FAACAD
3393     ADFBF1F1F1FF6A6E6CFF858A88FFFFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
3394     FF00FFFFFF00FFFFFF00858A88FFECEEEEFFFEFEFEFF717573FBFFFFFF017175
3395     73FBFEFEFEFFECEEEEFF858A88FFFFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
3396     FF00FFFFFF00FFFFFF00858A88FF6A6E6CFFF1F1F1FFACADADFB717473FAACAD
3397     ADFBF1F1F1FF6A6E6CFF858A88FFFFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
3398     FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF01414342FEF2F3F2FFFEFEFEFFF2F3
3399     F2FF414342FEFFFFFF01FFFFFF00FFFFFF00FFFFFF00FFFFFF00858A88FF858A
3400     88FF858A88FFFFFFFF00FFFFFF00545856FF535755FF6A6E6CFFECEEEEFF6A6E
3401     6CFF535755FF545856FFFFFFFF00FFFFFF00FFFFFF00808080026A6E6CFFECEE
3402     EEFF6A6E6CFF80808002535755FFCECFCFFFE0E2E2FF858A88FF858A88FF858A
3403     88FFE0E2E2FFCECFCFFF535755FFFFFFFF00FFFFFF01414342FEF2F3F2FFFEFE
3404     FEFFF2F3F2FF414342FE535755FEE0E1E1FFF8F8F8FFFBFCFCFFF7F7F7FFFBFC
3405     FCFFF8F8F8FFE0E1E1FF535755FE858A88FF6A6E6CFFF1F1F1FFACADADFB7174
3406     73FAACADADFBF1F1F1FF6A6E6CFF858A88FFFBFBFBFF9DA09FF6535755FD9DA0
3407     9FF6FBFBFBFFABAEAEFA565B58B7858A88FFECEEEEFFFEFEFEFF717573FBFFFF
3408     FF01717573FBFEFEFEFFECEEEEFF858A88FFF7F7F7FF535755FF000000015357
3409     55FFF7F7F7FFC4C5C5FF00000001858A88FF6A6E6CFFF1F1F1FFACADADFB7174
3410     73FAACADADFBF1F1F1FF6A6E6CFF858A88FFFBFBFBFF9DA09FF6535755FD9DA0
3411     9FF6FBFBFBFFABAEAEFA565B58B7FFFFFF00FFFFFF01414342FEF2F3F2FFFEFE
3412     FEFFF2F3F2FF414342FE535755FEE0E1E1FFF8F8F8FFFBFCFCFFF7F7F7FFFBFC
3413     FCFFF8F8F8FFE0E1E1FF535755FEFFFFFF00FFFFFF00FFFFFF016A6E6CFFECEE
3414     EEFF6A6E6CFFFFFFFF01535755FFCECFCFFFE0E2E2FFADB0AFFBC6C8C7FCADB0
3415     AFFBE0E2E2FFCECFCFFF535755FFFFFFFF00FFFFFF00FFFFFF00858A88FF858A
3416     88FF858A88FFFFFFFF00FFFFFF00545856FF535755FF575B58B300000001575B
3417     58B3535755FF545856FF00000001
3418 tony 158 }
3419     end
3420     object CharSetSource: TDataSource
3421 tony 272 DataSet = DBDataModule.CharSetLookup
3422 tony 158 left = 552
3423     top = 240
3424     end
3425     object SecDBFilesSource: TDataSource
3426 tony 272 DataSet = DBDataModule.DBSecFiles
3427 tony 158 left = 552
3428     top = 376
3429     end
3430     object DBCharSetSource: TDataSource
3431 tony 272 DataSet = DBDataModule.DBCharSet
3432 tony 158 left = 552
3433     top = 304
3434     end
3435     object DatabaseSource: TDataSource
3436 tony 272 DataSet = DBDataModule.DatabaseQuery
3437 tony 158 left = 560
3438     top = 448
3439     end
3440     object IBDatabaseInfo: TIBDatabaseInfo
3441 tony 272 Database = DBDataModule.IBDatabase1
3442 tony 158 left = 712
3443     top = 240
3444     end
3445     object AttmtSource: TDataSource
3446 tony 272 DataSet = DBDataModule.AttmtQuery
3447 tony 158 left = 416
3448     top = 448
3449     end
3450     object ShadowSource: TDataSource
3451 tony 272 DataSet = DBDataModule.ShadowFiles
3452 tony 229 left = 464
3453     top = 512
3454 tony 158 end
3455     object SynSQLSyn1: TSynSQLSyn
3456     DefaultFilter = 'SQL Files (*.sql)|*.sql'
3457     Enabled = False
3458     CommentAttri.Foreground = clGreen
3459     KeyAttri.Foreground = clBlue
3460     NumberAttri.Foreground = clRed
3461     SQLDialect = sqlSybase
3462     left = 712
3463     top = 352
3464     end
3465     object IBExtract1: TIBExtract
3466 tony 272 Database = DBDataModule.IBDatabase1
3467     Transaction = DBDataModule.CurrentTransaction
3468 tony 158 ShowSystem = False
3469 tony 209 AlwaysQuoteIdentifiers = False
3470 tony 229 CaseSensitiveObjectNames = False
3471 tony 158 left = 712
3472     top = 296
3473     end
3474     object SQlSaveDialog: TSaveDialog
3475     DefaultExt = '.sql'
3476     Filter = 'SQLFiles (*.sql)|*.sql|All Files|*.*'
3477     Options = [ofOverwritePrompt, ofEnableSizing, ofViewDetail]
3478     left = 712
3479     top = 472
3480     end
3481     object SaveDialog: TSaveDialog
3482     DefaultExt = '.txt'
3483     Filter = 'Text Files (*.txt)|*.txt|All Files |*.*'
3484     Options = [ofOverwritePrompt, ofEnableSizing, ofViewDetail]
3485     left = 712
3486     top = 416
3487     end
3488     object UserListSource: TDataSource
3489 tony 272 DataSet = DBDataModule.UserList
3490 tony 158 left = 416
3491 tony 267 top = 360
3492 tony 158 end
3493     object RoleSource: TDataSource
3494 tony 272 DataSet = DBDataModule.RoleNameList
3495 tony 158 left = 416
3496     top = 272
3497     end
3498     object UserTagsSource: TDataSource
3499 tony 272 DataSet = DBDataModule.UserTags
3500 tony 158 left = 416
3501     top = 224
3502     end
3503     object UserPopup: TPopupMenu
3504     left = 840
3505     top = 296
3506     object MenuItem11: TMenuItem
3507     Action = AddUser
3508     end
3509     object MenuItem12: TMenuItem
3510     Action = ChgPassword
3511     end
3512     object MenuItem13: TMenuItem
3513     Caption = '-'
3514     end
3515     object MenuItem14: TMenuItem
3516     Action = DeleteUser
3517     end
3518     end
3519     object UserTagPopup: TPopupMenu
3520     left = 845
3521     top = 346
3522     object MenuItem15: TMenuItem
3523     Action = AddTag
3524     end
3525     object MenuItem16: TMenuItem
3526     Action = DeleteTag
3527     end
3528     end
3529     object AttachSource: TDataSource
3530 tony 272 DataSet = DBDataModule.Attachments
3531 tony 158 left = 552
3532     top = 112
3533     end
3534     object AttmtTimer: TTimer
3535     Enabled = False
3536     Interval = 5000
3537     OnTimer = AttmtTimerTimer
3538     left = 792
3539 tony 272 top = 80
3540 tony 158 end
3541     object AttmtPopup: TPopupMenu
3542     left = 840
3543     top = 240
3544     object MenuItem17: TMenuItem
3545     Action = ToggleAutoRefresh
3546     end
3547     object MenuItem18: TMenuItem
3548     Action = DisconnectAttachment
3549     end
3550     end
3551     object LimboListSource: TDataSource
3552 tony 272 DataSet = DBDataModule.InLimboList
3553 tony 158 left = 552
3554     top = 176
3555     end
3556     object DBTablesSource: TDataSource
3557 tony 272 DataSet = DBDataModule.DBTables
3558 tony 158 left = 304
3559     top = 224
3560     end
3561     object AuthMapSource: TDataSource
3562 tony 272 DataSet = DBDataModule.AuthMappings
3563 tony 158 left = 303
3564     top = 286
3565     end
3566     object SubjectAccessRightsSource: TDataSource
3567 tony 272 DataSet = DBDataModule.SubjectAccessRights
3568 tony 158 OnDataChange = SubjectAccessRightsSourceDataChange
3569     left = 297
3570     top = 429
3571     end
3572     object AccessRightsPopup: TPopupMenu
3573     left = 845
3574     top = 415
3575     object MenuItem19: TMenuItem
3576     Action = RevokeAll
3577     end
3578     end
3579     object AccessRightsSource: TDataSource
3580 tony 272 DataSet = DBDataModule.AccessRights
3581 tony 158 left = 288
3582     top = 360
3583     end
3584 tony 272 object ConfigDataSource: TDataSource
3585     DataSet = DBDataModule.ConfigDataset
3586     left = 288
3587     top = 504
3588     end
3589 tony 158 end