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 225 by tony, Tue Apr 3 09:09:05 2018 UTC vs.
Revision 229 by tony, Tue Apr 10 13:32:36 2018 UTC

# Line 65 | Line 65 | object MainForm: TMainForm
65      Height = 548
66      Top = 26
67      Width = 939
68 <    ActivePage = SchemaTab
68 >    ActivePage = Properties
69      Align = alClient
70      MultiLine = True
71      ParentShowHint = False
72      ShowHint = True
73 <    TabIndex = 4
73 >    TabIndex = 0
74      TabOrder = 2
75      Options = [nboMultiLine]
76      object Properties: TTabSheet
# Line 274 | Line 274 | object MainForm: TMainForm
274            TabOrder = 10
275          end
276          object Label11: TLabel
277 <          Left = 435
277 >          Left = 728
278            Height = 14
279 <          Top = 26
279 >          Top = 22
280            Width = 93
281            Caption = 'Pages Allocated'
282            ParentColor = False
283          end
284          object AllocatedPages: TEdit
285 <          Left = 533
285 >          Left = 826
286            Height = 24
287 <          Top = 20
287 >          Top = 16
288            Width = 89
289            Alignment = taRightJustify
290            ReadOnly = True
# Line 294 | Line 294 | object MainForm: TMainForm
294          object Label19: TLabel
295            Left = 472
296            Height = 14
297 <          Top = 57
297 >          Top = 22
298            Width = 56
299            Caption = 'Page Size'
300            ParentColor = False
301          end
302          object Label3: TLabel
303 <          Left = 460
303 >          Left = 752
304            Height = 14
305 <          Top = 88
305 >          Top = 52
306            Width = 68
307            Caption = 'Pages Used'
308            ParentColor = False
309          end
310          object PagesUsed: TEdit
311 <          Left = 533
311 >          Left = 826
312            Height = 24
313 <          Top = 82
313 >          Top = 48
314            Width = 89
315            Alignment = taRightJustify
316            ReadOnly = True
# Line 318 | Line 318 | object MainForm: TMainForm
318            Text = 'PagesUsed'
319          end
320          object Label10: TLabel
321 <          Left = 438
321 >          Left = 730
322            Height = 14
323 <          Top = 119
323 >          Top = 85
324            Width = 90
325            Caption = 'Pages Available'
326            ParentColor = False
327          end
328          object PagesAvail: TEdit
329 <          Left = 533
329 >          Left = 826
330            Height = 24
331 <          Top = 113
331 >          Top = 80
332            Width = 89
333            Alignment = taRightJustify
334            ReadOnly = True
# Line 336 | Line 336 | object MainForm: TMainForm
336            Text = 'PagesAvail'
337          end
338          object Label12: TLabel
339 <          Left = 430
339 >          Left = 432
340            Height = 14
341 <          Top = 150
341 >          Top = 52
342            Width = 98
343            Caption = 'Current Memory'
344            ParentColor = False
345          end
346          object Edit10: TEdit
347 <          Left = 533
347 >          Left = 535
348            Height = 24
349 <          Top = 144
349 >          Top = 48
350            Width = 89
351            Alignment = taRightJustify
352            ReadOnly = True
# Line 356 | Line 356 | object MainForm: TMainForm
356          object Label20: TLabel
357            Left = 632
358            Height = 14
359 <          Top = 57
359 >          Top = 22
360            Width = 33
361            Caption = 'bytes'
362            ParentColor = False
363          end
364          object Label21: TLabel
365 <          Left = 632
365 >          Left = 634
366            Height = 14
367 <          Top = 149
367 >          Top = 57
368            Width = 33
369            Caption = 'bytes'
370            ParentColor = False
371          end
372          object Label14: TLabel
373 <          Left = 452
373 >          Left = 454
374            Height = 14
375 <          Top = 181
375 >          Top = 85
376            Width = 76
377            Caption = 'Max Memory'
378            ParentColor = False
379          end
380          object Edit11: TEdit
381 <          Left = 533
381 >          Left = 536
382            Height = 24
383 <          Top = 175
383 >          Top = 80
384            Width = 89
385            Alignment = taRightJustify
386            ReadOnly = True
# Line 388 | Line 388 | object MainForm: TMainForm
388            Text = 'Edit11'
389          end
390          object Label22: TLabel
391 <          Left = 632
391 >          Left = 635
392            Height = 14
393 <          Top = 182
393 >          Top = 85
394            Width = 33
395            Caption = 'bytes'
396            ParentColor = False
397          end
398          object Label15: TLabel
399 <          Left = 447
399 >          Left = 740
400            Height = 14
401 <          Top = 212
401 >          Top = 117
402            Width = 81
403            Caption = 'No. of Buffers'
404            ParentColor = False
405          end
406          object PageBuffers: TEdit
407 <          Left = 533
407 >          Left = 826
408            Height = 24
409 <          Top = 206
409 >          Top = 112
410            Width = 89
411            Alignment = taRightJustify
412            NumbersOnly = True
# Line 415 | Line 415 | object MainForm: TMainForm
415            Text = 'PageBuffers'
416          end
417          object Label23: TLabel
418 <          Left = 430
418 >          Left = 679
419            Height = 14
420 <          Top = 245
420 >          Top = 277
421            Width = 100
422            Caption = 'Date DB Created'
423            ParentColor = False
424          end
425          object DBEdit1: TDBEdit
426 <          Left = 533
426 >          Left = 783
427            Height = 24
428 <          Top = 240
428 >          Top = 272
429            Width = 132
430            DataField = 'MON$CREATION_DATE'
431            DataSource = DatabaseSource
# Line 437 | Line 437 | object MainForm: TMainForm
437          object Label16: TLabel
438            Left = 453
439            Height = 14
440 <          Top = 317
440 >          Top = 120
441            Width = 75
442            Caption = 'Linger Delay'
443            ParentColor = False
444          end
445          object LingerDelay: TEdit
446 <          Left = 533
446 >          Left = 536
447            Height = 24
448 <          Top = 311
448 >          Top = 112
449            Width = 89
450            Alignment = taRightJustify
451            NumbersOnly = True
# Line 456 | Line 456 | object MainForm: TMainForm
456          object Label17: TLabel
457            Left = 632
458            Height = 14
459 <          Top = 317
459 >          Top = 118
460            Width = 49
461            Caption = 'seconds'
462            ParentColor = False
463          end
464          object Label7: TLabel
465 <          Left = 400
465 >          Left = 402
466            Height = 14
467 <          Top = 347
467 >          Top = 151
468            Width = 128
469            Caption = 'S&weep Interval set to'
470            FocusControl = SweepInterval
471            ParentColor = False
472          end
473          object SweepInterval: TEdit
474 <          Left = 533
474 >          Left = 535
475            Height = 24
476 <          Top = 342
476 >          Top = 144
477            Width = 89
478            Alignment = taRightJustify
479            NumbersOnly = True
# Line 484 | Line 484 | object MainForm: TMainForm
484          object Label8: TLabel
485            Left = 632
486            Height = 14
487 <          Top = 347
487 >          Top = 151
488            Width = 74
489            Caption = 'Transactions'
490            ParentColor = False
491          end
492          object DBEdit4: TDBEdit
493 <          Left = 533
493 >          Left = 536
494            Height = 24
495 <          Top = 52
495 >          Top = 16
496            Width = 89
497            DataField = 'MON$PAGE_SIZE'
498            DataSource = DatabaseSource
# Line 536 | Line 536 | object MainForm: TMainForm
536            TabOrder = 24
537            Text = 'DatabaseAliasName'
538          end
539 +        object Label43: TLabel
540 +          Left = 536
541 +          Height = 14
542 +          Top = 296
543 +          Width = 65
544 +          Caption = 'Comments'
545 +          ParentColor = False
546 +        end
547 +        object DBComments: TMemo
548 +          Left = 536
549 +          Height = 118
550 +          Top = 311
551 +          Width = 379
552 +          Anchors = [akTop, akLeft, akRight, akBottom]
553 +          Lines.Strings = (
554 +            'DBComments'
555 +          )
556 +          OnEditingDone = DBCommentsEditingDone
557 +          ScrollBars = ssVertical
558 +          TabOrder = 25
559 +        end
560        end
561      end
562      object FilesTab: TTabSheet
# Line 1037 | Line 1058 | object MainForm: TMainForm
1058        OnShow = StatisticsTabShow
1059        object StatsOptions: TComboBox
1060          Left = 667
1061 <        Height = 23
1061 >        Height = 27
1062          Top = 8
1063          Width = 228
1064          Anchors = [akTop, akRight]
# Line 2230 | Line 2251 | object MainForm: TMainForm
2251        OnShow = RepairTabShow
2252        object SelectRepairAction: TComboBox
2253          Left = 654
2254 <        Height = 23
2254 >        Height = 27
2255          Top = 8
2256          Width = 200
2257          Anchors = [akTop, akRight]
# Line 2266 | Line 2287 | object MainForm: TMainForm
2287          TabOrder = 2
2288          object ValidateOptionsTab: TTabSheet
2289            Caption = 'ValidateOptionsTab'
2290 <          ClientHeight = 104
2291 <          ClientWidth = 318
2290 >          ClientHeight = 102
2291 >          ClientWidth = 316
2292            object Label33: TLabel
2293              Left = 5
2294              Height = 14
# Line 2305 | Line 2326 | object MainForm: TMainForm
2326          end
2327          object RepairOptionsTab: TTabSheet
2328            Caption = 'RepairOptionsTab'
2329 <          ClientHeight = 104
2330 <          ClientWidth = 318
2329 >          ClientHeight = 102
2330 >          ClientWidth = 316
2331            object Label34: TLabel
2332              Left = 10
2333              Height = 40
# Line 2319 | Line 2340 | object MainForm: TMainForm
2340            end
2341            object ValidateRepairRecordFragments: TCheckBox
2342              Left = 16
2343 <            Height = 19
2343 >            Height = 22
2344              Top = 48
2345 <            Width = 161
2345 >            Width = 184
2346              Caption = 'Validate Record Fragments'
2347              Checked = True
2348              State = cbChecked
# Line 2329 | Line 2350 | object MainForm: TMainForm
2350            end
2351            object IgnoreChecksumsOnRepair: TCheckBox
2352              Left = 16
2353 <            Height = 19
2353 >            Height = 22
2354              Top = 71
2355 <            Width = 146
2355 >            Width = 170
2356              Caption = 'Ignore Checksum Errors'
2357              TabOrder = 1
2358            end
# Line 2368 | Line 2389 | object MainForm: TMainForm
2389            TabOrder = 0
2390            object Alltables: TRadioButton
2391              Left = 9
2392 <            Height = 19
2392 >            Height = 22
2393              Top = 32
2394 <            Width = 71
2394 >            Width = 78
2395              Caption = 'All Tables'
2396              Checked = True
2397              OnChange = SelectedTablesOnlyChange
# Line 2379 | Line 2400 | object MainForm: TMainForm
2400            end
2401            object SelectedTablesOnly: TRadioButton
2402              Left = 9
2403 <            Height = 19
2403 >            Height = 22
2404              Top = 56
2405 <            Width = 129
2405 >            Width = 147
2406              Caption = 'Selected Tables Only'
2407              OnChange = SelectedTablesOnlyChange
2408              TabOrder = 1
# Line 2427 | Line 2448 | object MainForm: TMainForm
2448            end
2449            object Label40: TLabel
2450              Left = 9
2451 <            Height = 15
2451 >            Height = 14
2452              Top = 7
2453 <            Width = 42
2453 >            Width = 47
2454              Caption = 'Validate'
2455              ParentColor = False
2456            end
2457            object SelectAllTables: TCheckBox
2458              Left = 0
2459 <            Height = 19
2460 <            Top = 366
2461 <            Width = 117
2459 >            Height = 22
2460 >            Top = 363
2461 >            Width = 134
2462              Anchors = [akLeft, akBottom]
2463              Caption = 'Select/Deselect All'
2464              OnChange = SelectAllTablesChange
# Line 2462 | Line 2483 | object MainForm: TMainForm
2483            TabOrder = 2
2484            object Label37: TLabel
2485              Left = 0
2486 <            Height = 15
2486 >            Height = 14
2487              Top = 8
2488 <            Width = 91
2488 >            Width = 101
2489              Caption = 'Validation Report'
2490              ParentColor = False
2491            end
# Line 2672 | Line 2693 | object MainForm: TMainForm
2693      end
2694    end
2695    object UpdateColsPanel: TPanel
2696 <    Left = 328
2696 >    Left = 40
2697      Height = 64
2698 <    Top = 128
2698 >    Top = 488
2699      Width = 544
2700      BevelOuter = bvNone
2701      BorderStyle = bsSingle
# Line 3102 | Line 3123 | object MainForm: TMainForm
3123    end
3124    object ShadowSource: TDataSource
3125      DataSet = DatabaseData.ShadowFiles
3126 <    left = 424
3127 <    top = 400
3126 >    left = 464
3127 >    top = 512
3128    end
3129    object SynSQLSyn1: TSynSQLSyn
3130      DefaultFilter = 'SQL Files (*.sql)|*.sql'
# Line 3120 | Line 3141 | object MainForm: TMainForm
3141      Transaction = DatabaseData.CurrentTransaction
3142      ShowSystem = False
3143      AlwaysQuoteIdentifiers = False
3144 +    CaseSensitiveObjectNames = False
3145      left = 712
3146      top = 296
3147    end

Diff Legend

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