home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Hot Shareware 32
/
hot34.iso
/
ficheros
/
9APLI
/
32PSHD30.ZIP
/
_SETUP.1
/
HAO30.exe
/
0
/
RCDATA
/
THTMLATTRIBUTESDLG
/
THTMLATTRIBUTESDLG.txt
Wrap
Text File
|
1998-02-19
|
51KB
|
1,905 lines
object HtmlAttributesDlg: THtmlAttributesDlg
Left = 126
Top = 130
ActiveControl = OKBtn
BorderIcons = [biSystemMenu, biMinimize]
BorderStyle = bsSingle
Caption = 'Define Attributes'
ClientHeight = 449
ClientWidth = 626
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
Position = poScreenCenter
ShowHint = True
OnCreate = FormCreate
OnDestroy = FormDestroy
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 13
object ButtonPanel: TPanel
Left = 525
Top = 0
Width = 101
Height = 449
Align = alRight
BevelOuter = bvNone
TabOrder = 0
object OKBtn: TBitBtn
Left = 14
Top = 5
Width = 77
Height = 27
Hint = 'Generate HTML Report'
Caption = '&OK'
TabOrder = 0
OnClick = OKBtnClick
Kind = bkOK
Margin = 2
Spacing = -1
IsControl = True
end
object CancelBtn: TBitBtn
Left = 14
Top = 35
Width = 77
Height = 27
Hint = 'Cancel HTML Report'
Caption = '&Cancel'
TabOrder = 1
OnClick = CancelBtnClick
Kind = bkCancel
Margin = 2
Spacing = -1
IsControl = True
end
object HelpBtn: TBitBtn
Left = 14
Top = 65
Width = 77
Height = 27
Hint = 'Display Help Window'
TabOrder = 2
OnClick = HelpBtnClick
Kind = bkHelp
Margin = 2
Spacing = -1
IsControl = True
end
end
object Notebook: TNotebook
Left = 0
Top = 0
Width = 525
Height = 449
Align = alClient
PageIndex = 4
TabOrder = 1
IsControl = True
object TPage
Left = 0
Top = 0
Caption = 'Page1'
IsControl = True
object GroupBox1: TGroupBox
Left = 0
Top = 0
Width = 525
Height = 449
Align = alClient
Caption = 'Page Attributes:'
TabOrder = 0
IsControl = True
object Label1: TLabel
Left = 8
Top = 277
Width = 88
Height = 13
Caption = 'Background Color:'
end
object Label2: TLabel
Left = 8
Top = 33
Width = 84
Height = 13
Caption = 'HTML Page Title:'
end
object Label7: TLabel
Left = 8
Top = 72
Width = 101
Height = 13
Caption = 'Background Graphic:'
end
object Label32: TLabel
Left = 232
Top = 83
Width = 73
Height = 33
AutoSize = False
Caption = 'Keywords META TAG:'
WordWrap = True
end
object Label40: TLabel
Left = 232
Top = 174
Width = 73
Height = 33
AutoSize = False
Caption = 'Description META TAG:'
WordWrap = True
end
object BgndColorCB: TComboBox
Left = 8
Top = 293
Width = 113
Height = 22
Style = csOwnerDrawFixed
DropDownCount = 1
ItemHeight = 16
Items.Strings = (
'')
TabOrder = 5
OnDrawItem = BgndColorCBDrawItem
OnDropDown = BgndColorCBDropDown
end
object PageTitleEd: TEdit
Left = 8
Top = 49
Width = 505
Height = 21
TabOrder = 1
end
object BgndPicture: TMultiImgControl
Left = 8
Top = 86
Width = 210
Height = 173
HelpContext = 31
Caption = 'BgndPicture'
TabOrder = 2
SpeedBarHeight = 24
end
object KeywordsEd: TMemo
Left = 232
Top = 110
Width = 281
Height = 57
Hint = 'Enter One Keyword per Line'
ScrollBars = ssVertical
TabOrder = 3
end
object DescEd: TMemo
Left = 232
Top = 201
Width = 281
Height = 57
Hint = 'Enter a description of your Web Page here'
ScrollBars = ssVertical
TabOrder = 4
end
object PrologCB: TCheckBox
Left = 8
Top = 15
Width = 345
Height = 17
Caption = 'Include HTML Prolog/Epilog (<HTML>,<HEAD>,<TITLE>)'
TabOrder = 0
end
object GroupBox12: TGroupBox
Left = 128
Top = 265
Width = 387
Height = 57
Caption = 'URL Link Colors'
TabOrder = 6
object Label41: TLabel
Left = 9
Top = 14
Width = 23
Height = 13
Caption = 'Link:'
end
object Label42: TLabel
Left = 138
Top = 14
Width = 57
Height = 13
Caption = 'Visited Link:'
end
object Label43: TLabel
Left = 266
Top = 14
Width = 56
Height = 13
Caption = 'Active Link:'
end
object LinkColorCB: TComboBox
Left = 8
Top = 28
Width = 113
Height = 22
Style = csOwnerDrawFixed
DropDownCount = 1
ItemHeight = 16
Items.Strings = (
'')
TabOrder = 0
OnDrawItem = BgndColorCBDrawItem
OnDropDown = BgndColorCBDropDown
end
object VLinkColorCB: TComboBox
Left = 136
Top = 28
Width = 113
Height = 22
Style = csOwnerDrawFixed
DropDownCount = 1
ItemHeight = 16
Items.Strings = (
'')
TabOrder = 1
OnDrawItem = BgndColorCBDrawItem
OnDropDown = BgndColorCBDropDown
end
object ALinkColorCB: TComboBox
Left = 264
Top = 28
Width = 113
Height = 22
Style = csOwnerDrawFixed
DropDownCount = 1
ItemHeight = 16
Items.Strings = (
'')
TabOrder = 2
OnDrawItem = BgndColorCBDrawItem
OnDropDown = BgndColorCBDropDown
end
end
object ImbededTableGB: TGroupBox
Left = 8
Top = 346
Width = 505
Height = 98
TabOrder = 7
Visible = False
object Label17: TLabel
Left = 8
Top = 9
Width = 119
Height = 13
Caption = 'Page Left Margin (pixels):'
end
object Label18: TLabel
Left = 8
Top = 53
Width = 120
Height = 13
Caption = 'Page Top Margin (pixels):'
end
object LMarginEd: TSpinEdit
Left = 8
Top = 26
Width = 121
Height = 22
MaxValue = 0
MinValue = 0
TabOrder = 0
Value = 0
end
object TMarginEd: TSpinEdit
Left = 8
Top = 70
Width = 121
Height = 22
MaxValue = 0
MinValue = 0
TabOrder = 1
Value = 0
end
object MenuRG: TRadioGroup
Left = 264
Top = 19
Width = 113
Height = 73
Caption = 'Page Menu:'
ItemIndex = 0
Items.Strings = (
'No Menu'
'Horizontal Menu'
'Vertical Menu'
'Both Menus')
TabOrder = 6
OnClick = MenuRGClick
end
object MenuBtn: TButton
Left = 384
Top = 64
Width = 113
Height = 25
Caption = 'Create/Edit Menu'
Enabled = False
TabOrder = 7
OnClick = MenuBtnClick
end
object LMarginColorCB: TComboBox
Left = 138
Top = 26
Width = 113
Height = 22
Style = csOwnerDrawFixed
DropDownCount = 1
ItemHeight = 16
Items.Strings = (
'')
TabOrder = 3
OnDrawItem = BgndColorCBDrawItem
OnDropDown = BgndColorCBDropDown
end
object TMarginColorCB: TComboBox
Left = 138
Top = 70
Width = 113
Height = 22
Style = csOwnerDrawFixed
DropDownCount = 1
ItemHeight = 16
Items.Strings = (
'')
TabOrder = 5
OnDrawItem = BgndColorCBDrawItem
OnDropDown = BgndColorCBDropDown
end
object UseLMColorCB: TCheckBox
Left = 138
Top = 8
Width = 111
Height = 17
Caption = 'Left Margin Color:'
TabOrder = 2
end
object UseTMColorCB: TCheckBox
Left = 138
Top = 52
Width = 111
Height = 17
Caption = 'Top Margin Color:'
TabOrder = 4
end
end
object ImbededTableCB: TCheckBox
Left = 8
Top = 330
Width = 289
Height = 17
Caption = 'Embed Page In Table (check if you want to create Menu)'
TabOrder = 8
OnClick = ImbededTableCBClick
end
end
end
object TPage
Left = 0
Top = 0
Caption = 'Page2'
IsControl = True
object GroupBox4: TGroupBox
Left = 0
Top = 0
Width = 525
Height = 449
Align = alClient
Caption = 'Page Header:'
TabOrder = 0
object HFLoadPanel: TPanel
Left = 8
Top = 72
Width = 513
Height = 77
BevelOuter = bvNone
TabOrder = 2
Visible = False
object Label16: TLabel
Left = 8
Top = 8
Width = 83
Height = 13
Caption = 'HTML File Name:'
end
object HFLoadEd: TEdit
Left = 8
Top = 24
Width = 497
Height = 21
TabOrder = 0
end
object HFSelectFileBtn: TButton
Left = 216
Top = 47
Width = 89
Height = 25
Caption = 'Select'
TabOrder = 1
OnClick = HFSelectFileBtnClick
end
end
object HFPanel: TPanel
Left = 2
Top = 67
Width = 521
Height = 380
Align = alBottom
BevelOuter = bvNone
TabOrder = 0
object Label3: TLabel
Left = 8
Top = 3
Width = 23
Height = 13
Caption = 'Title:'
end
object Label5: TLabel
Left = 8
Top = 40
Width = 50
Height = 13
Caption = 'Title Color:'
end
object Label12: TLabel
Left = 8
Top = 77
Width = 49
Height = 13
Caption = 'Title Style:'
end
object Label35: TLabel
Left = 8
Top = 113
Width = 70
Height = 13
Caption = 'Title Font Size:'
end
object Label14: TLabel
Left = 8
Top = 151
Width = 78
Height = 13
Caption = 'Title Font Name:'
end
object Label6: TLabel
Left = 272
Top = 40
Width = 36
Height = 13
Caption = 'Picture:'
end
object Bevel4: TBevel
Left = -3
Top = 203
Width = 524
Height = 50
Shape = bsTopLine
end
object Label8: TLabel
Left = 8
Top = 207
Width = 24
Height = 13
Caption = 'Text:'
end
object Label13: TLabel
Left = 8
Top = 342
Width = 51
Height = 13
Caption = 'Text Color:'
end
object Label4: TLabel
Left = 126
Top = 343
Width = 50
Height = 13
Caption = 'Text Style:'
end
object Label37: TLabel
Left = 244
Top = 343
Width = 71
Height = 13
Caption = 'Text Font Size:'
end
object Label15: TLabel
Left = 368
Top = 343
Width = 79
Height = 13
Caption = 'Text Font Name:'
end
object HTitleEd: TEdit
Left = 8
Top = 18
Width = 505
Height = 21
TabOrder = 0
end
object TitleColorCB: TComboBox
Left = 8
Top = 54
Width = 121
Height = 22
Style = csOwnerDrawFixed
DropDownCount = 1
ItemHeight = 16
Items.Strings = (
'')
TabOrder = 1
OnDrawItem = BgndColorCBDrawItem
OnDropDown = BgndColorCBDropDown
end
object HTitleStyleCB: TComboBox
Left = 8
Top = 91
Width = 121
Height = 21
Style = csDropDownList
ItemHeight = 13
Items.Strings = (
'Normal'
'Heading 1'
'Heading 2'
'Heading 3'
'Heading 4'
'Heading 5'
'Heading 6')
TabOrder = 2
OnChange = HTitleStyleCBChange
end
object HTitleSizeCB: TComboBox
Left = 8
Top = 127
Width = 121
Height = 21
Style = csDropDownList
ItemHeight = 13
Items.Strings = (
'Normal'
'Size 1 (Smallest)'
'Size 2'
'Size 3'
'Size 4'
'Size 5'
'Size 6'
'Size 7 (Largest)')
TabOrder = 3
OnChange = HTitleSizeCBChange
end
object HTitleFontCB: TComboBox
Left = 8
Top = 165
Width = 121
Height = 21
ItemHeight = 13
Sorted = True
TabOrder = 4
end
object GroupBox5: TGroupBox
Left = 140
Top = 48
Width = 125
Height = 77
Caption = 'Title Attributes:'
TabOrder = 5
object TitleBoldCB: TCheckBox
Left = 8
Top = 13
Width = 97
Height = 17
Caption = 'Bold'
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 0
end
object TitleItalicCB: TCheckBox
Left = 8
Top = 28
Width = 97
Height = 17
Caption = 'Italic'
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsItalic]
ParentFont = False
TabOrder = 1
end
object TitleUnderlineCB: TCheckBox
Left = 8
Top = 43
Width = 97
Height = 17
Caption = 'Underlined'
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsUnderline]
ParentFont = False
TabOrder = 2
end
object TitleCenteredCB: TCheckBox
Left = 8
Top = 58
Width = 97
Height = 17
Caption = ' <<Centered>>'
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 3
end
end
object HPictureRG: TRadioGroup
Left = 140
Top = 128
Width = 124
Height = 68
Caption = 'Picture Alignment:'
ItemIndex = 0
Items.Strings = (
'Left'
'Right'
'Above Title'
'Below Title')
TabOrder = 6
end
object HPicture: TMultiImgControl
Left = 272
Top = 53
Width = 238
Height = 145
HelpContext = 31
Caption = 'HPicture'
TabOrder = 7
SpeedBarHeight = 24
end
object HeaderMemo: TMemo
Left = 8
Top = 221
Width = 385
Height = 119
Hint = 'Right Click to insert HTML code'
PopupMenu = PopupMenu1
ScrollBars = ssBoth
TabOrder = 8
end
object GroupBox2: TGroupBox
Left = 403
Top = 215
Width = 110
Height = 77
Caption = 'Text Attributes:'
TabOrder = 9
object HeaderBoldCB: TCheckBox
Left = 8
Top = 13
Width = 85
Height = 17
Caption = 'Bold'
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 0
end
object HeaderItalicCB: TCheckBox
Left = 8
Top = 28
Width = 86
Height = 17
Caption = 'Italic'
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsItalic]
ParentFont = False
TabOrder = 1
end
object HeaderUnderlineCB: TCheckBox
Left = 8
Top = 43
Width = 85
Height = 17
Caption = 'Underlined'
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsUnderline]
ParentFont = False
TabOrder = 2
end
object HeaderCenteredCB: TCheckBox
Left = 8
Top = 58
Width = 97
Height = 17
Caption = ' <<Centered>>'
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 3
end
end
object HeaderColorCB: TComboBox
Left = 8
Top = 355
Width = 113
Height = 22
Style = csOwnerDrawFixed
DropDownCount = 1
ItemHeight = 16
Items.Strings = (
'')
TabOrder = 10
OnDrawItem = BgndColorCBDrawItem
OnDropDown = BgndColorCBDropDown
end
object HeaderStyleCB: TComboBox
Left = 126
Top = 356
Width = 113
Height = 21
Style = csDropDownList
ItemHeight = 13
Items.Strings = (
'Normal'
'Heading 1'
'Heading 2'
'Heading 3'
'Heading 4'
'Heading 5'
'Heading 6')
TabOrder = 11
OnChange = HeaderStyleCBChange
end
object HSizeCB: TComboBox
Left = 244
Top = 356
Width = 113
Height = 21
Style = csDropDownList
ItemHeight = 13
Items.Strings = (
'Normal'
'Size 1 (Smallest)'
'Size 2'
'Size 3'
'Size 4'
'Size 5'
'Size 6'
'Size 7 (Largest)')
TabOrder = 12
OnChange = HSizeCBChange
end
object HFontCB: TComboBox
Left = 362
Top = 356
Width = 121
Height = 21
ItemHeight = 13
Sorted = True
TabOrder = 13
end
end
object HFSourceRG: TRadioGroup
Left = 8
Top = 16
Width = 185
Height = 51
Caption = 'Source:'
ItemIndex = 0
Items.Strings = (
'Defined Attributes'
'HTML File')
TabOrder = 1
OnClick = HFSourceRGClick
end
end
end
object TPage
Left = 0
Top = 0
Caption = 'Page3'
object GroupBox9: TGroupBox
Left = 0
Top = 0
Width = 525
Height = 449
Align = alClient
Caption = 'Page Body:'
TabOrder = 0
object BodyFormatRG: TRadioGroup
Left = 8
Top = 18
Width = 97
Height = 68
Caption = 'Body Format:'
Items.Strings = (
'Plain'
'Tabular')
TabOrder = 0
OnClick = BodyFormatRGClick
end
object GroupBox10: TGroupBox
Left = 8
Top = 96
Width = 225
Height = 265
Caption = 'Table Options:'
TabOrder = 1
object Label28: TLabel
Left = 8
Top = 20
Width = 65
Height = 13
Caption = 'Border Width:'
end
object Label29: TLabel
Left = 114
Top = 21
Width = 26
Height = 13
Caption = 'pixels'
end
object BorderWidthEd: TSpinEdit
Left = 77
Top = 19
Width = 33
Height = 22
MaxValue = 9
MinValue = 0
TabOrder = 0
Value = 0
end
object TableHeadersCB: TCheckBox
Left = 9
Top = 52
Width = 97
Height = 17
Caption = 'Column Headers'
TabOrder = 1
end
object TableWidthRG: TRadioGroup
Left = 8
Top = 128
Width = 209
Height = 121
Hint = 'Browsers respect Table Width attribute ONLY if Possible'
Caption = 'Table Width:'
Items.Strings = (
'As Needed'
'% Of Screen Width'
'In Pixels')
TabOrder = 5
OnClick = TableWidthRGClick
end
object ScreenWidthPerEd: TSpinEdit
Left = 136
Top = 184
Width = 49
Height = 22
MaxLength = 3
MaxValue = 100
MinValue = 10
TabOrder = 6
Value = 100
Visible = False
end
object ScreenWidthPixEd: TSpinEdit
Left = 136
Top = 217
Width = 57
Height = 22
MaxLength = 5
MaxValue = 10000
MinValue = 20
TabOrder = 7
Value = 800
Visible = False
end
object TransTableCB: TCheckBox
Left = 9
Top = 68
Width = 120
Height = 17
Caption = 'Transparent Table'
TabOrder = 2
end
object TableCenteredCB: TCheckBox
Left = 9
Top = 85
Width = 120
Height = 17
Caption = 'Table Centered'
TabOrder = 3
end
object AlternateRowsCB: TCheckBox
Left = 9
Top = 102
Width = 120
Height = 17
Caption = 'Alternate Row Colors'
TabOrder = 4
end
end
object GroupBox11: TGroupBox
Left = 249
Top = 360
Width = 177
Height = 75
Caption = 'Options:'
TabOrder = 2
Visible = False
object FieldLabelsCB: TCheckBox
Left = 8
Top = 21
Width = 161
Height = 17
Caption = 'Include Headers/Field Labels'
TabOrder = 0
end
object SeparateRecordsCB: TCheckBox
Left = 8
Top = 45
Width = 161
Height = 17
Caption = 'Separate Records With Rule'
TabOrder = 1
end
end
object LabelsGB: TGroupBox
Left = 248
Top = 96
Width = 177
Height = 265
Caption = 'Group Header Attributes:'
TabOrder = 3
Visible = False
object Label24: TLabel
Left = 8
Top = 31
Width = 27
Height = 13
Caption = 'Color:'
end
object Label25: TLabel
Left = 8
Top = 68
Width = 26
Height = 13
Caption = 'Style:'
end
object Label44: TLabel
Left = 8
Top = 104
Width = 47
Height = 13
Caption = 'Font Size:'
end
object Label10: TLabel
Left = 8
Top = 141
Width = 55
Height = 13
Caption = 'Font Name:'
end
object LColorCB: TComboBox
Left = 8
Top = 45
Width = 113
Height = 22
Style = csOwnerDrawFixed
DropDownCount = 1
ItemHeight = 16
Items.Strings = (
'')
TabOrder = 0
OnDrawItem = BgndColorCBDrawItem
OnDropDown = BgndColorCBDropDown
end
object LStyleCB: TComboBox
Left = 8
Top = 82
Width = 113
Height = 21
Style = csDropDownList
ItemHeight = 13
Items.Strings = (
'Normal'
'Heading 1'
'Heading 2'
'Heading 3'
'Heading 4'
'Heading 5'
'Heading 6')
TabOrder = 1
OnChange = LStyleCBChange
end
object LSizeCB: TComboBox
Left = 8
Top = 118
Width = 113
Height = 21
Style = csDropDownList
ItemHeight = 13
Items.Strings = (
'Normal'
'Size 1 (Smallest)'
'Size 2'
'Size 3'
'Size 4'
'Size 5'
'Size 6'
'Size 7 (Largest)')
TabOrder = 2
OnChange = LSizeCBChange
end
object GroupBox14: TGroupBox
Left = 8
Top = 182
Width = 113
Height = 77
Caption = 'Text Attributes:'
TabOrder = 3
object LBoldCB: TCheckBox
Left = 8
Top = 13
Width = 97
Height = 17
Caption = 'Bold'
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 0
end
object LItalicCB: TCheckBox
Left = 8
Top = 28
Width = 97
Height = 17
Caption = 'Italic'
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsItalic]
ParentFont = False
TabOrder = 1
end
object LUnderlineCB: TCheckBox
Left = 8
Top = 43
Width = 97
Height = 17
Caption = 'Underlined'
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsUnderline]
ParentFont = False
TabOrder = 2
end
object LCenteredCB: TCheckBox
Left = 8
Top = 58
Width = 97
Height = 17
Caption = ' <<Centered>>'
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 3
end
end
object LFontCB: TComboBox
Left = 8
Top = 155
Width = 113
Height = 21
ItemHeight = 13
Items.Strings = (
'Normal'
'Size 1 (Smallest)'
'Size 2'
'Size 3'
'Size 4'
'Size 5'
'Size 6'
'Size 7 (Largest)')
Sorted = True
TabOrder = 4
end
object DisplayGHeaderCB: TCheckBox
Left = 8
Top = 14
Width = 129
Height = 17
Caption = 'Display Group Header'
TabOrder = 5
end
end
end
end
object TPage
Left = 0
Top = 0
Caption = 'Page4'
object GroupBox3: TGroupBox
Left = 0
Top = 0
Width = 525
Height = 449
Align = alClient
Caption = 'Group Page Body:'
TabOrder = 0
object Label53: TLabel
Left = 216
Top = 47
Width = 97
Height = 13
Caption = 'Number Of Columns:'
end
object Label49: TLabel
Left = 214
Top = 83
Width = 26
Height = 13
Caption = 'Style:'
end
object Label50: TLabel
Left = 214
Top = 119
Width = 47
Height = 13
Caption = 'Font Size:'
end
object Label72: TLabel
Left = 214
Top = 318
Width = 118
Height = 13
Caption = 'Table Background Color:'
end
object Label11: TLabel
Left = 214
Top = 156
Width = 82
Height = 13
Caption = 'Body Font Name:'
end
object IColumnsEd: TSpinEdit
Left = 216
Top = 61
Width = 110
Height = 22
Hint = 'If > 0 then Index will have a Tabular Format'
MaxValue = 99
MinValue = 0
TabOrder = 0
Value = 0
OnChange = IColumnsEdChange
end
object IStyleCB: TComboBox
Left = 214
Top = 97
Width = 113
Height = 21
Style = csDropDownList
ItemHeight = 13
Items.Strings = (
'Normal'
'Heading 1'
'Heading 2'
'Heading 3'
'Heading 4'
'Heading 5'
'Heading 6')
TabOrder = 1
OnChange = IStyleCBChange
end
object ISizeCB: TComboBox
Left = 214
Top = 133
Width = 113
Height = 21
Style = csDropDownList
ItemHeight = 13
Items.Strings = (
'Normal'
'Size 1 (Smallest)'
'Size 2'
'Size 3'
'Size 4'
'Size 5'
'Size 6'
'Size 7 (Largest)')
TabOrder = 2
OnChange = ISizeCBChange
end
object GroupBox16: TGroupBox
Left = 214
Top = 205
Width = 113
Height = 64
Caption = 'Text Attributes:'
TabOrder = 3
object IBoldCB: TCheckBox
Left = 8
Top = 13
Width = 97
Height = 17
Caption = 'Bold'
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 0
end
object IItalicCB: TCheckBox
Left = 8
Top = 28
Width = 97
Height = 17
Caption = 'Italic'
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsItalic]
ParentFont = False
TabOrder = 1
end
object ICenteredCB: TCheckBox
Left = 8
Top = 43
Width = 97
Height = 17
Caption = ' <<Centered>>'
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 2
end
end
object ITransTableCB: TCheckBox
Left = 214
Top = 287
Width = 112
Height = 17
Caption = 'Transparent Table'
TabOrder = 4
end
object ITableBgndColorCB: TComboBox
Left = 214
Top = 332
Width = 113
Height = 22
Style = csOwnerDrawFixed
DropDownCount = 1
ItemHeight = 16
Items.Strings = (
'')
TabOrder = 5
OnDrawItem = BgndColorCBDrawItem
OnDropDown = BgndColorCBDropDown
end
object IFontCB: TComboBox
Left = 215
Top = 170
Width = 113
Height = 21
ItemHeight = 13
Sorted = True
TabOrder = 6
end
end
end
object TPage
Left = 0
Top = 0
Caption = 'Page5'
object GroupBox6: TGroupBox
Left = 0
Top = 0
Width = 525
Height = 449
Align = alClient
Caption = 'Page Menu:'
TabOrder = 0
object Label19: TLabel
Left = 16
Top = 63
Width = 58
Height = 13
Caption = 'Menu Items:'
end
object Label20: TLabel
Left = 256
Top = 64
Width = 47
Height = 13
Caption = 'Item Text:'
end
object Label21: TLabel
Left = 256
Top = 101
Width = 45
Height = 13
Caption = 'Item Hint:'
end
object Label22: TLabel
Left = 256
Top = 177
Width = 59
Height = 13
Caption = 'Item Picture:'
end
object MoveUpBtn: TSpeedButton
Left = 20
Top = 306
Width = 24
Height = 24
Hint = 'Move Up'
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000120B0000120B00001000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333000333
3333333333777F33333333333309033333333333337F7F333333333333090333
33333333337F7F33333333333309033333333333337F7F333333333333090333
33333333337F7F33333333333309033333333333FF7F7FFFF333333000090000
3333333777737777F333333099999990333333373F3333373333333309999903
333333337F33337F33333333099999033333333373F333733333333330999033
3333333337F337F3333333333099903333333333373F37333333333333090333
33333333337F7F33333333333309033333333333337373333333333333303333
333333333337F333333333333330333333333333333733333333}
NumGlyphs = 2
ParentFont = False
ParentShowHint = False
ShowHint = True
OnClick = MoveUpBtnClick
IsControl = True
end
object MoveDownBtn: TSpeedButton
Left = 48
Top = 306
Width = 24
Height = 24
Hint = 'Move Down'
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000120B0000120B00001000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333303333
333333333337F33333333333333033333333333333373F333333333333090333
33333333337F7F33333333333309033333333333337373F33333333330999033
3333333337F337F33333333330999033333333333733373F3333333309999903
333333337F33337F33333333099999033333333373333373F333333099999990
33333337FFFF3FF7F33333300009000033333337777F77773333333333090333
33333333337F7F33333333333309033333333333337F7F333333333333090333
33333333337F7F33333333333309033333333333337F7F333333333333090333
33333333337F7F33333333333300033333333333337773333333}
NumGlyphs = 2
ParentFont = False
ParentShowHint = False
ShowHint = True
OnClick = MoveDownBtnClick
IsControl = True
end
object Label9: TLabel
Left = 256
Top = 138
Width = 135
Height = 13
Caption = 'Item URL Link (e.g. A.HTM):'
end
object MenuLB: TListBox
Left = 16
Top = 77
Width = 233
Height = 225
ItemHeight = 13
TabOrder = 0
OnClick = MenuLBClick
end
object ItemTextEd: TEdit
Left = 256
Top = 77
Width = 257
Height = 21
TabOrder = 2
end
object ItemHintEd: TEdit
Left = 256
Top = 114
Width = 257
Height = 21
TabOrder = 3
end
object ItemPictureCtrl: TMultiImgControl
Left = 256
Top = 190
Width = 257
Height = 141
Caption = 'ItemPictureCtrl'
TabOrder = 5
SpeedBarHeight = 24
end
object GroupBox7: TGroupBox
Left = 16
Top = 336
Width = 497
Height = 105
Caption = 'Menu Text Attributes:'
TabOrder = 6
object Label23: TLabel
Left = 8
Top = 13
Width = 51
Height = 13
Caption = 'Text Color:'
end
object Label26: TLabel
Left = 8
Top = 50
Width = 50
Height = 13
Caption = 'Text Style:'
end
object Label27: TLabel
Left = 144
Top = 13
Width = 71
Height = 13
Caption = 'Text Font Size:'
end
object Label33: TLabel
Left = 144
Top = 52
Width = 79
Height = 13
Caption = 'Text Font Name:'
end
object MenuColorCB: TComboBox
Left = 8
Top = 27
Width = 121
Height = 22
Style = csOwnerDrawFixed
DropDownCount = 1
ItemHeight = 16
Items.Strings = (
'')
TabOrder = 0
OnDrawItem = BgndColorCBDrawItem
OnDropDown = BgndColorCBDropDown
end
object MenuStyleCB: TComboBox
Left = 8
Top = 64
Width = 121
Height = 21
Style = csDropDownList
ItemHeight = 13
Items.Strings = (
'Normal'
'Heading 1'
'Heading 2'
'Heading 3'
'Heading 4'
'Heading 5'
'Heading 6')
TabOrder = 1
OnChange = MenuStyleCBChange
end
object MenuSizeCB: TComboBox
Left = 144
Top = 27
Width = 121
Height = 21
Style = csDropDownList
ItemHeight = 13
Items.Strings = (
'Normal'
'Size 1 (Smallest)'
'Size 2'
'Size 3'
'Size 4'
'Size 5'
'Size 6'
'Size 7 (Largest)')
TabOrder = 2
OnChange = MenuSizeCBChange
end
object MenuFontCB: TComboBox
Left = 144
Top = 66
Width = 121
Height = 21
ItemHeight = 13
Sorted = True
TabOrder = 3
end
object MenuAttrGB: TGroupBox
Left = 284
Top = 11
Width = 125
Height = 77
Caption = 'Text Attributes:'
TabOrder = 4
object MenuBoldCB: TCheckBox
Left = 8
Top = 13
Width = 97
Height = 17
Caption = 'Bold'
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 0
end
object MenuItalicCB: TCheckBox
Left = 8
Top = 35
Width = 97
Height = 17
Caption = 'Italic'
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsItalic]
ParentFont = False
TabOrder = 1
end
object MenuUnderlineCB: TCheckBox
Left = 8
Top = 56
Width = 97
Height = 17
Caption = 'Underlined'
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsUnderline]
ParentFont = False
TabOrder = 2
end
end
end
object Button1: TButton
Left = 84
Top = 305
Width = 53
Height = 25
Caption = 'Add'
TabOrder = 7
OnClick = Button1Click
end
object Button2: TButton
Left = 140
Top = 305
Width = 69
Height = 25
Caption = 'Delete'
TabOrder = 8
OnClick = Button2Click
end
object ItemLinkEd: TEdit
Left = 256
Top = 152
Width = 257
Height = 21
TabOrder = 4
end
object MenuTypeRG: TRadioGroup
Left = 16
Top = 14
Width = 89
Height = 48
Caption = 'Menu:'
ItemIndex = 0
Items.Strings = (
'Horizontal'
'Vertical')
TabOrder = 9
OnClick = MenuTypeRGClick
end
object DispItemTextCB: TCheckBox
Left = 256
Top = 45
Width = 137
Height = 17
Caption = 'Do not display Item Text'
TabOrder = 1
end
end
end
end
object SaveDialog1: TSaveDialog
DefaultExt = 'htm'
Filter = 'HTML Files|*.htm;*.html'
Left = 585
Top = 288
end
object PopupMenu1: TPopupMenu
Left = 592
Top = 256
object LoadFromFile1: TMenuItem
Caption = 'Load From File'
OnClick = LoadFromFile1Click
end
object SaveToFile1: TMenuItem
Caption = 'Save To File'
OnClick = SaveToFile1Click
end
object Clear1: TMenuItem
Caption = 'Clear'
OnClick = Clear1Click
end
object ChangeFont1: TMenuItem
Caption = 'Change Font'
OnClick = ChangeFont1Click
end
object Expand1: TMenuItem
Caption = 'Expand'
OnClick = Expand1Click
end
object HTMLTags1: TMenuItem
Caption = 'HTML Tags:'
Enabled = False
end
object Bold1: TMenuItem
Caption = 'Text Attributes'
object Bold2: TMenuItem
Caption = 'Bold'
OnClick = Bold2Click
end
object EndBold1: TMenuItem
Caption = 'End Bold'
OnClick = EndBold1Click
end
object Italic1: TMenuItem
Caption = 'Italic'
OnClick = Italic1Click
end
object EndItalic1: TMenuItem
Caption = 'End Italic'
OnClick = EndItalic1Click
end
object Underlined1: TMenuItem
Caption = 'Underlined'
OnClick = Underlined1Click
end
object EndUnderlined1: TMenuItem
Caption = 'End Underlined'
OnClick = EndUnderlined1Click
end
object Blink1: TMenuItem
Caption = 'Blink'
OnClick = Blink1Click
end
object EndBlink1: TMenuItem
Caption = 'End Blink'
end
end
object HStyles1: TMenuItem
Caption = 'Heading Styles'
object Normal1: TMenuItem
Caption = 'Heading 1'
OnClick = Normal1Click
end
object EndHeading11: TMenuItem
Caption = 'End Heading 1'
OnClick = EndHeading11Click
end
object Heading21: TMenuItem
Caption = 'Heading 2'
OnClick = Heading21Click
end
object EndHeading21: TMenuItem
Caption = 'End Heading 2'
OnClick = EndHeading21Click
end
object Heading31: TMenuItem
Caption = 'Heading 3'
OnClick = Heading31Click
end
object EndHeading31: TMenuItem
Caption = 'End Heading 3'
OnClick = EndHeading31Click
end
object Heading41: TMenuItem
Caption = 'Heading 4'
OnClick = Heading41Click
end
object EndHeading41: TMenuItem
Caption = 'End Heading 4'
OnClick = EndHeading41Click
end
object Heading51: TMenuItem
Caption = 'Heading 5'
OnClick = Heading51Click
end
object EndHeading51: TMenuItem
Caption = 'End Heading 5'
OnClick = EndHeading51Click
end
object Heading61: TMenuItem
Caption = 'Heading 6'
OnClick = Heading61Click
end
object EndHeading61: TMenuItem
Caption = 'End Heading 6'
OnClick = EndHeading61Click
end
end
object DefinitionLists1: TMenuItem
Caption = 'Definition Lists'
object BeginList1: TMenuItem
Caption = 'Begin List'
OnClick = BeginList1Click
end
object EndList1: TMenuItem
Caption = 'End List'
OnClick = EndList1Click
end
object ListItem1: TMenuItem
Caption = 'Definition Item'
OnClick = ListItem1Click
end
object DefinitionData1: TMenuItem
Caption = 'Definition Data'
OnClick = DefinitionData1Click
end
end
object OrderedLists1: TMenuItem
Caption = 'Ordered Lists'
object BeginList2: TMenuItem
Caption = 'Begin List'
OnClick = BeginList2Click
end
object EndList2: TMenuItem
Caption = 'End List'
OnClick = EndList2Click
end
object ListItem2: TMenuItem
Caption = 'List Item'
OnClick = ListItem2Click
end
end
object FontSize1: TMenuItem
Caption = 'Font Size'
object Normal2: TMenuItem
Caption = 'Normal'
OnClick = Normal2Click
end
object Size1Smallest1: TMenuItem
Tag = 1
Caption = 'Size 1 (Smallest)'
OnClick = Normal2Click
end
object Size21: TMenuItem
Tag = 2
Caption = 'Size 2'
OnClick = Normal2Click
end
object Size31: TMenuItem
Tag = 3
Caption = 'Size 3'
OnClick = Normal2Click
end
object Size41: TMenuItem
Tag = 4
Caption = 'Size 4'
OnClick = Normal2Click
end
object Size51: TMenuItem
Tag = 5
Caption = 'Size 5'
OnClick = Normal2Click
end
object Size61: TMenuItem
Tag = 6
Caption = 'Size 6'
OnClick = Normal2Click
end
object Size7Largest1: TMenuItem
Caption = 'Size 7 (Largest)'
OnClick = Normal2Click
end
end
object NewLine1: TMenuItem
Caption = 'New Line'
OnClick = NewLine1Click
end
object HorizontalRule1: TMenuItem
Caption = 'Horizontal Rule'
OnClick = HorizontalRule1Click
end
object Picture1: TMenuItem
Caption = 'Picture'
OnClick = Picture1Click
end
object Hyperlink1: TMenuItem
Caption = 'Hyperlink'
OnClick = Hyperlink1Click
end
end
object OpenDialog1: TOpenDialog
DefaultExt = 'htm'
Filter = 'HTML Files|*.htm;*.html'
Left = 560
Top = 257
end
object ColorDialog1: TColorDialog
Ctl3D = True
Left = 552
Top = 288
end
object FontDialog1: TFontDialog
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'System'
Font.Style = []
MinFontSize = 0
MaxFontSize = 0
Left = 589
Top = 320
end
end