home *** CD-ROM | disk | FTP | other *** search
Text File | 1999-06-21 | 30.1 KB | 1,179 lines |
- object UpsizingForm: TUpsizingForm
- Left = 199
- Top = 168
- ActiveControl = HelpBtn
- BorderIcons = [biSystemMenu, biMinimize]
- BorderStyle = bsSingle
- Caption = 'Upsizing Expert'
- ClientHeight = 325
- ClientWidth = 500
- Font.Charset = DEFAULT_CHARSET
- 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.Charset = DEFAULT_CHARSET
- Font.Color = clBlack
- Font.Height = -12
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- 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.Charset = DEFAULT_CHARSET
- Font.Color = clBlack
- Font.Height = -12
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- WordWrap = True
- 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.Charset = DEFAULT_CHARSET
- Font.Color = clBlack
- Font.Height = -12
- Font.Name = 'MS Sans Serif'
- Font.Style = [fsBold]
- ParentFont = False
- TabOrder = 2
- OnClick = SrcDirRBtnClick
- end
- object SrcHelpNbk: TNotebook
- Left = 12
- Top = 176
- Width = 265
- Height = 97
- TabOrder = 3
- 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.'
- WordWrap = True
- 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.Charset = DEFAULT_CHARSET
- Font.Color = clBlack
- Font.Height = -12
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- WordWrap = True
- end
- end
- end
- object SrcAliasRBtn: TRadioButton
- Left = 52
- Top = 120
- Width = 213
- Height = 16
- Caption = 'Select by alias name'
- Checked = True
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clBlack
- Font.Height = -12
- Font.Name = 'MS Sans Serif'
- Font.Style = [fsBold]
- ParentFont = False
- TabOrder = 1
- 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.Charset = DEFAULT_CHARSET
- Font.Color = clBlack
- Font.Height = -12
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- WordWrap = True
- 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.Charset = DEFAULT_CHARSET
- 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.Charset = DEFAULT_CHARSET
- 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.Charset = DEFAULT_CHARSET
- Font.Color = clBlack
- Font.Height = -12
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- WordWrap = True
- end
- object TblIncBtn: TBitBtn
- Left = 232
- Top = 107
- Width = 37
- Height = 24
- Caption = '>'
- Font.Charset = DEFAULT_CHARSET
- 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.Charset = DEFAULT_CHARSET
- 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.Charset = DEFAULT_CHARSET
- 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.Charset = DEFAULT_CHARSET
- 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.Charset = DEFAULT_CHARSET
- 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.Charset = DEFAULT_CHARSET
- 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.Charset = DEFAULT_CHARSET
- 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 = 56
- Top = 248
- Width = 401
- Height = 25
- Caption =
- '&Modify Table Name or Field Mapping Information For Selected Ite' +
- 'm'
- Font.Charset = DEFAULT_CHARSET
- 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.'
- WordWrap = True
- 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.Charset = DEFAULT_CHARSET
- 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.Charset = DEFAULT_CHARSET
- 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.Charset = DEFAULT_CHARSET
- 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.Charset = DEFAULT_CHARSET
- 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.Charset = DEFAULT_CHARSET
- 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.Charset = DEFAULT_CHARSET
- 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.Charset = DEFAULT_CHARSET
- 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.Charset = DEFAULT_CHARSET
- 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.Charset = DEFAULT_CHARSET
- 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.Charset = DEFAULT_CHARSET
- 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.Charset = DEFAULT_CHARSET
- 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.Charset = DEFAULT_CHARSET
- 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.Charset = DEFAULT_CHARSET
- 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.Charset = DEFAULT_CHARSET
- Font.Color = clBlack
- Font.Height = -12
- Font.Name = 'MS Sans Serif'
- Font.Style = [fsBold]
- ParentFont = False
- TabOrder = 6
- OnClick = IdxUpBtnClick
- Glyph.Data = {
- 66010000424D6601000000000000760000002800000014000000140000000100
- 040000000000F000000000000000000000001000000010000000000000000000
- 8000008000000080800080000000800080008080000080808000C0C0C0000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888888888
- 8888888800008888888888888888888800008888888888888888888800008888
- 8888888888888888000088888888888888888888000088888888888888888888
- 0000888888888888888888880000888888888888888888880000888880888888
- 8088888800008888880888880888888800008888888088808888888800008888
- 8888080888888888000088888888808888888888000088888888888888888888
- 0000888888888888888888880000888888888888888888880000888888888888
- 8888888800008888888888888888888800008888888888888888888800008888
- 88888888888888880000}
- end
- object IdxDownBtn: TBitBtn
- Left = 384
- Top = 248
- Width = 24
- Height = 24
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clBlack
- Font.Height = -12
- Font.Name = 'MS Sans Serif'
- Font.Style = [fsBold]
- ParentFont = False
- TabOrder = 7
- OnClick = IdxDownBtnClick
- Glyph.Data = {
- 66010000424D6601000000000000760000002800000014000000140000000100
- 040000000000F000000000000000000000001000000010000000000000000000
- 8000008000000080800080000000800080008080000080808000C0C0C0000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888888888
- 8888888800008888888888888888888800008888888888888888888800008888
- 8888888888888888000088888888888888888888000088888888888888888888
- 0000888888888888888888880000888888888888888888880000888888888088
- 8888888800008888888808088888888800008888888088808888888800008888
- 8808888808888888000088888088888880888888000088888888888888888888
- 0000888888888888888888880000888888888888888888880000888888888888
- 8888888800008888888888888888888800008888888888888888888800008888
- 88888888888888880000}
- end
- object IdxRightLBox: TListBox
- Left = 276
- Top = 88
- Width = 213
- Height = 153
- Font.Charset = DEFAULT_CHARSET
- 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.Charset = DEFAULT_CHARSET
- 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.Charset = DEFAULT_CHARSET
- 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.Charset = DEFAULT_CHARSET
- 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.Charset = DEFAULT_CHARSET
- 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.Charset = DEFAULT_CHARSET
- 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.Charset = DEFAULT_CHARSET
- 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.Charset = DEFAULT_CHARSET
- 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.Charset = DEFAULT_CHARSET
- 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.Charset = DEFAULT_CHARSET
- 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.Charset = DEFAULT_CHARSET
- 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.Charset = DEFAULT_CHARSET
- 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.Charset = DEFAULT_CHARSET
- 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.Charset = DEFAULT_CHARSET
- 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'
- Filter = 'Paradox Tables|*.DB|dBASE Tables|*.DBF|Text files|*.txt'
- Options = [ofOverwritePrompt, ofHideReadOnly]
- Left = 72
- Top = 292
- end
- end
-