home *** CD-ROM | disk | FTP | other *** search
- object FrmTableAssistant: TFrmTableAssistant
- Left = 127
- Top = 2
- BorderStyle = bsDialog
- Caption = 'Table Assistant'
- ClientHeight = 567
- ClientWidth = 570
- Font.Color = clWindowText
- Font.Height = -16
- Font.Name = 'System'
- Font.Style = []
- PixelsPerInch = 120
- TextHeight = 20
- object lblWidth: TLabel
- Left = 20
- Top = 390
- Width = 69
- Height = 16
- Caption = 'Table &width'
- FocusControl = cbTableWidth
- Font.Color = clBlack
- Font.Height = -15
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- end
- object lblColor: TLabel
- Left = 340
- Top = 440
- Width = 56
- Height = 16
- Caption = '&Cell color'
- FocusControl = cbColor
- Font.Color = clBlack
- Font.Height = -15
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- end
- object lblCellPadding: TLabel
- Left = 20
- Top = 440
- Width = 76
- Height = 16
- Caption = 'Cell &padding'
- FocusControl = seCellPadding
- Font.Color = clBlack
- Font.Height = -15
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- end
- object lblCellSpacing: TLabel
- Left = 20
- Top = 480
- Width = 74
- Height = 16
- Caption = 'Cell &spacing'
- FocusControl = seCellSpacing
- Font.Color = clBlack
- Font.Height = -15
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- end
- object lblCaption: TLabel
- Left = 20
- Top = 260
- Width = 83
- Height = 16
- Caption = 'Table capt&ion'
- FocusControl = EditCaption
- Font.Color = clBlack
- Font.Height = -15
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- end
- object lblCaptionAlignment: TLabel
- Left = 20
- Top = 300
- Width = 58
- Height = 32
- Caption = 'Caption &alignment'
- FocusControl = cbCaptionAlignment
- Font.Color = clBlack
- Font.Height = -15
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- ParentShowHint = False
- ShowHint = True
- WordWrap = True
- end
- object lblTableAlign: TLabel
- Left = 20
- Top = 350
- Width = 68
- Height = 16
- Caption = '&Table align'
- FocusControl = cbTableAlign
- Font.Color = clBlack
- Font.Height = -15
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- end
- object lblBorderWidth: TLabel
- Left = 410
- Top = 300
- Width = 74
- Height = 16
- Caption = 'B&order width'
- FocusControl = seBorderWidth
- Font.Color = clBlack
- Font.Height = -15
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- end
- object lblRows: TLabel
- Left = 200
- Top = 440
- Width = 34
- Height = 16
- Caption = '&Rows'
- FocusControl = seRows
- Font.Color = clBlack
- Font.Height = -15
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- end
- object lblCols: TLabel
- Left = 200
- Top = 480
- Width = 52
- Height = 16
- Caption = 'Co&lumns'
- FocusControl = seCols
- Font.Color = clBlack
- Font.Height = -15
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- end
- object Bevel1: TBevel
- Left = 10
- Top = 520
- Width = 551
- Height = 13
- Shape = bsTopLine
- end
- object SGTable: TStringGrid
- Left = 10
- Top = 10
- Width = 551
- Height = 239
- BorderStyle = bsNone
- ColCount = 4
- DefaultColWidth = 100
- DefaultRowHeight = 20
- FixedCols = 0
- RowCount = 4
- FixedRows = 0
- Font.Color = clBlack
- Font.Height = -15
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRangeSelect, goEditing, goTabs]
- ParentFont = False
- TabOrder = 0
- end
- object btnBuild: TBitBtn
- Left = 330
- Top = 530
- Width = 111
- Height = 31
- Caption = '&Build'
- Default = True
- Font.Color = clBlack
- Font.Height = -15
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ModalResult = 1
- ParentFont = False
- TabOrder = 14
- Glyph.Data = {
- 78010000424D7801000000000000760000002800000020000000100000000100
- 04000000000000000000120B0000120B00000000000000000000000000000000
- 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
- 33333FFFFFFFFFFFFFFF000000000000000077777777777777770FFFFFFFFFFF
- FFF07F3FF3FF3FF3FFF70F00F00F00F000F07F773773773777370FFFFFFFFFFF
- FFF07F3FF3FF3FF3FFF70F00F00F00F000F07F773773773777370FFFFFFFFFFF
- FFF07F3FF3FF3FF3FFF70F00F00F00F000F07F773773773777370FFFFFFFFFFF
- FFF07F3FF3FF3FF3FFF70F00F00F00F000F07F773773773777370FFFFFFFFFFF
- FFF07FFFFFFFFFFFFFF70CCCCCCCCCCCCCC07777777777777777088CCCCCCCCC
- C8807FF7777777777FF700000000000000007777777777777777333333333333
- 33333333333333333333333333333333333333333333333333330000}
- NumGlyphs = 2
- end
- object btnCancel: TBitBtn
- Left = 450
- Top = 530
- Width = 111
- Height = 31
- Caption = 'Cancel'
- Font.Color = clBlack
- Font.Height = -15
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ModalResult = 2
- ParentFont = False
- TabOrder = 15
- end
- object cbColor: TComboBox
- Left = 410
- Top = 440
- Width = 151
- Height = 24
- Font.Color = clBlack
- Font.Height = -15
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ItemHeight = 16
- Items.Strings = (
- 'Aqua'
- 'Black'
- 'Blue'
- 'Fuchsia'
- 'Gray'
- 'Green'
- 'Lime'
- 'Maroon'
- 'Navy'
- 'Olive'
- 'Purple'
- 'Red'
- 'Silver'
- 'Teal'
- 'White'
- 'Yellow')
- ParentFont = False
- TabOrder = 11
- OnChange = cbColorChange
- end
- object cbCaptionAlignment: TComboBox
- Left = 110
- Top = 300
- Width = 151
- Height = 24
- Hint = 'Alignment of the caption'
- Font.Color = clBlack
- Font.Height = -15
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ItemHeight = 16
- Items.Strings = (
- 'Bottom'
- 'Top')
- ParentFont = False
- ParentShowHint = False
- ShowHint = True
- TabOrder = 2
- end
- object cbTableAlign: TComboBox
- Left = 110
- Top = 350
- Width = 151
- Height = 24
- Hint = 'Alignment of the table'
- Font.Color = clBlack
- Font.Height = -15
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ItemHeight = 16
- Items.Strings = (
- 'AbsBottom'
- 'AbsMiddle'
- 'Baseline'
- 'Bleedleft'
- 'Bleedright'
- 'Bottom'
- 'Center'
- 'Left'
- 'Middle'
- 'Right'
- 'Text'
- 'Top')
- ParentFont = False
- ParentShowHint = False
- ShowHint = True
- TabOrder = 5
- end
- object cbTableWidth: TComboBox
- Left = 110
- Top = 390
- Width = 151
- Height = 24
- Hint = 'Width of the table'
- Font.Color = clBlack
- Font.Height = -15
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ItemHeight = 16
- Items.Strings = (
- '90%'
- '80%'
- '70%'
- '60%'
- '50%'
- '40%'
- '30%'
- '20%'
- '10%')
- ParentFont = False
- ParentShowHint = False
- ShowHint = True
- TabOrder = 6
- end
- object EditCaption: TEdit
- Left = 110
- Top = 260
- Width = 451
- Height = 24
- Font.Color = clBlack
- Font.Height = -15
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- TabOrder = 1
- end
- object seBorderWidth: TSpinEdit
- Left = 500
- Top = 300
- Width = 61
- Height = 26
- Hint = 'Width of the border'
- Font.Color = clBlack
- Font.Height = -15
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- MaxValue = 10000
- MinValue = 0
- ParentFont = False
- ParentShowHint = False
- ShowHint = True
- TabOrder = 4
- Value = 0
- end
- object seCellPadding: TSpinEdit
- Left = 110
- Top = 440
- Width = 61
- Height = 26
- Hint = 'Spacing within cells'
- Font.Color = clBlack
- Font.Height = -15
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- MaxValue = 10000
- MinValue = 0
- ParentFont = False
- ParentShowHint = False
- ShowHint = True
- TabOrder = 7
- Value = 0
- end
- object seCellSpacing: TSpinEdit
- Left = 110
- Top = 480
- Width = 61
- Height = 26
- Hint = 'Spacing between cells'
- Font.Color = clBlack
- Font.Height = -15
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- MaxValue = 10000
- MinValue = 0
- ParentFont = False
- ParentShowHint = False
- ShowHint = True
- TabOrder = 8
- Value = 0
- end
- object cbBorder: TCheckBox
- Left = 320
- Top = 300
- Width = 71
- Height = 21
- Hint = 'Show a border ?'
- Caption = ' &Border'
- Font.Color = clBlack
- Font.Height = -15
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- ParentShowHint = False
- ShowHint = True
- State = cbChecked
- TabOrder = 3
- OnClick = cbBorderClick
- end
- object btnColor: TBitBtn
- Left = 340
- Top = 480
- Width = 111
- Height = 31
- Hint = 'Select color'
- Caption = '&Color'
- Font.Color = clBlack
- Font.Height = -15
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- ParentShowHint = False
- ShowHint = True
- TabOrder = 12
- OnClick = btnColorClick
- Glyph.Data = {
- 76010000424D7601000000000000760000002800000020000000100000000100
- 0400000000000001000000000000000000000000000000000000000000000000
- 80000080000000808000800000008000800080800000C0C0C000808080000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777703333300
- 7777777788888888777777733B7B7B7B007777788777777788777737B7B74447
- B707778777778FF77787737B117B44447B707877FF77888F777833B99917B744
- B7B0887888F7778877783B7B997B7B7B7B70877788777777777837B7B7B7B000
- 073087777777788887883B222B7B70F40707877FF77778F8878737AA27B7B000
- 40778788F777788888773BAA7B7B7B737407878877777778788737B7B555B730
- 778087777FFF778877883F7BFFF57B0777008777888F7787778833F7BFF7B307
- 7700887778877887778873FF7B7B70777770787F7777787777787733FFF30777
- 77777788FFF88777777777733333777777777778888877777777}
- NumGlyphs = 2
- end
- object pnlColor: TPanel
- Left = 460
- Top = 480
- Width = 101
- Height = 31
- Hint = 'Currently selected color'
- BevelInner = bvRaised
- BevelOuter = bvLowered
- ParentShowHint = False
- ShowHint = True
- TabOrder = 13
- end
- object seCols: TSpinEdit
- Left = 260
- Top = 480
- Width = 61
- Height = 26
- Hint = 'Columns in the table'
- Font.Color = clBlack
- Font.Height = -15
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- MaxValue = 50
- MinValue = 0
- ParentFont = False
- ParentShowHint = False
- ShowHint = True
- TabOrder = 10
- Value = 4
- OnChange = seColsChange
- end
- object seRows: TSpinEdit
- Left = 260
- Top = 440
- Width = 61
- Height = 26
- Hint = 'Rows in the table'
- Font.Color = clBlack
- Font.Height = -15
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- MaxValue = 50
- MinValue = 0
- ParentFont = False
- ParentShowHint = False
- ShowHint = True
- TabOrder = 9
- Value = 4
- OnChange = seRowsChange
- end
- object DlgColor: TColorDialog
- Ctl3D = True
- Left = 16
- Top = 424
- end
- end
-