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