Chip Hitware 6 A/CHIP_HITWARE6_A.iso/multimed/CDumper/_SETUP.1/DATAPUMP.EXE/RCDATA/TUPSIZINGFORM/TUPSIZINGFORM.txt

Text File | 1997-03-11 | 29KB | 1,126 lines

object UpsizingForm: TUpsizingForm
  Left = 199
  Top = 200
  ActiveControl = HelpBtn
  BorderIcons = [biSystemMenu, biMinimize]
  BorderStyle = bsSingle
  Caption = 'Upsizing Expert'
  ClientHeight = 325
  ClientWidth = 500
  Font.Color = clWindowText
  Font.Height = -6
  Font.Name = 'System'
  Font.Style = []
  Position = poScreenCenter
  OnActivate = FormActivate
  OnClose = FormClose
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  PixelsPerInch = 96
  TextHeight = 16
  object Divider: TBevel
    Left = 0
    Top = 281
    Width = 501
    Height = 3
  end
  object ExpertNbk: TNotebook
    Left = 0
    Top = 0
    Width = 500
    Height = 281
    Align = alTop
    Font.Color = clBlack
    Font.Height = -12
    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 = 12
        Top = 20
        Width = 265
        Height = 89
        AutoSize = False
        Caption = 'General help text for this screen.'
        Font.Color = clBlack
        Font.Height = -12
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object SrcSelectNbk: TNotebook
        Left = 292
        Top = 20
        Width = 185
        Height = 253
        TabOrder = 0
        object TPage
          Left = 0
          Top = 0
          Caption = 'Alias Page'
          object SrcAliasLbl: TLabel
            Left = 0
            Top = 0
            Width = 185
            Height = 13
            AutoSize = False
            Caption = 'Source Alias Names'
          end
          object SrcAliasLBox: TListBox
            Left = 0
            Top = 16
            Width = 185
            Height = 237
            ItemHeight = 13
            TabOrder = 0
            OnDblClick = NextBtnClick
          end
        end
        object TPage
          Left = 0
          Top = 0
          Caption = 'Directory Page'
          object SrcDirLBox: TDirectoryListBox
            Left = 0
            Top = 0
            Width = 185
            Height = 229
            Ctl3D = True
            ItemHeight = 16
            ParentCtl3D = False
            TabOrder = 0
          end
          object SrcDrvCBox: TDriveComboBox
            Left = 0
            Top = 233
            Width = 185
            Height = 19
            DirList = SrcDirLBox
            TabOrder = 1
          end
        end
      end
      object SrcDirRBtn: TRadioButton
        Left = 52
        Top = 144
        Width = 213
        Height = 16
        Caption = 'Select by directory'
        Font.Color = clBlack
        Font.Height = -12
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
        TabOrder = 1
        OnClick = SrcDirRBtnClick
      end
      object SrcHelpNbk: TNotebook
        Left = 12
        Top = 176
        Width = 265
        Height = 97
        TabOrder = 2
        object TPage
          Left = 0
          Top = 0
          Caption = 'Alias Page'
          object SrcAliasHelpLbl: TLabel
            Left = 0
            Top = 0
            Width = 265
            Height = 97
            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 = 265
            Height = 97
            Align = alClient
            AutoSize = False
            Caption = 'Help text for selecting by directory.'
            Font.Color = clBlack
            Font.Height = -12
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            ParentFont = False
          end
        end
      end
      object SrcAliasRBtn: TRadioButton
        Left = 52
        Top = 120
        Width = 213
        Height = 16
        Caption = 'Select by alias name'
        Checked = True
        Font.Color = clBlack
        Font.Height = -12
        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 = 268
        Top = 32
        Width = 221
        Height = 241
        AutoSize = False
        Caption = 'Select an alias for the database you want to move your data to.'
        Font.Color = clBlack
        Font.Height = -12
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object TgtAliasLbl: TLabel
        Left = 12
        Top = 12
        Width = 92
        Height = 13
        Caption = 'Target Alias Names'
      end
      object TgtAliasLBox: TListBox
        Left = 12
        Top = 32
        Width = 233
        Height = 241
        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 = 12
        Top = 52
        Width = 213
        Height = 13
        AutoSize = False
        Caption = 'Available Tables:'
        Font.Color = clBlack
        Font.Height = -12
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        IsControl = True
      end
      object TblRightLbl: TLabel
        Left = 276
        Top = 52
        Width = 213
        Height = 13
        AutoSize = False
        Caption = 'Selected Tables:'
        Font.Color = clBlack
        Font.Height = -12
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        IsControl = True
      end
      object TblHelpLbl: TLabel
        Left = 12
        Top = 8
        Width = 477
        Height = 45
        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 = -12
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object TblIncBtn: TBitBtn
        Left = 232
        Top = 107
        Width = 37
        Height = 24
        Caption = '>'
        Font.Color = clBlack
        Font.Height = -12
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
        TabOrder = 0
        OnClick = TblIncBtnClick
        IsControl = True
      end
      object TblIncAllBtn: TBitBtn
        Left = 232
        Top = 140
        Width = 37
        Height = 24
        Caption = '>>'
        Font.Color = clBlack
        Font.Height = -12
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
        TabOrder = 1
        OnClick = TblIncAllBtnClick
        IsControl = True
      end
      object TblExcBtn: TBitBtn
        Left = 232
        Top = 172
        Width = 37
        Height = 24
        Caption = '<'
        Font.Color = clBlack
        Font.Height = -12
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
        TabOrder = 2
        OnClick = TblExcBtnClick
        IsControl = True
      end
      object TblExcAllBtn: TBitBtn
        Left = 232
        Top = 204
        Width = 37
        Height = 24
        Caption = '<<'
        Font.Color = clBlack
        Font.Height = -12
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
        TabOrder = 3
        OnClick = TblExcAllBtnClick
        IsControl = True
      end
      object TblRightLBox: TListBox
        Left = 276
        Top = 68
        Width = 213
        Height = 205
        Font.Color = clBlack
        Font.Height = -12
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ItemHeight = 13
        MultiSelect = True
        ParentFont = False
        Sorted = True
        TabOrder = 4
        OnClick = TblRightLBoxClick
        OnDblClick = TblExcBtnClick
        IsControl = True
      end
      object TblLeftLBox: TListBox
        Left = 12
        Top = 68
        Width = 213
        Height = 205
        Font.Color = clBlack
        Font.Height = -12
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ItemHeight = 13
        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 = 12
        Top = 4
        Width = 477
        Height = 45
        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 = -12
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        WordWrap = True
      end
      object ModTablesGrid: TStringGrid
        Left = 12
        Top = 52
        Width = 461
        Height = 191
        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 = 71
        Top = 248
        Width = 357
        Height = 25
        Caption = '&Modify Mapping Information For Selected Item'
        Font.Color = clBlack
        Font.Height = -12
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
        TabOrder = 1
        OnClick = ModDoItemBtnClick
      end
      object ModTablesScrl: TScrollBar
        Left = 472
        Top = 52
        Width = 17
        Height = 191
        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 = 12
        Top = 8
        Width = 477
        Height = 45
        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 = 12
        Top = 56
        Width = 153
        Height = 13
        AutoSize = False
        Caption = 'Source Field Names'
      end
      object FldFldTypeLbl: TLabel
        Left = 168
        Top = 152
        Width = 80
        Height = 13
        Alignment = taRightJustify
        AutoSize = False
        Caption = 'Field Type:'
        Color = clBtnFace
        ParentColor = False
      end
      object FldFldNameLbl: TLabel
        Left = 168
        Top = 128
        Width = 80
        Height = 13
        Alignment = taRightJustify
        AutoSize = False
        Caption = 'Field Name:'
      end
      object FldTblNameLbl: TLabel
        Left = 168
        Top = 92
        Width = 80
        Height = 13
        Alignment = taRightJustify
        AutoSize = False
        Caption = 'Table Name:'
      end
      object FldReqLbl: TLabel
        Left = 168
        Top = 176
        Width = 80
        Height = 13
        Alignment = taRightJustify
        AutoSize = False
        Caption = 'Is Required:'
      end
      object FldMinValLbl: TLabel
        Left = 168
        Top = 200
        Width = 80
        Height = 13
        Alignment = taRightJustify
        AutoSize = False
        Caption = 'Min Value:'
      end
      object FldMaxValLbl: TLabel
        Left = 168
        Top = 224
        Width = 80
        Height = 13
        Alignment = taRightJustify
        AutoSize = False
        Caption = 'Max Value:'
      end
      object FldDefaultLbl: TLabel
        Left = 168
        Top = 249
        Width = 80
        Height = 13
        Alignment = taRightJustify
        AutoSize = False
        Caption = 'Default:'
      end
      object FldSourceLbl: TLabel
        Left = 252
        Top = 72
        Width = 117
        Height = 13
        Alignment = taCenter
        AutoSize = False
        Caption = 'Source'
        Color = clBtnFace
        ParentColor = False
      end
      object FldTargetLbl: TLabel
        Left = 372
        Top = 72
        Width = 117
        Height = 13
        Alignment = taCenter
        AutoSize = False
        Caption = 'Target'
        Color = clBtnFace
        ParentColor = False
      end
      object FldNameLBox: TListBox
        Left = 12
        Top = 72
        Width = 153
        Height = 201
        ItemHeight = 13
        TabOrder = 0
        OnClick = FldNameLBoxClick
      end
      object FldSrcTypeEdit: TEdit
        Left = 252
        Top = 148
        Width = 117
        Height = 21
        TabStop = False
        Font.Color = clGray
        Font.Height = -12
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        ReadOnly = True
        TabOrder = 9
        Text = 'FldSrcTypeEdit'
      end
      object FldTgtNameEdit: TEdit
        Left = 372
        Top = 124
        Width = 117
        Height = 21
        TabOrder = 2
        Text = 'FldTgtNameEdit'
        OnChange = FldTgtNameEditChange
      end
      object FldTgtTypeCBox: TComboBox
        Left = 372
        Top = 148
        Width = 117
        Height = 21
        Style = csDropDownList
        ItemHeight = 13
        Items.Strings = (
          'False'
          'True')
        TabOrder = 3
        OnChange = FldTgtTypeCBoxChange
      end
      object FldSrcTblNameEdit: TEdit
        Left = 252
        Top = 88
        Width = 117
        Height = 21
        TabStop = False
        Font.Color = clGray
        Font.Height = -12
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        ReadOnly = True
        TabOrder = 8
        Text = 'FldSrcTblNameEdit'
      end
      object FldTgtTblNameEdit: TEdit
        Left = 372
        Top = 88
        Width = 117
        Height = 21
        TabOrder = 1
        Text = 'FldTgtTblNameEdit'
        OnChange = FldTgtTblNameEditChange
      end
      object FldSrcReqEdit: TEdit
        Left = 252
        Top = 172
        Width = 117
        Height = 21
        TabStop = False
        Font.Color = clGray
        Font.Height = -12
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        ReadOnly = True
        TabOrder = 10
        Text = 'FldSrcReqEdit'
      end
      object FldSrcMinEdit: TEdit
        Left = 252
        Top = 196
        Width = 117
        Height = 21
        TabStop = False
        Font.Color = clGray
        Font.Height = -12
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        ReadOnly = True
        TabOrder = 11
        Text = 'FldSrcMinEdit'
      end
      object FldTgtMinEdit: TEdit
        Left = 372
        Top = 196
        Width = 117
        Height = 21
        TabOrder = 5
        Text = 'FldTgtMinEdit'
        OnEnter = FldTgtMinMaxDefEditEnter
        OnExit = FldTgtMinMaxDefEditExit
      end
      object FldSrcMaxEdit: TEdit
        Left = 252
        Top = 220
        Width = 117
        Height = 21
        TabStop = False
        Font.Color = clGray
        Font.Height = -12
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        ReadOnly = True
        TabOrder = 12
        Text = 'FldSrcMaxEdit'
      end
      object FldTgtMaxEdit: TEdit
        Left = 372
        Top = 220
        Width = 117
        Height = 21
        TabOrder = 6
        Text = 'FldTgtMaxEdit'
        OnEnter = FldTgtMinMaxDefEditEnter
        OnExit = FldTgtMinMaxDefEditExit
      end
      object FldSrcDefEdit: TEdit
        Left = 252
        Top = 244
        Width = 117
        Height = 21
        TabStop = False
        Font.Color = clGray
        Font.Height = -12
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        ReadOnly = True
        TabOrder = 13
        Text = 'FldSrcDefEdit'
      end
      object FldTgtDefEdit: TEdit
        Left = 372
        Top = 244
        Width = 117
        Height = 21
        TabOrder = 7
        Text = 'FldTgtDefEdit'
        OnEnter = FldTgtMinMaxDefEditEnter
        OnExit = FldTgtMinMaxDefEditExit
      end
      object FldTgtReqCBox: TComboBox
        Left = 372
        Top = 172
        Width = 117
        Height = 21
        Style = csDropDownList
        ItemHeight = 13
        Items.Strings = (
          'False'
          'True')
        TabOrder = 4
        OnChange = FldTgtReqCBoxChange
      end
    end
    object TPage
      Left = 0
      Top = 0
      Caption = 'Modify Indexes'
      object IdxLeftLbl: TLabel
        Left = 12
        Top = 68
        Width = 217
        Height = 13
        AutoSize = False
        Caption = 'Available Fields For Indexing:'
        Font.Color = clBlack
        Font.Height = -12
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        IsControl = True
      end
      object IdxRigthLbl: TLabel
        Left = 276
        Top = 68
        Width = 213
        Height = 13
        AutoSize = False
        Caption = 'Selected Fields For Indexing:'
        Font.Color = clBlack
        Font.Height = -12
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        IsControl = True
      end
      object IdxOriginLbl: TLabel
        Left = 188
        Top = 8
        Width = 265
        Height = 16
        AutoSize = False
        Caption = 'Original Index Expression:'
        Font.Color = clBlack
        Font.Height = -12
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object IdxNameLbl: TLabel
        Left = 16
        Top = 8
        Width = 161
        Height = 13
        AutoSize = False
        Caption = 'Index Name:'
      end
      object IdxIncBtn: TBitBtn
        Left = 232
        Top = 100
        Width = 37
        Height = 24
        Caption = '>'
        Font.Color = clBlack
        Font.Height = -12
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
        TabOrder = 1
        OnClick = IdxIncBtnClick
        IsControl = True
      end
      object IdxIncAllBtn: TBitBtn
        Left = 232
        Top = 132
        Width = 37
        Height = 24
        Caption = '>>'
        Font.Color = clBlack
        Font.Height = -12
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
        TabOrder = 2
        OnClick = IdxIncAllBtnClick
        IsControl = True
      end
      object IdxExcBtn: TBitBtn
        Left = 232
        Top = 164
        Width = 37
        Height = 24
        Caption = '<'
        Font.Color = clBlack
        Font.Height = -12
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
        TabOrder = 3
        OnClick = IdxExcBtnClick
        IsControl = True
      end
      object IdxExcAllBtn: TBitBtn
        Left = 232
        Top = 196
        Width = 37
        Height = 24
        Caption = '<<'
        Font.Color = clBlack
        Font.Height = -12
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
        TabOrder = 4
        OnClick = IdxExcAllBtnClick
        IsControl = True
      end
      object IdxUpBtn: TBitBtn
        Left = 352
        Top = 248
        Width = 24
        Height = 24
        Font.Color = clBlack
        Font.Height = -12
        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 = 384
        Top = 248
        Width = 24
        Height = 24
        Font.Color = clBlack
        Font.Height = -12
        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 = 276
        Top = 88
        Width = 213
        Height = 153
        Font.Color = clBlack
        Font.Height = -12
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ItemHeight = 13
        MultiSelect = True
        ParentFont = False
        TabOrder = 5
        OnClick = IdxRightLBoxClick
        OnDblClick = IdxExcBtnClick
        IsControl = True
      end
      object IdxOriginMemo: TMemo
        Left = 188
        Top = 24
        Width = 301
        Height = 37
        Font.Color = clBlack
        Font.Height = -12
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        ReadOnly = True
        ScrollBars = ssVertical
        TabOrder = 8
      end
      object IdxLeftLBox: TListBox
        Left = 12
        Top = 88
        Width = 213
        Height = 185
        Font.Color = clBlack
        Font.Height = -12
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ItemHeight = 13
        MultiSelect = True
        ParentFont = False
        TabOrder = 0
        OnClick = IdxLeftLBoxClick
        OnDblClick = IdxIncBtnClick
        IsControl = True
      end
      object IdxTgtNameEdit: TEdit
        Left = 16
        Top = 24
        Width = 161
        Height = 21
        TabOrder = 9
        Text = 'IdxTgtNameEdit'
        OnChange = IdxTgtNameEditChange
      end
    end
    object TPage
      Left = 0
      Top = 0
      Caption = 'Progress'
      object PrgPercentGauge: TGauge
        Left = 90
        Top = 124
        Width = 321
        Height = 25
        Color = clSilver
        Enabled = False
        ForeColor = clGreen
        BackColor = clSilver
        ParentColor = False
        Progress = 0
      end
      object PrgHelpLbl: TLabel
        Left = 67
        Top = 204
        Width = 365
        Height = 21
        Alignment = taCenter
        AutoSize = False
        Caption = 'Moving data to target database. Please wait.'
        Font.Color = clBlack
        Font.Height = -12
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object PrgInfoLbl: TLabel
        Left = 4
        Top = 52
        Width = 493
        Height = 21
        Alignment = taCenter
        AutoSize = False
        Font.Color = clBlack
        Font.Height = -12
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
      end
    end
    object TPage
      Left = 0
      Top = 0
      Caption = 'Report'
      object RptReportLbl: TLabel
        Left = 16
        Top = 12
        Width = 265
        Height = 16
        AutoSize = False
        Caption = 'Report of upsizing activities:'
        Font.Color = clBlack
        Font.Height = -12
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object RptWriteBtn: TButton
        Left = 136
        Top = 248
        Width = 229
        Height = 25
        Caption = '&Write a copy of this report to file'
        Font.Color = clBlack
        Font.Height = -12
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
        TabOrder = 0
        OnClick = RptWriteBtnClick
      end
      object RptReportGrid: TDBGrid
        Left = 16
        Top = 28
        Width = 469
        Height = 209
        DataSource = ReportDataSource
        Font.Color = clBlack
        Font.Height = -12
        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 = 224
    Top = 292
    Width = 61
    Height = 25
    Caption = '< &Back'
    Font.Color = clBlack
    Font.Height = -12
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 2
    OnClick = BackBtnClick
  end
  object NextBtn: TBitBtn
    Left = 288
    Top = 292
    Width = 61
    Height = 25
    Caption = '&Next >'
    Font.Color = clBlack
    Font.Height = -12
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 3
    OnClick = NextBtnClick
  end
  object UpsizeBtn: TButton
    Left = 432
    Top = 292
    Width = 61
    Height = 25
    Caption = '&Upsize'
    Font.Color = clBlack
    Font.Height = -12
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 5
    OnClick = UpsizeBtnClick
  end
  object HelpBtn: TButton
    Left = 152
    Top = 292
    Width = 61
    Height = 25
    Caption = '&Help'
    Font.Color = clBlack
    Font.Height = -12
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 1
    OnClick = HelpBtnClick
  end
  object ExitBtn: TButton
    Left = 360
    Top = 292
    Width = 61
    Height = 25
    Caption = '&Exit'
    Font.Color = clBlack
    Font.Height = -12
    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