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