home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
serv.yrg.kuzbass.net
/
serv.yrg.kuzbass.net.zip
/
serv.yrg.kuzbass.net
/
bde501.zip
/
_SETUP.1
/
DATAPUMP.EXE
/
RCDATA
/
TUPSIZINGFORM
/
TUPSIZINGFORM.txt
Wrap
Text File
|
1998-10-10
|
31KB
|
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
