home *** CD-ROM | disk | FTP | other *** search
- object FrmTable: TFrmTable
- Left = 204
- Top = 134
- BorderStyle = bsDialog
- Caption = 'Table'
- ClientHeight = 254
- ClientWidth = 416
- Font.Color = clWindowText
- Font.Height = -13
- Font.Name = 'System'
- Font.Style = []
- PixelsPerInch = 96
- TextHeight = 16
- object lblColSpec: TLabel
- Left = 8
- Top = 40
- Width = 40
- Height = 13
- Caption = '&ColSpec'
- FocusControl = EditColSpec
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- end
- object lblAlign: TLabel
- Left = 8
- Top = 72
- Width = 23
- Height = 13
- Caption = '&Align'
- FocusControl = cbAlign
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- end
- object lblBackgroundColor: TLabel
- Left = 8
- Top = 112
- Width = 61
- Height = 26
- Caption = '&Background color'
- FocusControl = cbBackgroundColor
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- WordWrap = True
- end
- object lblCellPadding: TLabel
- Left = 216
- Top = 8
- Width = 58
- Height = 13
- Caption = 'Cell &padding'
- FocusControl = seCellPadding
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- end
- object lblCellSpacing: TLabel
- Left = 216
- Top = 40
- Width = 57
- Height = 13
- Caption = 'Cell &spacing'
- FocusControl = seCellSpacing
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- end
- object lblWidth: TLabel
- Left = 216
- Top = 72
- Width = 28
- Height = 13
- Caption = '&Width'
- FocusControl = seWidth
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- end
- object lblHeight: TLabel
- Left = 216
- Top = 104
- Width = 31
- Height = 13
- Caption = '&Height'
- FocusControl = seHeight
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- end
- object lblBackground: TLabel
- Left = 8
- Top = 184
- Width = 65
- Height = 33
- Caption = 'Background &image'
- FocusControl = EditBackground
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- WordWrap = True
- end
- object lblFrame: TLabel
- Left = 216
- Top = 136
- Width = 29
- Height = 13
- Caption = '&Frame'
- FocusControl = cbFrame
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- WordWrap = True
- end
- object cbBorder: TCheckBox
- Left = 8
- Top = 8
- Width = 59
- Height = 17
- Hint = 'Show table with border lines ?'
- Caption = ' B&order'
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- ParentShowHint = False
- ShowHint = True
- State = cbChecked
- TabOrder = 0
- OnClick = cbBorderClick
- end
- object EditColSpec: TEdit
- Left = 72
- Top = 40
- Width = 121
- Height = 21
- Hint = 'Column width and align specifications'
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- ParentShowHint = False
- ShowHint = True
- TabOrder = 2
- end
- object seCellPadding: TSpinEdit
- Left = 288
- Top = 8
- Width = 121
- Height = 22
- Hint = 'Spacing within cells'
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- MaxValue = 100000
- MinValue = 0
- ParentFont = False
- ParentShowHint = False
- ShowHint = True
- TabOrder = 6
- Value = 0
- end
- object seCellSpacing: TSpinEdit
- Left = 288
- Top = 40
- Width = 121
- Height = 22
- Hint = 'Spacing between cells'
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- MaxValue = 100000
- MinValue = 0
- ParentFont = False
- ParentShowHint = False
- ShowHint = True
- TabOrder = 7
- Value = 0
- end
- object seWidth: TSpinEdit
- Left = 288
- Top = 72
- Width = 121
- Height = 22
- Hint = 'Width of the lines'
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- MaxValue = 100000
- MinValue = 0
- ParentFont = False
- ParentShowHint = False
- ShowHint = True
- TabOrder = 8
- Value = 0
- end
- object seHeight: TSpinEdit
- Left = 288
- Top = 104
- Width = 121
- Height = 22
- Hint = 'Height of the input fields'
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- MaxValue = 100000
- MinValue = 0
- ParentFont = False
- ParentShowHint = False
- ShowHint = True
- TabOrder = 9
- Value = 0
- end
- object cbAlign: TComboBox
- Left = 72
- Top = 72
- Width = 121
- Height = 21
- Hint = 'Alignment of the division'
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ItemHeight = 13
- Items.Strings = (
- 'AbsBottom'
- 'AbsMiddle'
- 'Baseline'
- 'Bleedleft'
- 'Bleedright'
- 'Bottom'
- 'Center'
- 'Left'
- 'Middle'
- 'Right'
- 'Text'
- 'Top')
- ParentFont = False
- ParentShowHint = False
- ShowHint = True
- TabOrder = 3
- end
- object cbBackgroundColor: TComboBox
- Left = 72
- Top = 112
- Width = 121
- Height = 21
- Hint = 'The table'#39's background color'
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ItemHeight = 13
- Items.Strings = (
- 'Aqua'
- 'Black'
- 'Blue'
- 'Fuchsia'
- 'Gray'
- 'Green'
- 'Lime'
- 'Maroon'
- 'Navy'
- 'Olive'
- 'Purple'
- 'Red'
- 'Silver'
- 'Teal'
- 'White'
- 'Yellow')
- ParentFont = False
- ParentShowHint = False
- ShowHint = True
- TabOrder = 4
- OnChange = cbBackgroundColorChange
- end
- object pnlColor: TPanel
- Left = 104
- Top = 144
- Width = 89
- Height = 25
- Hint = 'Currently selected color'
- BevelInner = bvRaised
- BevelOuter = bvLowered
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- ParentShowHint = False
- ShowHint = True
- TabOrder = 13
- end
- object btnBackgroundColor: TBitBtn
- Left = 8
- Top = 144
- Width = 89
- Height = 25
- Hint = 'Set color'
- Caption = '&Color'
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- ParentShowHint = False
- ShowHint = True
- TabOrder = 5
- OnClick = btnBackgroundColorClick
- Glyph.Data = {
- 76010000424D7601000000000000760000002800000020000000100000000100
- 0400000000000001000000000000000000000000000000000000000000000000
- 80000080000000808000800000008000800080800000C0C0C000808080000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777703333300
- 7777777788888888777777733B7B7B7B007777788777777788777737B7B74447
- B707778777778FF77787737B117B44447B707877FF77888F777833B99917B744
- B7B0887888F7778877783B7B997B7B7B7B70877788777777777837B7B7B7B000
- 073087777777788887883B222B7B70F40707877FF77778F8878737AA27B7B000
- 40778788F777788888773BAA7B7B7B737407878877777778788737B7B555B730
- 778087777FFF778877883F7BFFF57B0777008777888F7787778833F7BFF7B307
- 7700887778877887778873FF7B7B70777770787F7777787777787733FFF30777
- 77777788FFF88777777777733333777777777778888877777777}
- NumGlyphs = 2
- end
- object btnOK: TButton
- Left = 224
- Top = 224
- Width = 89
- Height = 25
- Caption = 'OK'
- Default = True
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ModalResult = 1
- ParentFont = False
- TabOrder = 14
- end
- object btnCancel: TButton
- Left = 320
- Top = 224
- Width = 89
- Height = 25
- Caption = 'Cancel'
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ModalResult = 2
- ParentFont = False
- TabOrder = 15
- end
- object seBorder: TSpinEdit
- Left = 72
- Top = 8
- Width = 121
- Height = 22
- Hint = 'Border width'
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- MaxValue = 100000
- MinValue = 0
- ParentFont = False
- ParentShowHint = False
- ShowHint = True
- TabOrder = 1
- Value = 0
- end
- object EditBackground: TEdit
- Left = 72
- Top = 184
- Width = 241
- Height = 21
- Hint = 'URL of the image being tiled as the table'#39's background'
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- TabOrder = 11
- end
- object btnURL: TBitBtn
- Left = 320
- Top = 184
- Width = 89
- Height = 22
- Caption = '&URL'
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- TabOrder = 12
- OnClick = btnURLClick
- Glyph.Data = {
- 76010000424D7601000000000000760000002800000020000000100000000100
- 0400000000000001000000000000000000000000000000000000000000000000
- 80000080000000808000800000008000800080800000C0C0C000808080000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777770000000
- 000077777FFFFFFFFFFF7774408777777770777788888888888F7744448BFFFB
- FF707788F78F7FFFFF8F7440008FCCCCCB7078F7778F8888878F6C66368BFFFB
- FF7078F7778F7FFFFF8F6668028FCCCCCB708F77778F8888878F6666388BFFFB
- FF708F77778F7FFFFF8F6866888FCCCCCB708F77778F8888878F6766888BFFFB
- FF708F77778F77FF7F8F8E7E788FFCCF00008F77778F7887888F8777788BFFFB
- 7F878F77778F77778F877877778FFBFF787778F7778FFFFF887778F777888888
- 807778F7778888888877777FF77778380777778FF777777F877777777777E788
- 777777788FFFFF88777777777888887777777777788888777777}
- NumGlyphs = 2
- end
- object cbFrame: TComboBox
- Left = 288
- Top = 136
- Width = 121
- Height = 21
- Hint = 'This attribute affects the display of the table borders'
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ItemHeight = 13
- Items.Strings = (
- 'VOID'
- 'ABOVE'
- 'BELOW'
- 'HSIDES'
- 'LHS'
- 'RHS'
- 'VSIDES'
- 'BOX')
- ParentFont = False
- ParentShowHint = False
- ShowHint = True
- TabOrder = 10
- end
- object DlgBackgroundColor: TColorDialog
- Ctl3D = True
- Left = 40
- Top = 264
- end
- end
-