object frmTableBuilder: TfrmTableBuilder Left = 274 Top = 193 HelpContext = 90 ActiveControl = btnGenerateTable BorderStyle = bsDialog Caption = 'Table Builder' ClientHeight = 447 ClientWidth = 426 Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] FormStyle = fsStayOnTop Position = poScreenCenter ShowHint = True OnActivate = FormActivate OnClose = FormClose OnHide = FormHide OnShow = FormShow PixelsPerInch = 96 TextHeight = 13 object Bevel1: TBevel Left = 4 Top = 216 Width = 417 Height = 187 end object lblTableWidth: TLabel Left = 16 Top = 228 Width = 47 Height = 13 Caption = 'Table Wi&dth' FocusControl = cmbTableWidth end object lblAlign: TLabel Left = 176 Top = 228 Width = 121 Height = 13 Alignment = taRightJustify Caption = 'Table &Align' FocusControl = cmbAlign end object lblBorder: TLabel Left = 280 Top = 282 Width = 97 Height = 13 Alignment = taRightJustify Caption = 'Border &Width' WordWrap = True end object lblCaption: TLabel Left = 16 Top = 256 Width = 81 Height = 17 Caption = '&Caption' FocusControl = txtCaption end object lblCaptionAlign: TLabel Left = 16 Top = 283 Width = 89 Height = 14 Caption = 'Caption A&lignment' FocusControl = cmbCaptionAlign end object lblFieldSeperator1: TLabel Left = 120 Top = 370 Width = 113 Height = 15 Alignment = taCenter Caption = 'Import / Export' end object lblFieldSeperator2: TLabel Left = 120 Top = 382 Width = 113 Height = 19 Alignment = taCenter Caption = 'Field &Separator' FocusControl = cbxSeperator end object lblCellColor: TLabel Left = 16 Top = 338 Width = 44 Height = 13 Caption = 'C&ell Color' FocusControl = txtColor Font.Color = clBlack Font.Height = -12 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False end object shpBGColor: TShape Left = 243 Top = 334 Width = 25 Height = 21 end object Bevel2: TBevel Left = 6 Top = 362 Width = 413 Height = 9 Shape = bsTopLine Style = bsRaised end object lblCellPadding: TLabel Left = 16 Top = 310 Width = 57 Height = 19 Caption = 'Cell&Padding' FocusControl = txtCellPadding end object lblCellSpacing: TLabel Left = 231 Top = 308 Width = 58 Height = 21 Caption = 'Cell&Spacing' FocusControl = txtCellSpacing end object btnGenerateTable: TBitBtn Left = 153 Top = 416 Width = 100 Height = 25 Caption = '&Generate Table' Default = True ModalResult = 1 TabOrder = 13 OnClick = btnGenerateTableClick NumGlyphs = 2 Spacing = -1 IsControl = True end object btnClose: TBitBtn Left = 260 Top = 416 Width = 77 Height = 25 Cancel = True Caption = 'Close' ModalResult = 2 TabOrder = 14 OnClick = btnCloseClick NumGlyphs = 2 Spacing = -1 IsControl = True end object HelpBtn: TBitBtn Left = 344 Top = 416 Width = 77 Height = 25 Caption = '&Help' TabOrder = 15 OnClick = HelpBtnClick NumGlyphs = 2 Spacing = -1 IsControl = True end object cmbTableWidth: TComboBox Left = 120 Top = 224 Width = 57 Height = 21 Hint = 'Width of the table' ItemHeight = 13 Items.Strings = ( '90%' '80%' '70%' '60%' '50%' '40%' '30%' '20%' '10%') TabOrder = 0 OnKeyPress = cmbTableWidthKeyPress end object cmbAlign: TComboBox Left = 304 Top = 224 Width = 105 Height = 21 Hint = 'Usually left, right or center' ItemHeight = 13 Items.Strings = ( 'absbottom' 'absmiddle' 'baseline' 'bleedleft' 'bleedright' 'bottom' 'center' 'left' 'middle' 'right' 'text' 'top') TabOrder = 1 end object chkBorder: TCheckBox Left = 229 Top = 281 Width = 49 Height = 17 Hint = 'Display table with border lines' Caption = '&Border' State = cbChecked TabOrder = 4 OnClick = chkBorderClick end object txtBorder: TMaskEdit Left = 384 Top = 279 Width = 25 Height = 21 Hint = 'Width of the table'#39's outside border' MaxLength = 0 TabOrder = 5 Text = '1' OnKeyPress = txtBorderKeyPress end object txtCaption: TEdit Left = 120 Top = 252 Width = 289 Height = 21 Hint = 'The table'#39's caption' TabOrder = 2 end object cmbCaptionAlign: TComboBox Left = 120 Top = 279 Width = 105 Height = 21 Hint = 'Location of the table'#39's caption' ItemHeight = 13 Items.Strings = ( 'bottom' 'top') TabOrder = 3 end object bbtnImport: TBitBtn Left = 14 Top = 371 Width = 105 Height = 25 Hint = 'Imports a file into the table' Caption = 'Import' TabOrder = 10 OnClick = bbtnImportClick Glyph.Data = { 12040000424D1204000000000000760000002800000054000000150000000100 0400000000009C03000000000000000000000000000000000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777 7777777777777777777777777777777777777777777777777777777777777777 7777777700007777777777777777777777777777777777777777777777777777 77777777777F7F7F7F7F7F7F7F7F7F7F00007777777777777777777777777777 7777777777777777777777777777777777777777777777777777777700007777 777777777777777777777FFFFFFFFFFFF77777777777777777777777777F7F7F 7F7F7F7F7F7F7F7F00007780000000000000777777778888888888888F777777 8000000000000077777778000000000000077777000077007B7B7B7B7B7B0777 77788F777777777778F77777007B7B7B7B7B7B07777F7007B7B7B7B7B7B07F7F 0000770F07B7B7B7B7B707777778F8F77777777778F777770707B7B7B7B7B7B0 777770707B7B7B7B7B7B07770000770B0B7B7B7B7B7B07777778F8F777777777 778F77770BB07B7B7B7B7B7B077F70BB07B7B7B7B7B7B07F0000770F0BB7B7B7 B7B7B0777778F78F77777777778F777707BF000007B7B7B7B077707B7000007B 7B7B7B070000770BF07B7B7B7B7B70777778F78FFFFF77777778F7770BFBFBFB F0000000077F70B7BF0FFF000000007F0000770FB0B7B7B7B7B7B0777778F778 8888FFFFFFF8F77707BFBFBFBFBFB0777777707B7B0FFFFFFFF077770000770B F07B7B7B7B7B7B077778F77777778888888777770BFBFBFBFBFBF077777F70B7 BF0FFFFFFFF07F7F0000770FBF000000B7B7B7077778F777777777778F777777 07BFBFBFBFBFB0777777707B7B0FFFFFFFF077770000770BFBFBFBF000000077 7778F7777FFFFFFF8F7777770BFBFBFBFBFBF077777F70B7BF0FFFFFFFF07F7F 0000770FBFBF0000000777777778FFFFF88888887777777707BFBF0000000777 7777707B7B0FFFFFFFF077770000777000007777777777777777888887777777 777777777000007777777777777F7F00000FFFFF00007F7F0000777777777777 77777777777777777777777777777777777777777777777777777777770FFFFF 0F07777700007777777777777777777777777777777777777777777777777777 77777777777F7F7F7F0FFFFF007F7F7F00007777777777777777777777777777 7777777777777777777777777777777777777777770000000777777700007777 77777777777777777777777777777777777777777777777777777777777F7F7F 7F7F7F7F7F7F7F7F000077777777777777777777777777777777777777777777 77777777777777777777777777777777777777770000} NumGlyphs = 4 end object bbtnExport: TBitBtn Left = 304 Top = 370 Width = 105 Height = 25 Hint = 'Exports the table to a file' Caption = 'Export' TabOrder = 12 OnClick = bbtnExportClick Glyph.Data = { 12040000424D1204000000000000760000002800000054000000150000000100 0400000000009C03000000000000000000000000000000000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777 7777777777777777777777777777777777777777777777777777777777777777 7777777700007777777777777777777777777777777777777777777777777777 77777777777F7F7F7F7F7F7F7F7F7F7F00007777777777777777777777777777 7777777777777777777777777777777777777777777777777777777700007777 777777777777777777777FFFFFFFFFFFFFF777777777777777777777777F7F7F 7F7F7F7F7F7F7F7F000077780000000000008777777788888888888888F77777 780000000000008777777780000000000008777700007770CC0FCCFF70CC0777 77778F78F777778F78F7777770CC07FF00F0CC07777F7F0CC07FF00F0CC07F7F 00007770CC0FCCFF70CC077777778F78F777778F78F7777770CC07FF00F0CC07 7777770CC07FF00F0CC0777700007770CC0FFFFF70CC077777778F78FFFFFF8F 78F7777770CC07FFFFF0CC07777F7F0CC07FFFFF0CC07F7F00007770CC600000 06CC077777778F778888887778F7777770CC60000006CC077777770CC6000000 6CC0777700007770CCCCCCCCCCCC077777778F77F7F7F7F778F7777770CCCCCC CCCCCC07777F7F0CCCCCCCCCCCC07F7F00007770C6000000006C077777778F78 8888888F78F7777770C6000000006C077777770C6000000006C0777700007770 C0FFFFFFFF0C077777778F8F77777778F8F7777770C0BFBFBFBF0C07777F7F0C 0BFBFBFBF0C07F7F00007770C0FBFBFBFB0C077777778F8F77777778F8F77777 70C0FBFBFBFB0C077777770C0FBFBFBFB0C0777700007770C0FFFFFFFF0C0777 77778F8F77777778F8F7777770C0BFBFBFBF0C07777F7F0C0BFBFBFBF0C07F7F 00007770C0FBFBFBFB0C077777778F8F77777778F8F7777770C0FBFBFBFB0C07 7777770C0FBFBFBFB0C077770000777000FFFFFFFF0007777777888F77777778 88F777777000BFBFBFBF0007777F7F000BFBFBFBF0007F7F00007770C0FBFBFB FB0C07777777878FFFFFFFF878F7777770C0FBFBFBFB0C077777770C0FBFBFBF B0C0777700007778000000000000877777778888888888888877777778000000 00000087777F7F800000000000087F7F00007777777777777777777777777777 7777777777777777777777777777777777777777777777777777777700007777 77777777777777777777777777777777777777777777777777777777777F7F7F 7F7F7F7F7F7F7F7F000077777777777777777777777777777777777777777777 77777777777777777777777777777777777777770000} NumGlyphs = 4 end object cbxSeperator: TComboBox Left = 234 Top = 372 Width = 49 Height = 21 Hint = 'The character that seperates fields. i.e. the commas in "John","' + 'Smith","123 Melody Lane"' ItemHeight = 13 Items.Strings = ( ',' ';' '.' ':' '|' '{TAB}') MaxLength = 1 TabOrder = 11 Text = ',' OnChange = cbxSeperatorChange end object txtColor: TComboBox Left = 120 Top = 334 Width = 105 Height = 21 Hint = 'Color can be in either text or hex format' ItemHeight = 13 Items.Strings = ( 'Aqua' 'Black' 'Blue' 'Fuchsia' 'Gray' 'Green' 'Lime' 'Maroon' 'Navy' 'Olive' 'Purple' 'Red' 'Silver' 'Teal' 'White' 'Yellow') ParentShowHint = False ShowHint = True TabOrder = 8 OnChange = txtColorChange end object bbtnSetColor: TBitBtn Left = 278 Top = 334 Width = 131 Height = 21 Hint = 'Set the cell'#39's color' Caption = 'C&olor' TabOrder = 9 OnClick = bbtnSetColorClick Glyph.Data = { DE000000424DDE0000000000000076000000280000000F0000000D0000000100 0400000000006800000000000000000000000000000000000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00444444444444 444F4CCCCCC4BBBBBB4F4CCCCCC4BBBBBB4F4CCCCCC4BBBBBB4F4CCCCCC4BBBB BB4F4CCCCCC4BBBBBB4F444444444444444F49999994AAAAAA4F49999994AAAA AA4F49999994AAAAAA4F49999994AAAAAA4F49999994AAAAAA4F444444444444 444F} end object pnlTableBuilder: TPanel Left = 0 Top = 0 Width = 426 Height = 209 BevelOuter = bvLowered TabOrder = 16 object sgTable: TStringGrid Left = 4 Top = 1 Width = 417 Height = 206 BorderStyle = bsNone ColCount = 20 DefaultColWidth = 100 DefaultRowHeight = 18 FixedCols = 0 RowCount = 20 Font.Color = clBlack Font.Height = -15 Font.Name = 'MS Sans Serif' Font.Style = [] Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goColSizing, goEditing, goTabs, goAlwaysShowEditor, goThumbTracking] ParentFont = False TabOrder = 0 OnSelectCell = sgTableSelectCell end end object txtCellPadding: TMaskEdit Left = 120 Top = 306 Width = 105 Height = 21 Hint = 'Spacing within cells' MaxLength = 0 TabOrder = 6 end object txtCellSpacing: TMaskEdit Left = 296 Top = 306 Width = 113 Height = 21 Hint = 'Spacing between cells' MaxLength = 0 TabOrder = 7 end object btnClear: TButton Left = 4 Top = 416 Width = 77 Height = 25 Hint = 'Clear out table' Caption = 'Clea&r' TabOrder = 17 OnClick = btnClearClick end object dlgOpen: TOpenDialog DefaultExt = 'txt' FileEditStyle = fsEdit Filter = 'Comma Delimited (*.CSV)|*.CSV|Text Files (*.TXT)|*.TXT|All Files' + ' (*.*)|*.*' Options = [ofHideReadOnly, ofPathMustExist, ofFileMustExist] Title = 'Load Table' Left = 104 Top = 392 end object dlgSave: TSaveDialog DefaultExt = 'csv' FileEditStyle = fsEdit Filter = 'Comma Delimited (*.CSV)|*.CSV|Text Files (*.TXT)|*.TXT|All Text ' + '(*.*)|*.*' Options = [ofOverwritePrompt, ofHideReadOnly, ofPathMustExist, ofNoReadOnlyReturn] Title = 'Save Table' Left = 128 Top = 392 end object dlgColor: TColorDialog Ctl3D = True Left = 152 Top = 392 end end