Chip 1997 April/Chip_1997-04_cd.bin/prezent/cb/data.z/DATAPUMP.EXE/0/RCDATA/TUPSIZINGFORM/TUPSIZINGFORM.txt

Text File | 1996-09-19 | 29KB | 1,126 lines

object UpsizingForm: TUpsizingForm
  Left = 235
  Top = 132
  ActiveControl = HelpBtn
  BorderIcons = [biSystemMenu, biMinimize]
  BorderStyle = bsSingle
  Caption = 'Upsizing Expert'
  ClientHeight = 406
  ClientWidth = 625
  Font.Color = clWindowText
  Font.Height = -8
  Font.Name = 'System'
  Font.Style = []
  Position = poScreenCenter
  OnActivate = FormActivate
  OnClose = FormClose
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  PixelsPerInch = 120
  TextHeight = 20
  object Divider: TBevel
    Left = 0
    Top = 351
    Width = 626
    Height = 4
  end
  object ExpertNbk: TNotebook
    Left = 0
    Top = 0
    Width = 625
    Height = 351
    Align = alTop
    Font.Color = clBlack
    Font.Height = -15
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    PageIndex = 1
    ParentFont = False
    TabOrder = 0
    object TPage
      Left = 0
      Top = 0
      Caption = 'Source Alias'
      object SrcHelpLbl: TLabel
        Left = 15
        Top = 25
        Width = 331
        Height = 111
        AutoSize = False
        Caption = 'General help text for this screen.'
        Font.Color = clBlack
        Font.Height = -15
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object SrcSelectNbk: TNotebook
        Left = 365
        Top = 25
        Width = 231
        Height = 316
        TabOrder = 0
        object TPage
          Left = 0
          Top = 0
          Caption = 'Alias Page'
          object SrcAliasLbl: TLabel
            Left = 0
            Top = 0
            Width = 231
            Height = 16
            AutoSize = False
            Caption = 'Source Alias Names'
          end
          object SrcAliasLBox: TListBox
            Left = 0
            Top = 20
            Width = 231
            Height = 296
            ItemHeight = 16
            TabOrder = 0
            OnDblClick = NextBtnClick
          end
        end
        object TPage
          Left = 0
          Top = 0
          Caption = 'Directory Page'
          object SrcDirLBox: TDirectoryListBox
            Left = 0
            Top = 0
            Width = 231
            Height = 286
            Ctl3D = True
            ItemHeight = 16
            ParentCtl3D = False
            TabOrder = 0
          end
          object SrcDrvCBox: TDriveComboBox
            Left = 0
            Top = 291
            Width = 231
            Height = 22
            DirList = SrcDirLBox
            TabOrder = 1
          end
        end
      end
      object SrcDirRBtn: TRadioButton
        Left = 65
        Top = 180
        Width = 266
        Height = 20
        Caption = 'Select by directory'
        Font.Color = clBlack
        Font.Height = -15
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
        TabOrder = 1
        OnClick = SrcDirRBtnClick
      end
      object SrcHelpNbk: TNotebook
        Left = 15
        Top = 220
        Width = 331
        Height = 121
        TabOrder = 2
        object TPage
          Left = 0
          Top = 0
          Caption = 'Alias Page'
          object SrcAliasHelpLbl: TLabel
            Left = 0
            Top = 0
            Width = 331
            Height = 121
            Align = alClient
            AutoSize = False
            Caption = 'Help text for selecting by alias name.'
          end
        end
        object TPage
          Left = 0
          Top = 0
          Caption = 'Directory Page'
          object SrcDirHelpLbl: TLabel
            Left = 0
            Top = 0
            Width = 331
            Height = 121
            Align = alClient
            AutoSize = False
            Caption = 'Help text for selecting by directory.'
            Font.Color = clBlack
            Font.Height = -15
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            ParentFont = False
          end
        end
      end
      object SrcAliasRBtn: TRadioButton
        Left = 65
        Top = 150
        Width = 266
        Height = 20
        Caption = 'Select by alias name'
        Checked = True
        Font.Color = clBlack
        Font.Height = -15
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
        TabOrder = 3
        TabStop = True
        OnClick = SrcAliasRBtnClick
      end
    end
    object TPage
      Left = 0
      Top = 0
      Caption = 'Target Alias'
      object TgtHelpLbl: TLabel
        Left = 335
        Top = 40
        Width = 276
        Height = 301
        AutoSize = False
        Caption = 'Select an alias for the database you want to move your data to.'
        Font.Color = clBlack
        Font.Height = -15
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object TgtAliasLbl: TLabel
        Left = 15
        Top = 15
        Width = 120
        Height = 16
        Caption = 'Target Alias Names'
      end
      object TgtAliasLBox: TListBox
        Left = 15
        Top = 40
        Width = 291
        Height = 301
        ItemHeight = 13
        Items.Strings = (
          '')
        Style = lbOwnerDrawVariable
        TabOrder = 0
        OnClick = TgtAliasLBoxClick
        OnDblClick = NextBtnClick
        OnDrawItem = TgtAliasLBoxDrawItem
        OnMeasureItem = TgtAliasLBoxMeasureItem
      end
    end
    object TPage
      Left = 0
      Top = 0
      Caption = 'Select Tables'
      object TblLeftLbl: TLabel
        Left = 15
        Top = 65
        Width = 266
        Height = 16
        AutoSize = False
        Caption = 'Available Tables:'
        Font.Color = clBlack
        Font.Height = -15
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        IsControl = True
      end
      object TblRightLbl: TLabel
        Left = 345
        Top = 65
        Width = 266
        Height = 16
        AutoSize = False
        Caption = 'Selected Tables:'
        Font.Color = clBlack
        Font.Height = -15
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        IsControl = True
      end
      object TblHelpLbl: TLabel
        Left = 15
        Top = 10
        Width = 596
        Height = 56
        AutoSize = False
        Caption =
          'Select the list of tables to upsize by moving them from the list' +
          ' of available tables to the list of selected tables. Single arro' +
          'w buttons move all selected tables, and double arrow buttons mov' +
          'e all tables. You can also drag and drop table names.'
        Font.Color = clBlack
        Font.Height = -15
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object TblIncBtn: TBitBtn
        Left = 290
        Top = 134
        Width = 46
        Height = 30
        Caption = '>'
        Font.Color = clBlack
        Font.Height = -15
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
        TabOrder = 0
        OnClick = TblIncBtnClick
        IsControl = True
      end
      object TblIncAllBtn: TBitBtn
        Left = 290
        Top = 175
        Width = 46
        Height = 30
        Caption = '>>'
        Font.Color = clBlack
        Font.Height = -15
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
        TabOrder = 1
        OnClick = TblIncAllBtnClick
        IsControl = True
      end
      object TblExcBtn: TBitBtn
        Left = 290
        Top = 215
        Width = 46
        Height = 30
        Caption = '<'
        Font.Color = clBlack
        Font.Height = -15
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
        TabOrder = 2
        OnClick = TblExcBtnClick
        IsControl = True
      end
      object TblExcAllBtn: TBitBtn
        Left = 290
        Top = 255
        Width = 46
        Height = 30
        Caption = '<<'
        Font.Color = clBlack
        Font.Height = -15
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
        TabOrder = 3
        OnClick = TblExcAllBtnClick
        IsControl = True
      end
      object TblRightLBox: TListBox
        Left = 345
        Top = 85
        Width = 266
        Height = 256
        Font.Color = clBlack
        Font.Height = -15
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ItemHeight = 16
        MultiSelect = True
        ParentFont = False
        Sorted = True
        TabOrder = 4
        OnClick = TblRightLBoxClick
        OnDblClick = TblExcBtnClick
        IsControl = True
      end
      object TblLeftLBox: TListBox
        Left = 15
        Top = 85
        Width = 266
        Height = 256
        Font.Color = clBlack
        Font.Height = -15
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ItemHeight = 16
        MultiSelect = True
        ParentFont = False
        Sorted = True
        TabOrder = 5
        OnClick = TblLeftLBoxClick
        OnDblClick = TblIncBtnClick
        IsControl = True
      end
    end
    object TPage
      Left = 0
      Top = 0
      Caption = 'Select Modify'
      object ModHelpLbl: TLabel
        Left = 15
        Top = 5
        Width = 596
        Height = 56
        AutoSize = False
        Caption =
          'You can highlight a table with unacceptable translation, and cli' +
          'ck '#39'Modify...'#39' to modify the information. If all indicated infor' +
          'mation is acceptable then click '#39'Upsize'#39' to continue.'
        Font.Color = clBlack
        Font.Height = -15
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        WordWrap = True
      end
      object ModTablesGrid: TStringGrid
        Left = 15
        Top = 65
        Width = 576
        Height = 239
        ColCount = 4
        DefaultColWidth = 80
        DefaultRowHeight = 18
        RowCount = 12
        Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine]
        ScrollBars = ssNone
        TabOrder = 0
        OnDblClick = ModDoItemBtnClick
        OnTopLeftChanged = ModTablesGridTopLeftChanged
        ColWidths = (
          80
          116
          117
          143)
      end
      object ModDoItemBtn: TButton
        Left = 89
        Top = 310
        Width = 446
        Height = 31
        Caption = '&Modify Mapping Information For Selected Item'
        Font.Color = clBlack
        Font.Height = -15
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
        TabOrder = 1
        OnClick = ModDoItemBtnClick
      end
      object ModTablesScrl: TScrollBar
        Left = 590
        Top = 65
        Width = 21
        Height = 239
        Kind = sbVertical
        Min = 1
        Position = 1
        TabOrder = 2
        TabStop = False
        OnScroll = ModTablesScrlScroll
      end
    end
    object TPage
      Left = 0
      Top = 0
      Caption = 'Modify Fields'
      object FldHelpLbl: TLabel
        Left = 15
        Top = 10
        Width = 596
        Height = 56
        AutoSize = False
        Caption =
          'Here you can view or modified the names and values that the upsi' +
          'zing expert has selected for the tables that will be created on ' +
          'the target database. Select a field name in the list box on the ' +
          'left, and view or modify the values presented.'
      end
      object FldSrcFldsLbl: TLabel
        Left = 15
        Top = 70
        Width = 191
        Height = 16
        AutoSize = False
        Caption = 'Source Field Names'
      end
      object FldFldTypeLbl: TLabel
        Left = 210
        Top = 190
        Width = 100
        Height = 16
        Alignment = taRightJustify
        AutoSize = False
        Caption = 'Field Type:'
        Color = clBtnFace
        ParentColor = False
      end
      object FldFldNameLbl: TLabel
        Left = 210
        Top = 160
        Width = 100
        Height = 16
        Alignment = taRightJustify
        AutoSize = False
        Caption = 'Field Name:'
      end
      object FldTblNameLbl: TLabel
        Left = 210
        Top = 115
        Width = 100
        Height = 16
        Alignment = taRightJustify
        AutoSize = False
        Caption = 'Table Name:'
      end
      object FldReqLbl: TLabel
        Left = 210
        Top = 220
        Width = 100
        Height = 16
        Alignment = taRightJustify
        AutoSize = False
        Caption = 'Is Required:'
      end
      object FldMinValLbl: TLabel
        Left = 210
        Top = 250
        Width = 100
        Height = 16
        Alignment = taRightJustify
        AutoSize = False
        Caption = 'Min Value:'
      end
      object FldMaxValLbl: TLabel
        Left = 210
        Top = 280
        Width = 100
        Height = 16
        Alignment = taRightJustify
        AutoSize = False
        Caption = 'Max Value:'
      end
      object FldDefaultLbl: TLabel
        Left = 210
        Top = 311
        Width = 100
        Height = 17
        Alignment = taRightJustify
        AutoSize = False
        Caption = 'Default:'
      end
      object FldSourceLbl: TLabel
        Left = 315
        Top = 90
        Width = 146
        Height = 16
        Alignment = taCenter
        AutoSize = False
        Caption = 'Source'
        Color = clBtnFace
        ParentColor = False
      end
      object FldTargetLbl: TLabel
        Left = 465
        Top = 90
        Width = 146
        Height = 16
        Alignment = taCenter
        AutoSize = False
        Caption = 'Target'
        Color = clBtnFace
        ParentColor = False
      end
      object FldNameLBox: TListBox
        Left = 15
        Top = 90
        Width = 191
        Height = 251
        ItemHeight = 16
        TabOrder = 0
        OnClick = FldNameLBoxClick
      end
      object FldSrcTypeEdit: TEdit
        Left = 315
        Top = 185
        Width = 146
        Height = 24
        TabStop = False
        Font.Color = clGray
        Font.Height = -15
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        ReadOnly = True
        TabOrder = 9
        Text = 'FldSrcTypeEdit'
      end
      object FldTgtNameEdit: TEdit
        Left = 465
        Top = 155
        Width = 146
        Height = 24
        TabOrder = 2
        Text = 'FldTgtNameEdit'
        OnChange = FldTgtNameEditChange
      end
      object FldTgtTypeCBox: TComboBox
        Left = 465
        Top = 185
        Width = 146
        Height = 24
        Style = csDropDownList
        ItemHeight = 16
        Items.Strings = (
          'False'
          'True')
        TabOrder = 3
        OnChange = FldTgtTypeCBoxChange
      end
      object FldSrcTblNameEdit: TEdit
        Left = 315
        Top = 110
        Width = 146
        Height = 24
        TabStop = False
        Font.Color = clGray
        Font.Height = -15
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        ReadOnly = True
        TabOrder = 8
        Text = 'FldSrcTblNameEdit'
      end
      object FldTgtTblNameEdit: TEdit
        Left = 465
        Top = 110
        Width = 146
        Height = 24
        TabOrder = 1
        Text = 'FldTgtTblNameEdit'
        OnChange = FldTgtTblNameEditChange
      end
      object FldSrcReqEdit: TEdit
        Left = 315
        Top = 215
        Width = 146
        Height = 24
        TabStop = False
        Font.Color = clGray
        Font.Height = -15
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        ReadOnly = True
        TabOrder = 10
        Text = 'FldSrcReqEdit'
      end
      object FldSrcMinEdit: TEdit
        Left = 315
        Top = 245
        Width = 146
        Height = 24
        TabStop = False
        Font.Color = clGray
        Font.Height = -15
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        ReadOnly = True
        TabOrder = 11
        Text = 'FldSrcMinEdit'
      end
      object FldTgtMinEdit: TEdit
        Left = 465
        Top = 245
        Width = 146
        Height = 24
        TabOrder = 5
        Text = 'FldTgtMinEdit'
        OnEnter = FldTgtMinMaxDefEditEnter
        OnExit = FldTgtMinMaxDefEditExit
      end
      object FldSrcMaxEdit: TEdit
        Left = 315
        Top = 275
        Width = 146
        Height = 24
        TabStop = False
        Font.Color = clGray
        Font.Height = -15
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        ReadOnly = True
        TabOrder = 12
        Text = 'FldSrcMaxEdit'
      end
      object FldTgtMaxEdit: TEdit
        Left = 465
        Top = 275
        Width = 146
        Height = 24
        TabOrder = 6
        Text = 'FldTgtMaxEdit'
        OnEnter = FldTgtMinMaxDefEditEnter
        OnExit = FldTgtMinMaxDefEditExit
      end
      object FldSrcDefEdit: TEdit
        Left = 315
        Top = 305
        Width = 146
        Height = 24
        TabStop = False
        Font.Color = clGray
        Font.Height = -15
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        ReadOnly = True
        TabOrder = 13
        Text = 'FldSrcDefEdit'
      end
      object FldTgtDefEdit: TEdit
        Left = 465
        Top = 305
        Width = 146
        Height = 24
        TabOrder = 7
        Text = 'FldTgtDefEdit'
        OnEnter = FldTgtMinMaxDefEditEnter
        OnExit = FldTgtMinMaxDefEditExit
      end
      object FldTgtReqCBox: TComboBox
        Left = 465
        Top = 215
        Width = 146
        Height = 24
        Style = csDropDownList
        ItemHeight = 16
        Items.Strings = (
          'False'
          'True')
        TabOrder = 4
        OnChange = FldTgtReqCBoxChange
      end
    end
    object TPage
      Left = 0
      Top = 0
      Caption = 'Modify Indexes'
      object IdxLeftLbl: TLabel
        Left = 15
        Top = 85
        Width = 271
        Height = 16
        AutoSize = False
        Caption = 'Available Fields For Indexing:'
        Font.Color = clBlack
        Font.Height = -15
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        IsControl = True
      end
      object IdxRigthLbl: TLabel
        Left = 345
        Top = 85
        Width = 266
        Height = 16
        AutoSize = False
        Caption = 'Selected Fields For Indexing:'
        Font.Color = clBlack
        Font.Height = -15
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        IsControl = True
      end
      object IdxOriginLbl: TLabel
        Left = 235
        Top = 10
        Width = 331
        Height = 20
        AutoSize = False
        Caption = 'Original Index Expression:'
        Font.Color = clBlack
        Font.Height = -15
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object IdxNameLbl: TLabel
        Left = 20
        Top = 10
        Width = 201
        Height = 16
        AutoSize = False
        Caption = 'Index Name:'
      end
      object IdxIncBtn: TBitBtn
        Left = 290
        Top = 125
        Width = 46
        Height = 30
        Caption = '>'
        Font.Color = clBlack
        Font.Height = -15
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
        TabOrder = 1
        OnClick = IdxIncBtnClick
        IsControl = True
      end
      object IdxIncAllBtn: TBitBtn
        Left = 290
        Top = 165
        Width = 46
        Height = 30
        Caption = '>>'
        Font.Color = clBlack
        Font.Height = -15
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
        TabOrder = 2
        OnClick = IdxIncAllBtnClick
        IsControl = True
      end
      object IdxExcBtn: TBitBtn
        Left = 290
        Top = 205
        Width = 46
        Height = 30
        Caption = '<'
        Font.Color = clBlack
        Font.Height = -15
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
        TabOrder = 3
        OnClick = IdxExcBtnClick
        IsControl = True
      end
      object IdxExcAllBtn: TBitBtn
        Left = 290
        Top = 245
        Width = 46
        Height = 30
        Caption = '<<'
        Font.Color = clBlack
        Font.Height = -15
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
        TabOrder = 4
        OnClick = IdxExcAllBtnClick
        IsControl = True
      end
      object IdxUpBtn: TBitBtn
        Left = 440
        Top = 310
        Width = 30
        Height = 30
        Font.Color = clBlack
        Font.Height = -15
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
        TabOrder = 6
        OnClick = IdxUpBtnClick
        Glyph.Data = {
          66010000424D6601000000000000760000002800000014000000140000000100
          040000000000F000000000000000000000000000000000000000000000000000
          8000008000000080800080000000800080008080000080808000C0C0C0000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888888888
          8888888800008888888888888888888800008888888888888888888800008888
          8888888888888888000088888888888888888888000088888888888888888888
          0000888888888888888888880000888888888888888888880000888880888888
          8088888800008888880888880888888800008888888088808888888800008888
          8888080888888888000088888888808888888888000088888888888888888888
          0000888888888888888888880000888888888888888888880000888888888888
          8888888800008888888888888888888800008888888888888888888800008888
          88888888888888880000}
      end
      object IdxDownBtn: TBitBtn
        Left = 480
        Top = 310
        Width = 30
        Height = 30
        Font.Color = clBlack
        Font.Height = -15
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
        TabOrder = 7
        OnClick = IdxDownBtnClick
        Glyph.Data = {
          66010000424D6601000000000000760000002800000014000000140000000100
          040000000000F000000000000000000000000000000000000000000000000000
          8000008000000080800080000000800080008080000080808000C0C0C0000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888888888
          8888888800008888888888888888888800008888888888888888888800008888
          8888888888888888000088888888888888888888000088888888888888888888
          0000888888888888888888880000888888888888888888880000888888888088
          8888888800008888888808088888888800008888888088808888888800008888
          8808888808888888000088888088888880888888000088888888888888888888
          0000888888888888888888880000888888888888888888880000888888888888
          8888888800008888888888888888888800008888888888888888888800008888
          88888888888888880000}
      end
      object IdxRightLBox: TListBox
        Left = 345
        Top = 110
        Width = 266
        Height = 191
        Font.Color = clBlack
        Font.Height = -15
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ItemHeight = 16
        MultiSelect = True
        ParentFont = False
        TabOrder = 5
        OnClick = IdxRightLBoxClick
        OnDblClick = IdxExcBtnClick
        IsControl = True
      end
      object IdxOriginMemo: TMemo
        Left = 235
        Top = 30
        Width = 376
        Height = 46
        Font.Color = clBlack
        Font.Height = -15
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        ReadOnly = True
        ScrollBars = ssVertical
        TabOrder = 8
      end
      object IdxLeftLBox: TListBox
        Left = 15
        Top = 110
        Width = 266
        Height = 231
        Font.Color = clBlack
        Font.Height = -15
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ItemHeight = 16
        MultiSelect = True
        ParentFont = False
        TabOrder = 0
        OnClick = IdxLeftLBoxClick
        OnDblClick = IdxIncBtnClick
        IsControl = True
      end
      object IdxTgtNameEdit: TEdit
        Left = 20
        Top = 30
        Width = 201
        Height = 24
        TabOrder = 9
        Text = 'IdxTgtNameEdit'
        OnChange = IdxTgtNameEditChange
      end
    end
    object TPage
      Left = 0
      Top = 0
      Caption = 'Progress'
      object PrgPercentGauge: TGauge
        Left = 113
        Top = 155
        Width = 401
        Height = 31
        Color = clSilver
        Enabled = False
        ForeColor = clGreen
        BackColor = clSilver
        ParentColor = False
        Progress = 0
      end
      object PrgHelpLbl: TLabel
        Left = 84
        Top = 255
        Width = 456
        Height = 26
        Alignment = taCenter
        AutoSize = False
        Caption = 'Moving data to target database. Please wait.'
        Font.Color = clBlack
        Font.Height = -15
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object PrgInfoLbl: TLabel
        Left = 5
        Top = 65
        Width = 616
        Height = 26
        Alignment = taCenter
        AutoSize = False
        Font.Color = clBlack
        Font.Height = -15
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
      end
    end
    object TPage
      Left = 0
      Top = 0
      Caption = 'Report'
      object RptReportLbl: TLabel
        Left = 20
        Top = 15
        Width = 331
        Height = 20
        AutoSize = False
        Caption = 'Report of upsizing activities:'
        Font.Color = clBlack
        Font.Height = -15
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object RptWriteBtn: TButton
        Left = 170
        Top = 310
        Width = 286
        Height = 31
        Caption = '&Write a copy of this report to file'
        Font.Color = clBlack
        Font.Height = -15
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
        TabOrder = 0
        OnClick = RptWriteBtnClick
      end
      object RptReportGrid: TDBGrid
        Left = 20
        Top = 35
        Width = 586
        Height = 261
        DataSource = ReportDataSource
        Font.Color = clBlack
        Font.Height = -15
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        Options = [dgTitles, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgCancelOnExit]
        ParentFont = False
        ReadOnly = True
        TabOrder = 1
        TitleFont.Color = clWindowText
        TitleFont.Height = -11
        TitleFont.Name = 'MS San Serif'
        TitleFont.Style = []
      end
    end
  end
  object BackBtn: TBitBtn
    Left = 280
    Top = 365
    Width = 76
    Height = 31
    Caption = '< &Back'
    Font.Color = clBlack
    Font.Height = -15
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 2
    OnClick = BackBtnClick
  end
  object NextBtn: TBitBtn
    Left = 360
    Top = 365
    Width = 76
    Height = 31
    Caption = '&Next >'
    Font.Color = clBlack
    Font.Height = -15
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 3
    OnClick = NextBtnClick
  end
  object UpsizeBtn: TButton
    Left = 540
    Top = 365
    Width = 76
    Height = 31
    Caption = '&Upsize'
    Font.Color = clBlack
    Font.Height = -15
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 5
    OnClick = UpsizeBtnClick
  end
  object HelpBtn: TButton
    Left = 190
    Top = 365
    Width = 76
    Height = 31
    Caption = '&Help'
    Font.Color = clBlack
    Font.Height = -15
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 1
    OnClick = HelpBtnClick
  end
  object ExitBtn: TButton
    Left = 450
    Top = 365
    Width = 76
    Height = 31
    Caption = '&Exit'
    Font.Color = clBlack
    Font.Height = -15
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 4
    OnClick = ExitBtnClick
  end
  object ReportTable: TTable
    Left = 8
    Top = 292
  end
  object ReportDataSource: TDataSource
    DataSet = ReportTable
    Left = 40
    Top = 292
  end
  object SaveReportDlg: TSaveDialog
    DefaultExt = 'DB'
    FileEditStyle = fsEdit
    Filter = 'Paradox Tables|*.DB|dBASE Tables|*.DBF|Text files|*.txt'
    Options = [ofOverwritePrompt]
    Left = 72
    Top = 292
  end
end