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 158 by tony, Thu Mar 1 11:23:33 2018 UTC vs.
Revision 209 by tony, Wed Mar 14 12:48:51 2018 UTC

# Line 1 | Line 1
1   object MainForm: TMainForm
2 <  Left = 596
2 >  Left = 648
3    Height = 616
4 <  Top = 178
4 >  Top = 231
5    Width = 939
6    Caption = 'Database Administrator Demo'
7    ClientHeight = 596
8    ClientWidth = 939
9    Menu = MainMenu1
10 +  OnClose = FormClose
11    OnShow = FormShow
12 <  LCLVersion = '1.8.1.0'
12 >  LCLVersion = '1.8.3.0'
13    object ToolBar1: TToolBar
14      Left = 0
15      Height = 26
# Line 272 | Line 273 | object MainForm: TMainForm
273            OnChange = NoReserveChange
274            TabOrder = 10
275          end
275        object AutoAdmin: TCheckBox
276          Left = 112
277          Height = 22
278          Top = 432
279          Width = 151
280          Caption = 'Auto Admin Mapping'
281          OnChange = AutoAdminChange
282          TabOrder = 11
283        end
276          object Label11: TLabel
277            Left = 435
278            Height = 14
# Line 296 | Line 288 | object MainForm: TMainForm
288            Width = 89
289            Alignment = taRightJustify
290            ReadOnly = True
291 <          TabOrder = 12
291 >          TabOrder = 11
292            Text = 'AllocatedPages'
293          end
294          object Label19: TLabel
# Line 322 | Line 314 | object MainForm: TMainForm
314            Width = 89
315            Alignment = taRightJustify
316            ReadOnly = True
317 <          TabOrder = 13
317 >          TabOrder = 12
318            Text = 'PagesUsed'
319          end
320          object Label10: TLabel
# Line 340 | Line 332 | object MainForm: TMainForm
332            Width = 89
333            Alignment = taRightJustify
334            ReadOnly = True
335 <          TabOrder = 14
335 >          TabOrder = 13
336            Text = 'PagesAvail'
337          end
338          object Label12: TLabel
# Line 358 | Line 350 | object MainForm: TMainForm
350            Width = 89
351            Alignment = taRightJustify
352            ReadOnly = True
353 <          TabOrder = 15
353 >          TabOrder = 14
354            Text = 'Edit10'
355          end
356          object Label20: TLabel
# Line 392 | Line 384 | object MainForm: TMainForm
384            Width = 89
385            Alignment = taRightJustify
386            ReadOnly = True
387 <          TabOrder = 16
387 >          TabOrder = 15
388            Text = 'Edit11'
389          end
390          object Label22: TLabel
# Line 419 | Line 411 | object MainForm: TMainForm
411            Alignment = taRightJustify
412            NumbersOnly = True
413            OnEditingDone = PageBuffersEditingDone
414 <          TabOrder = 17
414 >          TabOrder = 16
415            Text = 'PageBuffers'
416          end
417          object Label23: TLabel
# Line 440 | Line 432 | object MainForm: TMainForm
432            ReadOnly = True
433            CharCase = ecNormal
434            MaxLength = 0
435 <          TabOrder = 18
435 >          TabOrder = 17
436          end
437          object Label16: TLabel
438            Left = 453
# Line 458 | Line 450 | object MainForm: TMainForm
450            Alignment = taRightJustify
451            NumbersOnly = True
452            OnEditingDone = LingerDelayEditingDone
453 <          TabOrder = 19
453 >          TabOrder = 18
454            Text = 'LingerDelay'
455          end
456          object Label17: TLabel
# Line 486 | Line 478 | object MainForm: TMainForm
478            Alignment = taRightJustify
479            NumbersOnly = True
480            OnEditingDone = SweepIntervalEditingDone
481 <          TabOrder = 20
481 >          TabOrder = 19
482            Text = 'SweepInterval'
483          end
484          object Label8: TLabel
# Line 506 | Line 498 | object MainForm: TMainForm
498            DataSource = DatabaseSource
499            CharCase = ecNormal
500            MaxLength = 0
501 <          TabOrder = 21
501 >          TabOrder = 20
502          end
503          object Edit1: TEdit
504            Left = 121
# Line 514 | Line 506 | object MainForm: TMainForm
506            Top = 16
507            Width = 263
508            ParentFont = False
509 <          TabOrder = 22
509 >          TabOrder = 21
510            Text = 'Edit1'
511          end
512          object SecDatabase: TEdit
# Line 523 | Line 515 | object MainForm: TMainForm
515            Top = 241
516            Width = 263
517            ReadOnly = True
518 <          TabOrder = 23
518 >          TabOrder = 22
519            Text = 'SecDatabase'
520          end
521          object DBOwner: TEdit
# Line 532 | Line 524 | object MainForm: TMainForm
524            Top = 208
525            Width = 264
526            ReadOnly = True
527 <          TabOrder = 24
527 >          TabOrder = 23
528            Text = 'DBOwner'
529          end
530          object DatabaseAliasName: TEdit
# Line 541 | Line 533 | object MainForm: TMainForm
533            Top = 48
534            Width = 264
535            ReadOnly = True
536 <          TabOrder = 25
536 >          TabOrder = 24
537            Text = 'DatabaseAliasName'
538          end
539        end
# Line 1030 | Line 1022 | object MainForm: TMainForm
1022        OnShow = StatisticsTabShow
1023        object StatsOptions: TComboBox
1024          Left = 667
1025 <        Height = 27
1025 >        Height = 23
1026          Top = 8
1027          Width = 228
1028          Anchors = [akTop, akRight]
# Line 1689 | Line 1681 | object MainForm: TMainForm
1681                Title.Alignment = taCenter
1682                Title.Caption = 'User Name'
1683                Width = 120
1684 <              FieldName = 'USERNAME'
1684 >              FieldName = 'SEC$USER_NAME'
1685                AutoSizeColumn = False
1686                InitialSortColumn = False
1687                DBLookupProperties.ItemHeight = 0
# Line 1823 | Line 1815 | object MainForm: TMainForm
1815            Descending = False
1816            EditorBorderStyle = bsSingle
1817            DefaultPositionAtEnd = False
1818 <          IndexFieldNames = 'USERNAME'
1818 >          IndexFieldNames = 'SEC$USER_NAME'
1819          end
1820        end
1821        object Splitter2: TSplitter
# Line 1918 | Line 1910 | object MainForm: TMainForm
1910              Height = 14
1911              Top = 30
1912              Width = 49
1913 <            DataField = 'USERNAME'
1913 >            DataField = 'SEC$USER_NAME'
1914              DataSource = UserListSource
1915              ParentColor = False
1916            end
# Line 2008 | Line 2000 | object MainForm: TMainForm
2000        OnShow = AccessRightsTabShow
2001        object AccessRightsTreeView: TIBTreeView
2002          Left = 0
2003 <        Height = 516
2003 >        Height = 519
2004          Top = 0
2005          Width = 300
2006          Align = alLeft
# Line 2026 | Line 2018 | object MainForm: TMainForm
2018        end
2019        object Splitter5: TSplitter
2020          Left = 300
2021 <        Height = 516
2021 >        Height = 519
2022          Top = 0
2023          Width = 5
2024        end
2025        object SubjectAccessRightsGrid: TIBDynamicGrid
2026          Left = 305
2027 <        Height = 516
2027 >        Height = 519
2028          Top = 0
2029 <        Width = 628
2029 >        Width = 626
2030          Align = alClient
2031          Color = clWindow
2032          Columns = <        
# Line 2111 | Line 2103 | object MainForm: TMainForm
2103        OnShow = MappingsTabShow
2104        object IBDynamicGrid5: TIBDynamicGrid
2105          Left = 0
2106 <        Height = 516
2107 <        Top = 0
2106 >        Height = 492
2107 >        Top = 24
2108          Width = 933
2109 <        Align = alClient
2109 >        Anchors = [akTop, akLeft, akRight, akBottom]
2110          Color = clWindow
2111          Columns = <        
2112            item
# Line 2202 | Line 2194 | object MainForm: TMainForm
2194          EditorBorderStyle = bsSingle
2195          DefaultPositionAtEnd = False
2196        end
2197 +      object AutoAdmin: TCheckBox
2198 +        Left = 776
2199 +        Height = 22
2200 +        Top = 2
2201 +        Width = 151
2202 +        Anchors = [akTop, akRight]
2203 +        Caption = 'Auto Admin Mapping'
2204 +        OnChange = AutoAdminChange
2205 +        TabOrder = 1
2206 +      end
2207      end
2208      object RepairTab: TTabSheet
2209        Caption = 'Database Repair'
# Line 2210 | Line 2212 | object MainForm: TMainForm
2212        OnHide = RepairTabHide
2213        OnShow = RepairTabShow
2214        object SelectRepairAction: TComboBox
2215 <        Left = 656
2216 <        Height = 27
2215 >        Left = 654
2216 >        Height = 23
2217          Top = 8
2218          Width = 200
2219          Anchors = [akTop, akRight]
# Line 2228 | Line 2230 | object MainForm: TMainForm
2230          Text = 'Database Sweep'
2231        end
2232        object Button2: TButton
2233 <        Left = 864
2233 >        Left = 862
2234          Height = 25
2235          Top = 9
2236          Width = 35
# Line 2300 | Line 2302 | object MainForm: TMainForm
2302            end
2303            object ValidateRepairRecordFragments: TCheckBox
2304              Left = 16
2305 <            Height = 22
2305 >            Height = 19
2306              Top = 48
2307 <            Width = 184
2307 >            Width = 161
2308              Caption = 'Validate Record Fragments'
2309              Checked = True
2310              State = cbChecked
# Line 2310 | Line 2312 | object MainForm: TMainForm
2312            end
2313            object IgnoreChecksumsOnRepair: TCheckBox
2314              Left = 16
2315 <            Height = 22
2315 >            Height = 19
2316              Top = 71
2317 <            Width = 170
2317 >            Width = 146
2318              Caption = 'Ignore Checksum Errors'
2319              TabOrder = 1
2320            end
# Line 2328 | Line 2330 | object MainForm: TMainForm
2330        end
2331        object Panel8: TPanel
2332          Left = 10
2333 <        Height = 381
2333 >        Height = 384
2334          Top = 123
2335 <        Width = 890
2335 >        Width = 888
2336          Anchors = [akTop, akLeft, akRight, akBottom]
2337          BevelOuter = bvNone
2338          Caption = 'ValidationPanel'
2339 <        ClientHeight = 381
2340 <        ClientWidth = 890
2339 >        ClientHeight = 384
2340 >        ClientWidth = 888
2341          TabOrder = 3
2342          object DBTablesPanel: TPanel
2343            Left = 0
2344 <          Height = 381
2344 >          Height = 384
2345            Top = 0
2346            Width = 170
2347            Align = alLeft
2348            BevelOuter = bvNone
2349 <          ClientHeight = 381
2349 >          ClientHeight = 384
2350            ClientWidth = 170
2351            TabOrder = 0
2352            object Alltables: TRadioButton
2353              Left = 9
2354 <            Height = 22
2354 >            Height = 19
2355              Top = 32
2356 <            Width = 78
2356 >            Width = 71
2357              Caption = 'All Tables'
2358              Checked = True
2359              OnChange = SelectedTablesOnlyChange
# Line 2360 | Line 2362 | object MainForm: TMainForm
2362            end
2363            object SelectedTablesOnly: TRadioButton
2364              Left = 9
2365 <            Height = 22
2365 >            Height = 19
2366              Top = 56
2367 <            Width = 147
2367 >            Width = 129
2368              Caption = 'Selected Tables Only'
2369              OnChange = SelectedTablesOnlyChange
2370              TabOrder = 1
2371            end
2372            object SelectedTablesGrid: TIBDynamicGrid
2373              Left = 0
2374 <            Height = 268
2374 >            Height = 271
2375              Top = 90
2376              Width = 170
2377              Anchors = [akTop, akLeft, akRight, akBottom]
# Line 2408 | Line 2410 | object MainForm: TMainForm
2410            end
2411            object Label40: TLabel
2412              Left = 9
2413 <            Height = 14
2413 >            Height = 15
2414              Top = 7
2415 <            Width = 47
2415 >            Width = 42
2416              Caption = 'Validate'
2417              ParentColor = False
2418            end
2419            object SelectAllTables: TCheckBox
2420              Left = 0
2421 <            Height = 22
2422 <            Top = 360
2423 <            Width = 134
2421 >            Height = 19
2422 >            Top = 366
2423 >            Width = 117
2424              Anchors = [akLeft, akBottom]
2425              Caption = 'Select/Deselect All'
2426              OnChange = SelectAllTablesChange
# Line 2427 | Line 2429 | object MainForm: TMainForm
2429          end
2430          object DBTablesSplitter: TSplitter
2431            Left = 170
2432 <          Height = 381
2432 >          Height = 384
2433            Top = 0
2434            Width = 5
2435          end
2436          object Panel9: TPanel
2437            Left = 175
2438 <          Height = 381
2438 >          Height = 384
2439            Top = 0
2440 <          Width = 715
2440 >          Width = 713
2441            Align = alClient
2442            BevelOuter = bvNone
2443 <          ClientHeight = 381
2444 <          ClientWidth = 715
2443 >          ClientHeight = 384
2444 >          ClientWidth = 713
2445            TabOrder = 2
2446            object Label37: TLabel
2447              Left = 0
2448 <            Height = 14
2448 >            Height = 15
2449              Top = 8
2450 <            Width = 101
2450 >            Width = 91
2451              Caption = 'Validation Report'
2452              ParentColor = False
2453            end
2454            object ValidationReport: TMemo
2455              Left = 0
2456 <            Height = 357
2456 >            Height = 360
2457              Top = 24
2458 <            Width = 715
2458 >            Width = 713
2459              Align = alBottom
2460              Anchors = [akTop, akLeft, akRight, akBottom]
2461              Lines.Strings = (
# Line 2744 | Line 2746 | object MainForm: TMainForm
2746      object Quit: TAction
2747        Category = 'General'
2748        Caption = 'Exit'
2749 +      OnExecute = QuitExecute
2750      end
2751      object Backup: TAction
2752        Category = 'General'
# Line 3099 | Line 3102 | object MainForm: TMainForm
3102      Database = DatabaseData.IBDatabase1
3103      Transaction = DatabaseData.CurrentTransaction
3104      ShowSystem = False
3105 +    AlwaysQuoteIdentifiers = False
3106      left = 712
3107      top = 296
3108    end

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines