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 210 by tony, Wed Mar 14 15:03:38 2018 UTC vs.
Revision 231 by tony, Mon Apr 16 08:32:21 2018 UTC

# Line 52 | Line 52 | object MainForm: TMainForm
52        Top = 2
53        Action = Save
54      end
55 +    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    end
68    object StatusBar1: TStatusBar
69      Left = 0
# Line 65 | Line 77 | object MainForm: TMainForm
77      Height = 548
78      Top = 26
79      Width = 939
80 <    ActivePage = AttachmentsTab
80 >    ActivePage = Properties
81      Align = alClient
82      MultiLine = True
83      ParentShowHint = False
84      ShowHint = True
85 <    TabIndex = 2
85 >    TabIndex = 0
86      TabOrder = 2
87      Options = [nboMultiLine]
88      object Properties: TTabSheet
# Line 274 | Line 286 | object MainForm: TMainForm
286            TabOrder = 10
287          end
288          object Label11: TLabel
289 <          Left = 435
289 >          Left = 728
290            Height = 14
291 <          Top = 26
291 >          Top = 22
292            Width = 93
293            Caption = 'Pages Allocated'
294            ParentColor = False
295          end
296          object AllocatedPages: TEdit
297 <          Left = 533
297 >          Left = 826
298            Height = 24
299 <          Top = 20
299 >          Top = 16
300            Width = 89
301            Alignment = taRightJustify
302            ReadOnly = True
# Line 294 | Line 306 | object MainForm: TMainForm
306          object Label19: TLabel
307            Left = 472
308            Height = 14
309 <          Top = 57
309 >          Top = 22
310            Width = 56
311            Caption = 'Page Size'
312            ParentColor = False
313          end
314          object Label3: TLabel
315 <          Left = 460
315 >          Left = 752
316            Height = 14
317 <          Top = 88
317 >          Top = 52
318            Width = 68
319            Caption = 'Pages Used'
320            ParentColor = False
321          end
322          object PagesUsed: TEdit
323 <          Left = 533
323 >          Left = 826
324            Height = 24
325 <          Top = 82
325 >          Top = 48
326            Width = 89
327            Alignment = taRightJustify
328            ReadOnly = True
# Line 318 | Line 330 | object MainForm: TMainForm
330            Text = 'PagesUsed'
331          end
332          object Label10: TLabel
333 <          Left = 438
333 >          Left = 730
334            Height = 14
335 <          Top = 119
335 >          Top = 85
336            Width = 90
337            Caption = 'Pages Available'
338            ParentColor = False
339          end
340          object PagesAvail: TEdit
341 <          Left = 533
341 >          Left = 826
342            Height = 24
343 <          Top = 113
343 >          Top = 80
344            Width = 89
345            Alignment = taRightJustify
346            ReadOnly = True
# Line 336 | Line 348 | object MainForm: TMainForm
348            Text = 'PagesAvail'
349          end
350          object Label12: TLabel
351 <          Left = 430
351 >          Left = 432
352            Height = 14
353 <          Top = 150
353 >          Top = 52
354            Width = 98
355            Caption = 'Current Memory'
356            ParentColor = False
357          end
358          object Edit10: TEdit
359 <          Left = 533
359 >          Left = 535
360            Height = 24
361 <          Top = 144
361 >          Top = 48
362            Width = 89
363            Alignment = taRightJustify
364            ReadOnly = True
# Line 356 | Line 368 | object MainForm: TMainForm
368          object Label20: TLabel
369            Left = 632
370            Height = 14
371 <          Top = 57
371 >          Top = 22
372            Width = 33
373            Caption = 'bytes'
374            ParentColor = False
375          end
376          object Label21: TLabel
377 <          Left = 632
377 >          Left = 634
378            Height = 14
379 <          Top = 149
379 >          Top = 57
380            Width = 33
381            Caption = 'bytes'
382            ParentColor = False
383          end
384          object Label14: TLabel
385 <          Left = 452
385 >          Left = 454
386            Height = 14
387 <          Top = 181
387 >          Top = 85
388            Width = 76
389            Caption = 'Max Memory'
390            ParentColor = False
391          end
392          object Edit11: TEdit
393 <          Left = 533
393 >          Left = 536
394            Height = 24
395 <          Top = 175
395 >          Top = 80
396            Width = 89
397            Alignment = taRightJustify
398            ReadOnly = True
# Line 388 | Line 400 | object MainForm: TMainForm
400            Text = 'Edit11'
401          end
402          object Label22: TLabel
403 <          Left = 632
403 >          Left = 635
404            Height = 14
405 <          Top = 182
405 >          Top = 85
406            Width = 33
407            Caption = 'bytes'
408            ParentColor = False
409          end
410          object Label15: TLabel
411 <          Left = 447
411 >          Left = 740
412            Height = 14
413 <          Top = 212
413 >          Top = 117
414            Width = 81
415            Caption = 'No. of Buffers'
416            ParentColor = False
417          end
418          object PageBuffers: TEdit
419 <          Left = 533
419 >          Left = 826
420            Height = 24
421 <          Top = 206
421 >          Top = 112
422            Width = 89
423            Alignment = taRightJustify
424            NumbersOnly = True
# Line 415 | Line 427 | object MainForm: TMainForm
427            Text = 'PageBuffers'
428          end
429          object Label23: TLabel
430 <          Left = 430
430 >          Left = 679
431            Height = 14
432 <          Top = 245
432 >          Top = 277
433            Width = 100
434            Caption = 'Date DB Created'
435            ParentColor = False
436          end
437          object DBEdit1: TDBEdit
438 <          Left = 533
438 >          Left = 783
439            Height = 24
440 <          Top = 240
440 >          Top = 272
441            Width = 132
442            DataField = 'MON$CREATION_DATE'
443            DataSource = DatabaseSource
# Line 437 | Line 449 | object MainForm: TMainForm
449          object Label16: TLabel
450            Left = 453
451            Height = 14
452 <          Top = 317
452 >          Top = 120
453            Width = 75
454            Caption = 'Linger Delay'
455            ParentColor = False
456          end
457          object LingerDelay: TEdit
458 <          Left = 533
458 >          Left = 536
459            Height = 24
460 <          Top = 311
460 >          Top = 112
461            Width = 89
462            Alignment = taRightJustify
463            NumbersOnly = True
# Line 456 | Line 468 | object MainForm: TMainForm
468          object Label17: TLabel
469            Left = 632
470            Height = 14
471 <          Top = 317
471 >          Top = 118
472            Width = 49
473            Caption = 'seconds'
474            ParentColor = False
475          end
476          object Label7: TLabel
477 <          Left = 400
477 >          Left = 402
478            Height = 14
479 <          Top = 347
479 >          Top = 151
480            Width = 128
481            Caption = 'S&weep Interval set to'
482            FocusControl = SweepInterval
483            ParentColor = False
484          end
485          object SweepInterval: TEdit
486 <          Left = 533
486 >          Left = 535
487            Height = 24
488 <          Top = 342
488 >          Top = 144
489            Width = 89
490            Alignment = taRightJustify
491            NumbersOnly = True
# Line 484 | Line 496 | object MainForm: TMainForm
496          object Label8: TLabel
497            Left = 632
498            Height = 14
499 <          Top = 347
499 >          Top = 151
500            Width = 74
501            Caption = 'Transactions'
502            ParentColor = False
503          end
504          object DBEdit4: TDBEdit
505 <          Left = 533
505 >          Left = 536
506            Height = 24
507 <          Top = 52
507 >          Top = 16
508            Width = 89
509            DataField = 'MON$PAGE_SIZE'
510            DataSource = DatabaseSource
# Line 536 | Line 548 | object MainForm: TMainForm
548            TabOrder = 24
549            Text = 'DatabaseAliasName'
550          end
551 +        object Label43: TLabel
552 +          Left = 536
553 +          Height = 14
554 +          Top = 296
555 +          Width = 65
556 +          Caption = 'Comments'
557 +          ParentColor = False
558 +        end
559 +        object DBComments: TMemo
560 +          Left = 536
561 +          Height = 118
562 +          Top = 311
563 +          Width = 379
564 +          Anchors = [akTop, akLeft, akRight, akBottom]
565 +          Lines.Strings = (
566 +            'DBComments'
567 +          )
568 +          OnEditingDone = DBCommentsEditingDone
569 +          ScrollBars = ssVertical
570 +          TabOrder = 25
571 +        end
572        end
573      end
574      object FilesTab: TTabSheet
# Line 1037 | Line 1070 | object MainForm: TMainForm
1070        OnShow = StatisticsTabShow
1071        object StatsOptions: TComboBox
1072          Left = 667
1073 <        Height = 23
1073 >        Height = 27
1074          Top = 8
1075          Width = 228
1076          Anchors = [akTop, akRight]
# Line 2015 | Line 2048 | object MainForm: TMainForm
2048        OnShow = AccessRightsTabShow
2049        object AccessRightsTreeView: TIBTreeView
2050          Left = 0
2051 <        Height = 519
2051 >        Height = 516
2052          Top = 0
2053          Width = 300
2054          Align = alLeft
# Line 2028 | Line 2061 | object MainForm: TMainForm
2061          KeyField = 'ID'
2062          ParentField = 'PARENT'
2063          PopupMenu = AccessRightsPopup
2064 +        ReadOnly = True
2065          TabOrder = 0
2066          OnSelectionChanged = AccessRightsTreeViewSelectionChanged
2067 +        Options = [tvoAutoItemHeight, tvoHideSelection, tvoKeepCollapsedNodes, tvoReadOnly, tvoShowButtons, tvoShowLines, tvoShowRoot, tvoToolTips, tvoThemedDraw]
2068        end
2069        object Splitter5: TSplitter
2070          Left = 300
2071 <        Height = 519
2071 >        Height = 516
2072          Top = 0
2073          Width = 5
2074        end
2075        object SubjectAccessRightsGrid: TIBDynamicGrid
2076          Left = 305
2077 <        Height = 519
2077 >        Height = 516
2078          Top = 0
2079 <        Width = 626
2079 >        Width = 628
2080          Align = alClient
2081          Color = clWindow
2082          Columns = <        
# Line 2228 | Line 2263 | object MainForm: TMainForm
2263        OnShow = RepairTabShow
2264        object SelectRepairAction: TComboBox
2265          Left = 654
2266 <        Height = 23
2266 >        Height = 27
2267          Top = 8
2268          Width = 200
2269          Anchors = [akTop, akRight]
# Line 2317 | Line 2352 | object MainForm: TMainForm
2352            end
2353            object ValidateRepairRecordFragments: TCheckBox
2354              Left = 16
2355 <            Height = 19
2355 >            Height = 22
2356              Top = 48
2357 <            Width = 161
2357 >            Width = 184
2358              Caption = 'Validate Record Fragments'
2359              Checked = True
2360              State = cbChecked
# Line 2327 | Line 2362 | object MainForm: TMainForm
2362            end
2363            object IgnoreChecksumsOnRepair: TCheckBox
2364              Left = 16
2365 <            Height = 19
2365 >            Height = 22
2366              Top = 71
2367 <            Width = 146
2367 >            Width = 170
2368              Caption = 'Ignore Checksum Errors'
2369              TabOrder = 1
2370            end
# Line 2366 | Line 2401 | object MainForm: TMainForm
2401            TabOrder = 0
2402            object Alltables: TRadioButton
2403              Left = 9
2404 <            Height = 19
2404 >            Height = 22
2405              Top = 32
2406 <            Width = 71
2406 >            Width = 78
2407              Caption = 'All Tables'
2408              Checked = True
2409              OnChange = SelectedTablesOnlyChange
# Line 2377 | Line 2412 | object MainForm: TMainForm
2412            end
2413            object SelectedTablesOnly: TRadioButton
2414              Left = 9
2415 <            Height = 19
2415 >            Height = 22
2416              Top = 56
2417 <            Width = 129
2417 >            Width = 147
2418              Caption = 'Selected Tables Only'
2419              OnChange = SelectedTablesOnlyChange
2420              TabOrder = 1
# Line 2425 | Line 2460 | object MainForm: TMainForm
2460            end
2461            object Label40: TLabel
2462              Left = 9
2463 <            Height = 15
2463 >            Height = 14
2464              Top = 7
2465 <            Width = 42
2465 >            Width = 47
2466              Caption = 'Validate'
2467              ParentColor = False
2468            end
2469            object SelectAllTables: TCheckBox
2470              Left = 0
2471 <            Height = 19
2472 <            Top = 366
2473 <            Width = 117
2471 >            Height = 22
2472 >            Top = 363
2473 >            Width = 134
2474              Anchors = [akLeft, akBottom]
2475              Caption = 'Select/Deselect All'
2476              OnChange = SelectAllTablesChange
# Line 2460 | Line 2495 | object MainForm: TMainForm
2495            TabOrder = 2
2496            object Label37: TLabel
2497              Left = 0
2498 <            Height = 15
2498 >            Height = 14
2499              Top = 8
2500 <            Width = 91
2500 >            Width = 101
2501              Caption = 'Validation Report'
2502              ParentColor = False
2503            end
# Line 2670 | Line 2705 | object MainForm: TMainForm
2705      end
2706    end
2707    object UpdateColsPanel: TPanel
2708 <    Left = 328
2708 >    Left = 40
2709      Height = 64
2710 <    Top = 128
2710 >    Top = 488
2711      Width = 544
2712      BevelOuter = bvNone
2713      BorderStyle = bsSingle
# Line 2740 | Line 2775 | object MainForm: TMainForm
2775        object MenuItem5: TMenuItem
2776          Action = Restore
2777        end
2778 +      object MenuItem21: TMenuItem
2779 +        Caption = '-'
2780 +      end
2781 +      object MenuItem20: TMenuItem
2782 +        Action = RunScript
2783 +      end
2784        object MenuItem10: TMenuItem
2785          Caption = '-'
2786        end
# Line 2900 | Line 2941 | object MainForm: TMainForm
2941        OnExecute = RevokeAllExecute
2942        OnUpdate = RevokeAllUpdate
2943      end
2944 +    object RunScript: TAction
2945 +      Category = 'General'
2946 +      Caption = 'Run SQL Script'
2947 +      Hint = 'Run SQL Script'
2948 +      ImageIndex = 5
2949 +      OnExecute = RunScriptExecute
2950 +    end
2951    end
2952    object MenuImages: TImageList
2953      left = 704
2954      top = 184
2955      Bitmap = {
2956 <      4C69050000001000000010000000000000000000000000000000000000000000
2956 >      4C69060000001000000010000000000000000000000000000000000000000000
2957        0000000000000000000000000000000000000000000000000000000000FF0000
2958        00FF000000FF000000FF000000FF000000000000000000000000000000000000
2959        00000000000000000000000084FF0000000000000000000000FF848400FFFFFF
# Line 3065 | Line 3113 | object MainForm: TMainForm
3113        EB08FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00211FE3081E1C
3114        E241FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
3115        FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
3116 <      FF00FFFFFF00FFFFFF00FFFFFF00
3116 >      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
3117 >      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00858A88FF858A88FF858A
3118 >      88FFFFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
3119 >      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00808080026A6E6CFFECEEEEFF6A6E
3120 >      6CFF80808002FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
3121 >      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF01414342FEF2F3F2FFFEFEFEFFF2F3
3122 >      F2FF414342FEFFFFFF01FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
3123 >      FF00FFFFFF00FFFFFF00858A88FF6A6E6CFFF1F1F1FFACADADFB717473FAACAD
3124 >      ADFBF1F1F1FF6A6E6CFF858A88FFFFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
3125 >      FF00FFFFFF00FFFFFF00858A88FFECEEEEFFFEFEFEFF717573FBFFFFFF017175
3126 >      73FBFEFEFEFFECEEEEFF858A88FFFFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
3127 >      FF00FFFFFF00FFFFFF00858A88FF6A6E6CFFF1F1F1FFACADADFB717473FAACAD
3128 >      ADFBF1F1F1FF6A6E6CFF858A88FFFFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
3129 >      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF01414342FEF2F3F2FFFEFEFEFFF2F3
3130 >      F2FF414342FEFFFFFF01FFFFFF00FFFFFF00FFFFFF00FFFFFF00858A88FF858A
3131 >      88FF858A88FFFFFFFF00FFFFFF00545856FF535755FF6A6E6CFFECEEEEFF6A6E
3132 >      6CFF535755FF545856FFFFFFFF00FFFFFF00FFFFFF00808080026A6E6CFFECEE
3133 >      EEFF6A6E6CFF80808002535755FFCECFCFFFE0E2E2FF858A88FF858A88FF858A
3134 >      88FFE0E2E2FFCECFCFFF535755FFFFFFFF00FFFFFF01414342FEF2F3F2FFFEFE
3135 >      FEFFF2F3F2FF414342FE535755FEE0E1E1FFF8F8F8FFFBFCFCFFF7F7F7FFFBFC
3136 >      FCFFF8F8F8FFE0E1E1FF535755FE858A88FF6A6E6CFFF1F1F1FFACADADFB7174
3137 >      73FAACADADFBF1F1F1FF6A6E6CFF858A88FFFBFBFBFF9DA09FF6535755FD9DA0
3138 >      9FF6FBFBFBFFABAEAEFA565B58B7858A88FFECEEEEFFFEFEFEFF717573FBFFFF
3139 >      FF01717573FBFEFEFEFFECEEEEFF858A88FFF7F7F7FF535755FF000000015357
3140 >      55FFF7F7F7FFC4C5C5FF00000001858A88FF6A6E6CFFF1F1F1FFACADADFB7174
3141 >      73FAACADADFBF1F1F1FF6A6E6CFF858A88FFFBFBFBFF9DA09FF6535755FD9DA0
3142 >      9FF6FBFBFBFFABAEAEFA565B58B7FFFFFF00FFFFFF01414342FEF2F3F2FFFEFE
3143 >      FEFFF2F3F2FF414342FE535755FEE0E1E1FFF8F8F8FFFBFCFCFFF7F7F7FFFBFC
3144 >      FCFFF8F8F8FFE0E1E1FF535755FEFFFFFF00FFFFFF00FFFFFF016A6E6CFFECEE
3145 >      EEFF6A6E6CFFFFFFFF01535755FFCECFCFFFE0E2E2FFADB0AFFBC6C8C7FCADB0
3146 >      AFFBE0E2E2FFCECFCFFF535755FFFFFFFF00FFFFFF00FFFFFF00858A88FF858A
3147 >      88FF858A88FFFFFFFF00FFFFFF00545856FF535755FF575B58B300000001575B
3148 >      58B3535755FF545856FF00000001
3149      }
3150    end
3151    object CharSetSource: TDataSource
# Line 3100 | Line 3180 | object MainForm: TMainForm
3180    end
3181    object ShadowSource: TDataSource
3182      DataSet = DatabaseData.ShadowFiles
3183 <    left = 424
3184 <    top = 400
3183 >    left = 464
3184 >    top = 512
3185    end
3186    object SynSQLSyn1: TSynSQLSyn
3187      DefaultFilter = 'SQL Files (*.sql)|*.sql'
# Line 3118 | Line 3198 | object MainForm: TMainForm
3198      Transaction = DatabaseData.CurrentTransaction
3199      ShowSystem = False
3200      AlwaysQuoteIdentifiers = False
3201 +    CaseSensitiveObjectNames = False
3202      left = 712
3203      top = 296
3204    end

Diff Legend

– Removed lines
+ Added lines
< Changed lines
> Changed lines