ViewVC Help
View File | Revision Log | Show Annotations | Download File | View Changeset | Root Listing
root/public/ibx/trunk/examples/DBAdmin/MainFormUnit.lfm
(Generate patch)

Comparing ibx/trunk/examples/DBAdmin/MainFormUnit.lfm (file contents):
Revision 314 by tony, Mon Feb 4 13:36:50 2019 UTC vs.
Revision 315 by tony, Thu Feb 25 11:56:36 2021 UTC

# Line 4 | Line 4 | object MainForm: TMainForm
4    Top = 231
5    Width = 976
6    Caption = 'Database Administrator Demo'
7 <  ClientHeight = 599
7 >  ClientHeight = 598
8    ClientWidth = 976
9    Menu = MainMenu1
10    OnClose = FormClose
11    OnShow = FormShow
12 <  LCLVersion = '2.0.0.3'
12 >  LCLVersion = '2.0.11.0'
13    object ToolBar1: TToolBar
14      Left = 0
15      Height = 26
# Line 68 | Line 68 | object MainForm: TMainForm
68    object StatusBar1: TStatusBar
69      Left = 0
70      Height = 22
71 <    Top = 577
71 >    Top = 576
72      Width = 976
73      Panels = <>
74    end
75    object PageControl1: TPageControl
76      Left = 0
77 <    Height = 551
77 >    Height = 550
78      Top = 26
79      Width = 976
80 <    ActivePage = Properties
80 >    ActivePage = UserManagerTab
81      Align = alClient
82      MultiLine = True
83      ParentShowHint = False
84      ShowHint = True
85 <    TabIndex = 0
85 >    TabIndex = 6
86      TabOrder = 2
87      Options = [nboMultiLine]
88      object Properties: TTabSheet
89        Caption = 'Properties'
90 <      ClientHeight = 519
90 >      ClientHeight = 517
91        ClientWidth = 970
92        OnShow = PropertiesShow
93        object Panel7: TPanel
94          Left = 0
95 <        Height = 519
95 >        Height = 517
96          Top = 0
97          Width = 970
98          Align = alClient
99          BevelOuter = bvNone
100 <        ClientHeight = 519
100 >        ClientHeight = 517
101          ClientWidth = 970
102          Color = clWindow
103          ParentColor = False
104          TabOrder = 0
105          object Label6: TLabel
106            Left = 71
107 <          Height = 14
107 >          Height = 13
108            Top = 20
109            Width = 39
110            Caption = 'Server'
# Line 112 | Line 112 | object MainForm: TMainForm
112          end
113          object Label2: TLabel
114            Left = 15
115 <          Height = 14
115 >          Height = 13
116            Top = 52
117            Width = 95
118            Caption = 'Database Name'
# Line 120 | Line 120 | object MainForm: TMainForm
120          end
121          object Label9: TLabel
122            Left = 19
123 <          Height = 14
123 >          Height = 13
124            Top = 83
125            Width = 91
126            Caption = 'Connect String'
# Line 136 | Line 136 | object MainForm: TMainForm
136          end
137          object Label1: TLabel
138            Left = 40
139 <          Height = 14
139 >          Height = 13
140            Top = 117
141            Width = 73
142            Caption = 'ODS Version'
# Line 153 | Line 153 | object MainForm: TMainForm
153          end
154          object Label4: TLabel
155            Left = 19
156 <          Height = 14
156 >          Height = 13
157            Top = 150
158            Width = 91
159            Caption = 'Svr Version No.'
# Line 170 | Line 170 | object MainForm: TMainForm
170          end
171          object Label5: TLabel
172            Left = 789
173 <          Height = 14
173 >          Height = 13
174            Top = 23
175            Width = 69
176            Caption = 'SQL Dialect'
# Line 189 | Line 189 | object MainForm: TMainForm
189          end
190          object Label24: TLabel
191            Left = 51
192 <          Height = 14
192 >          Height = 13
193            Top = 211
194            Width = 60
195            Caption = 'DB Owner'
# Line 197 | Line 197 | object MainForm: TMainForm
197          end
198          object Label18: TLabel
199            Left = 24
200 <          Height = 14
200 >          Height = 13
201            Top = 244
202            Width = 86
203            Caption = 'Sec. Database'
# Line 205 | Line 205 | object MainForm: TMainForm
205          end
206          object Label13: TLabel
207            Left = 28
208 <          Height = 14
208 >          Height = 13
209            Top = 277
210            Width = 83
211            Caption = 'Character Set'
# Line 245 | Line 245 | object MainForm: TMainForm
245            Left = 111
246            Height = 22
247            Top = 311
248 <          Width = 84
248 >          Width = 85
249            Caption = 'Read Only'
250            OnChange = DBIsReadOnlyChange
251            TabOrder = 6
# Line 281 | Line 281 | object MainForm: TMainForm
281            Left = 111
282            Height = 22
283            Top = 407
284 <          Width = 239
284 >          Width = 241
285            Caption = 'Space Reserved for Backup Records'
286            OnChange = NoReserveChange
287            TabOrder = 10
288          end
289          object Label11: TLabel
290 <          Left = 765
291 <          Height = 14
290 >          Left = 764
291 >          Height = 13
292            Top = 52
293 <          Width = 93
293 >          Width = 94
294            Anchors = [akTop, akRight]
295            Caption = 'Pages Allocated'
296            ParentColor = False
# Line 308 | Line 308 | object MainForm: TMainForm
308          end
309          object Label19: TLabel
310            Left = 472
311 <          Height = 14
311 >          Height = 13
312            Top = 22
313 <          Width = 56
313 >          Width = 57
314            Caption = 'Page Size'
315            ParentColor = False
316          end
317          object Label3: TLabel
318 <          Left = 791
319 <          Height = 14
318 >          Left = 790
319 >          Height = 13
320            Top = 85
321 <          Width = 68
321 >          Width = 69
322            Anchors = [akTop, akRight]
323            Caption = 'Pages Used'
324            ParentColor = False
# Line 335 | Line 335 | object MainForm: TMainForm
335            Text = 'PagesUsed'
336          end
337          object Label10: TLabel
338 <          Left = 769
339 <          Height = 14
338 >          Left = 767
339 >          Height = 13
340            Top = 118
341 <          Width = 90
341 >          Width = 92
342            Anchors = [akTop, akRight]
343            Caption = 'Pages Available'
344            ParentColor = False
# Line 356 | Line 356 | object MainForm: TMainForm
356          end
357          object Label12: TLabel
358            Left = 432
359 <          Height = 14
359 >          Height = 13
360            Top = 52
361            Width = 98
362            Caption = 'Current Memory'
# Line 374 | Line 374 | object MainForm: TMainForm
374          end
375          object Label20: TLabel
376            Left = 632
377 <          Height = 14
377 >          Height = 13
378            Top = 22
379            Width = 33
380            Caption = 'bytes'
# Line 382 | Line 382 | object MainForm: TMainForm
382          end
383          object Label21: TLabel
384            Left = 634
385 <          Height = 14
385 >          Height = 13
386            Top = 57
387            Width = 33
388            Caption = 'bytes'
# Line 390 | Line 390 | object MainForm: TMainForm
390          end
391          object Label14: TLabel
392            Left = 454
393 <          Height = 14
393 >          Height = 13
394            Top = 85
395            Width = 76
396            Caption = 'Max Memory'
# Line 408 | Line 408 | object MainForm: TMainForm
408          end
409          object Label22: TLabel
410            Left = 635
411 <          Height = 14
411 >          Height = 13
412            Top = 85
413            Width = 33
414            Caption = 'bytes'
# Line 416 | Line 416 | object MainForm: TMainForm
416          end
417          object Label15: TLabel
418            Left = 778
419 <          Height = 14
419 >          Height = 13
420            Top = 150
421            Width = 81
422            Anchors = [akTop, akRight]
# Line 437 | Line 437 | object MainForm: TMainForm
437          end
438          object DateDBCreatedLabel: TLabel
439            Left = 8
440 <          Height = 14
440 >          Height = 13
441            Top = 180
442            Width = 100
443            Anchors = [akTop, akRight]
# Line 446 | Line 446 | object MainForm: TMainForm
446          end
447          object Label16: TLabel
448            Left = 456
449 <          Height = 14
449 >          Height = 13
450            Top = 117
451            Width = 75
452            Caption = 'Linger Delay'
# Line 465 | Line 465 | object MainForm: TMainForm
465          end
466          object Label17: TLabel
467            Left = 632
468 <          Height = 14
468 >          Height = 13
469            Top = 118
470            Width = 49
471            Caption = 'seconds'
# Line 473 | Line 473 | object MainForm: TMainForm
473          end
474          object Label7: TLabel
475            Left = 402
476 <          Height = 14
476 >          Height = 13
477            Top = 151
478            Width = 128
479            Caption = 'S&weep Interval set to'
# Line 493 | Line 493 | object MainForm: TMainForm
493          end
494          object Label8: TLabel
495            Left = 632
496 <          Height = 14
496 >          Height = 13
497            Top = 151
498 <          Width = 74
498 >          Width = 75
499            Caption = 'Transactions'
500            ParentColor = False
501          end
# Line 548 | Line 548 | object MainForm: TMainForm
548          end
549          object Label43: TLabel
550            Left = 400
551 <          Height = 14
551 >          Height = 13
552            Top = 398
553            Width = 65
554            Caption = 'Comments'
# Line 556 | Line 556 | object MainForm: TMainForm
556          end
557          object DBComments: TMemo
558            Left = 400
559 <          Height = 82
559 >          Height = 80
560            Top = 414
561            Width = 549
562            Anchors = [akTop, akLeft, akRight, akBottom]
# Line 569 | Line 569 | object MainForm: TMainForm
569          end
570          object ClientLibrary: TLabel
571            Left = 873
572 <          Height = 14
573 <          Top = 504
572 >          Height = 13
573 >          Top = 503
574            Width = 76
575            Alignment = taRightJustify
576            Anchors = [akRight, akBottom]
# Line 579 | Line 579 | object MainForm: TMainForm
579          end
580          object Label44: TLabel
581            Left = 402
582 <          Height = 14
582 >          Height = 13
583            Top = 272
584            Width = 203
585            Caption = 'Client/Server Version and Protocol'
# Line 608 | Line 608 | object MainForm: TMainForm
608      end
609      object FilesTab: TTabSheet
610        Caption = 'Files'
611 <      ClientHeight = 519
611 >      ClientHeight = 517
612        ClientWidth = 970
613        OnShow = FilesTabShow
614        object Label25: TLabel
615          Left = 16
616 <        Height = 14
616 >        Height = 15
617          Top = 16
618          Width = 129
619          Caption = 'Primary Database File'
# Line 621 | Line 621 | object MainForm: TMainForm
621        end
622        object PrimaryDBFile: TEdit
623          Left = 16
624 <        Height = 24
624 >        Height = 25
625          Top = 32
626          Width = 553
627          Anchors = [akTop, akLeft, akRight]
# Line 631 | Line 631 | object MainForm: TMainForm
631        end
632        object Label26: TLabel
633          Left = 16
634 <        Height = 14
634 >        Height = 15
635          Top = 72
636          Width = 93
637          Caption = 'Secondary Files'
# Line 709 | Line 709 | object MainForm: TMainForm
709        end
710        object Label27: TLabel
711          Left = 16
712 <        Height = 14
712 >        Height = 15
713          Top = 264
714          Width = 77
715          Caption = 'Shadow Files'
# Line 717 | Line 717 | object MainForm: TMainForm
717        end
718        object IBDynamicGrid2: TIBDynamicGrid
719          Left = 16
720 <        Height = 200
720 >        Height = 197
721          Top = 280
722          Width = 842
723          Anchors = [akTop, akLeft, akRight, akBottom]
# Line 820 | Line 820 | object MainForm: TMainForm
820      end
821      object AttachmentsTab: TTabSheet
822        Caption = 'Attachments'
823 <      ClientHeight = 519
823 >      ClientHeight = 517
824        ClientWidth = 970
825        OnHide = AttachmentsTabHide
826        OnShow = AttachmentsTabShow
# Line 1099 | Line 1099 | object MainForm: TMainForm
1099      end
1100      object StatisticsTab: TTabSheet
1101        Caption = 'Statistics'
1102 <      ClientHeight = 519
1102 >      ClientHeight = 517
1103        ClientWidth = 970
1104        OnHide = StatisticsTabHide
1105        OnShow = StatisticsTabShow
# Line 1145 | Line 1145 | object MainForm: TMainForm
1145      end
1146      object SchemaTab: TTabSheet
1147        Caption = 'Schema'
1148 <      ClientHeight = 519
1148 >      ClientHeight = 517
1149        ClientWidth = 970
1150        OnShow = SchemaTabShow
1151        inline SynEdit1: TSynEdit
# Line 1663 | Line 1663 | object MainForm: TMainForm
1663      end
1664      object ServerTab: TTabSheet
1665        Caption = 'Server'
1666 <      ClientHeight = 519
1666 >      ClientHeight = 517
1667        ClientWidth = 970
1668        OnHide = ServerTabHide
1669        OnShow = ServerTabShow
# Line 1967 | Line 1967 | object MainForm: TMainForm
1967      end
1968      object UserManagerTab: TTabSheet
1969        Caption = 'User Manager'
1970 <      ClientHeight = 519
1970 >      ClientHeight = 517
1971        ClientWidth = 970
1972        OnHide = UserManagerTabHide
1973        OnShow = UserManagerTabShow
1974        object Panel4: TPanel
1975          Left = 0
1976 <        Height = 519
1976 >        Height = 517
1977          Top = 0
1978          Width = 827
1979          Align = alLeft
1980 <        ClientHeight = 519
1980 >        ClientHeight = 517
1981          ClientWidth = 827
1982          TabOrder = 0
1983          object UserManagerGrid: TIBDynamicGrid
1984            Left = 1
1985 <          Height = 517
1985 >          Height = 515
1986            Top = 1
1987            Width = 825
1988            Align = alClient
# Line 2132 | Line 2132 | object MainForm: TMainForm
2132        end
2133        object Splitter2: TSplitter
2134          Left = 827
2135 <        Height = 519
2135 >        Height = 517
2136          Top = 0
2137          Width = 5
2138        end
2139        object Panel3: TPanel
2140          Left = 832
2141 <        Height = 519
2141 >        Height = 517
2142          Top = 0
2143          Width = 138
2144          Align = alClient
2145          BevelOuter = bvNone
2146 <        ClientHeight = 519
2146 >        ClientHeight = 517
2147          ClientWidth = 138
2148          TabOrder = 2
2149          object RolesGrid: TIBDynamicGrid
# Line 2188 | Line 2188 | object MainForm: TMainForm
2188          object Panel5: TPanel
2189            Left = 0
2190            Height = 61
2191 <          Top = 458
2191 >          Top = 456
2192            Width = 138
2193            Align = alBottom
2194            BevelInner = bvLowered
# Line 2219 | Line 2219 | object MainForm: TMainForm
2219            TabOrder = 2
2220            object DBText1: TDBText
2221              Left = 10
2222 <            Height = 14
2222 >            Height = 13
2223              Top = 30
2224              Width = 49
2225              DataField = 'SEC$USER_NAME'
# Line 2228 | Line 2228 | object MainForm: TMainForm
2228            end
2229            object Label36: TLabel
2230              Left = 10
2231 <            Height = 14
2231 >            Height = 13
2232              Top = 10
2233 <            Width = 104
2233 >            Width = 105
2234              Caption = 'Roles Assigned to'
2235              ParentColor = False
2236            end
# Line 2256 | Line 2256 | object MainForm: TMainForm
2256          end
2257          object TagsGrid: TIBDynamicGrid
2258            Left = 0
2259 <          Height = 211
2259 >          Height = 209
2260            Top = 242
2261            Width = 138
2262            Align = alClient
# Line 2297 | Line 2297 | object MainForm: TMainForm
2297            Cursor = crVSplit
2298            Left = 0
2299            Height = 5
2300 <          Top = 453
2300 >          Top = 451
2301            Width = 138
2302            Align = alBottom
2303            ResizeAnchor = akBottom
# Line 2306 | Line 2306 | object MainForm: TMainForm
2306      end
2307      object AccessRightsTab: TTabSheet
2308        Caption = 'Access Rights'
2309 <      ClientHeight = 519
2309 >      ClientHeight = 517
2310        ClientWidth = 970
2311        OnHide = AccessRightsTabHide
2312        OnShow = AccessRightsTabShow
# Line 2411 | Line 2411 | object MainForm: TMainForm
2411      end
2412      object MappingsTab: TTabSheet
2413        Caption = 'Auth Mappings'
2414 <      ClientHeight = 519
2414 >      ClientHeight = 517
2415        ClientWidth = 970
2416        OnHide = MappingsTabHide
2417        OnShow = MappingsTabShow
# Line 2521 | Line 2521 | object MainForm: TMainForm
2521      end
2522      object RepairTab: TTabSheet
2523        Caption = 'Database Repair'
2524 <      ClientHeight = 519
2524 >      ClientHeight = 517
2525        ClientWidth = 970
2526        OnHide = RepairTabHide
2527        OnShow = RepairTabShow
# Line 2783 | Line 2783 | object MainForm: TMainForm
2783      end
2784      object LimboTab: TTabSheet
2785        Caption = 'Limbo Transactions'
2786 <      ClientHeight = 519
2786 >      ClientHeight = 517
2787        ClientWidth = 970
2788        OnHide = LimboTabHide
2789        OnShow = LimboTabShow
# Line 2980 | Line 2980 | object MainForm: TMainForm
2980      TabOrder = 3
2981      object Label41: TLabel
2982        Left = 32
2983 <      Height = 14
2983 >      Height = 13
2984        Top = 8
2985        Width = 100
2986        Caption = 'Update Columns'
# Line 3000 | Line 3000 | object MainForm: TMainForm
3000      end
3001      object Label42: TLabel
3002        Left = 9
3003 <      Height = 14
3003 >      Height = 13
3004        Top = 35
3005 <      Width = 123
3005 >      Width = 124
3006        Caption = 'Referenced Columns'
3007        ParentColor = False
3008      end
# Line 3020 | Line 3020 | object MainForm: TMainForm
3020      end
3021    end
3022    object MainMenu1: TMainMenu
3023 <    left = 720
3024 <    top = 80
3023 >    Left = 720
3024 >    Top = 80
3025      object MenuItem1: TMenuItem
3026        Caption = 'File'
3027        object MenuItem6: TMenuItem
# Line 3061 | Line 3061 | object MainForm: TMainForm
3061    end
3062    object ActionList1: TActionList
3063      Images = MenuImages
3064 <    left = 712
3065 <    top = 128
3064 >    Left = 712
3065 >    Top = 128
3066      object Quit: TAction
3067        Category = 'General'
3068        Caption = 'Exit'
# Line 3214 | Line 3214 | object MainForm: TMainForm
3214      end
3215    end
3216    object MenuImages: TImageList
3217 <    left = 704
3218 <    top = 184
3217 >    Left = 704
3218 >    Top = 184
3219      Bitmap = {
3220        4C69060000001000000010000000000000000000000000000000000000000000
3221        0000000000000000000000000000000000000000000000000000000000FF0000
# Line 3414 | Line 3414 | object MainForm: TMainForm
3414    end
3415    object CharSetSource: TDataSource
3416      DataSet = DBDataModule.CharSetLookup
3417 <    left = 552
3418 <    top = 240
3417 >    Left = 552
3418 >    Top = 240
3419    end
3420    object SecDBFilesSource: TDataSource
3421      DataSet = DBDataModule.DBSecFiles
3422 <    left = 552
3423 <    top = 376
3422 >    Left = 552
3423 >    Top = 376
3424    end
3425    object DBCharSetSource: TDataSource
3426      DataSet = DBDataModule.DBCharSet
3427 <    left = 552
3428 <    top = 304
3427 >    Left = 552
3428 >    Top = 304
3429    end
3430    object DatabaseSource: TDataSource
3431      DataSet = DBDataModule.DatabaseQuery
3432 <    left = 560
3433 <    top = 448
3432 >    Left = 560
3433 >    Top = 448
3434    end
3435    object IBDatabaseInfo: TIBDatabaseInfo
3436      Database = DBDataModule.IBDatabase1
3437 <    left = 712
3438 <    top = 240
3437 >    Left = 712
3438 >    Top = 240
3439    end
3440    object AttmtSource: TDataSource
3441      DataSet = DBDataModule.AttmtQuery
3442 <    left = 416
3443 <    top = 448
3442 >    Left = 416
3443 >    Top = 448
3444    end
3445    object ShadowSource: TDataSource
3446      DataSet = DBDataModule.ShadowFiles
3447 <    left = 464
3448 <    top = 512
3447 >    Left = 464
3448 >    Top = 512
3449    end
3450    object SynSQLSyn1: TSynSQLSyn
3451      DefaultFilter = 'SQL Files (*.sql)|*.sql'
# Line 3454 | Line 3454 | object MainForm: TMainForm
3454      KeyAttri.Foreground = clBlue
3455      NumberAttri.Foreground = clRed
3456      SQLDialect = sqlSybase
3457 <    left = 712
3458 <    top = 352
3457 >    Left = 712
3458 >    Top = 352
3459    end
3460    object IBExtract1: TIBExtract
3461      Database = DBDataModule.IBDatabase1
# Line 3463 | Line 3463 | object MainForm: TMainForm
3463      ShowSystem = False
3464      AlwaysQuoteIdentifiers = False
3465      CaseSensitiveObjectNames = False
3466 <    left = 712
3467 <    top = 296
3466 >    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
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
3480 >    Left = 712
3481 >    Top = 416
3482    end
3483    object UserListSource: TDataSource
3484      DataSet = DBDataModule.UserList
3485 <    left = 416
3486 <    top = 360
3485 >    Left = 416
3486 >    Top = 360
3487    end
3488    object RoleSource: TDataSource
3489      DataSet = DBDataModule.RoleNameList
3490 <    left = 416
3491 <    top = 272
3490 >    Left = 416
3491 >    Top = 272
3492    end
3493    object UserTagsSource: TDataSource
3494      DataSet = DBDataModule.UserTags
3495 <    left = 416
3496 <    top = 224
3495 >    Left = 416
3496 >    Top = 224
3497    end
3498    object UserPopup: TPopupMenu
3499 <    left = 840
3500 <    top = 296
3499 >    Left = 840
3500 >    Top = 296
3501      object MenuItem11: TMenuItem
3502        Action = AddUser
3503      end
# Line 3512 | Line 3512 | object MainForm: TMainForm
3512      end
3513    end
3514    object UserTagPopup: TPopupMenu
3515 <    left = 845
3516 <    top = 346
3515 >    Left = 845
3516 >    Top = 346
3517      object MenuItem15: TMenuItem
3518        Action = AddTag
3519      end
# Line 3523 | Line 3523 | object MainForm: TMainForm
3523    end
3524    object AttachSource: TDataSource
3525      DataSet = DBDataModule.Attachments
3526 <    left = 552
3527 <    top = 112
3526 >    Left = 552
3527 >    Top = 112
3528    end
3529    object AttmtTimer: TTimer
3530      Enabled = False
3531      Interval = 5000
3532      OnTimer = AttmtTimerTimer
3533 <    left = 792
3534 <    top = 80
3533 >    Left = 792
3534 >    Top = 80
3535    end
3536    object AttmtPopup: TPopupMenu
3537 <    left = 840
3538 <    top = 240
3537 >    Left = 840
3538 >    Top = 240
3539      object MenuItem17: TMenuItem
3540        Action = ToggleAutoRefresh
3541      end
# Line 3545 | Line 3545 | object MainForm: TMainForm
3545    end
3546    object LimboListSource: TDataSource
3547      DataSet = DBDataModule.InLimboList
3548 <    left = 552
3549 <    top = 176
3548 >    Left = 552
3549 >    Top = 176
3550    end
3551    object DBTablesSource: TDataSource
3552      DataSet = DBDataModule.DBTables
3553 <    left = 304
3554 <    top = 224
3553 >    Left = 304
3554 >    Top = 224
3555    end
3556    object AuthMapSource: TDataSource
3557      DataSet = DBDataModule.AuthMappings
3558 <    left = 303
3559 <    top = 286
3558 >    Left = 303
3559 >    Top = 286
3560    end
3561    object SubjectAccessRightsSource: TDataSource
3562      DataSet = DBDataModule.SubjectAccessRights
3563      OnDataChange = SubjectAccessRightsSourceDataChange
3564 <    left = 297
3565 <    top = 429
3564 >    Left = 297
3565 >    Top = 429
3566    end
3567    object AccessRightsPopup: TPopupMenu
3568 <    left = 845
3569 <    top = 415
3568 >    Left = 845
3569 >    Top = 415
3570      object MenuItem19: TMenuItem
3571        Action = RevokeAll
3572      end
3573    end
3574    object AccessRightsSource: TDataSource
3575      DataSet = DBDataModule.AccessRights
3576 <    left = 288
3577 <    top = 360
3576 >    Left = 288
3577 >    Top = 360
3578    end
3579    object ConfigDataSource: TDataSource
3580      DataSet = DBDataModule.ConfigDataset
3581 <    left = 288
3582 <    top = 504
3581 >    Left = 288
3582 >    Top = 504
3583    end
3584   end

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines