home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
WDR Computer Club Digital 1996 June
/
CLUB_0696.BIN
/
share95
/
webpagec
/
wpc.exe
/
0
/
RCDATA
/
TWPCFORM
/
TWPCFORM.txt
< prev
Wrap
Text File
|
1996-04-05
|
51KB
|
1,857 lines
object WPCForm: TWPCForm
Left = 231
Top = 109
Width = 569
Height = 453
Caption = 'Web Page Creator'
Color = clSilver
Font.Color = clWindowText
Font.Height = -18
Font.Name = 'System'
Font.Style = []
FormStyle = fsMDIForm
Icon.Data = {<image000.ico>}
Menu = MainMenu1
Position = poDefault
WindowState = wsMaximized
WindowMenu = Window1
OnClose = FormClose
OnCloseQuery = FormCloseQuery
OnCreate = FormCreate
OnResize = FormResize
OnShow = FormShow
PixelsPerInch = 120
TextHeight = 20
object ScrollBox1: TScrollBox
Left = 0
Top = 0
Width = 561
Height = 178
HorzScrollBar.Visible = False
VertScrollBar.Visible = False
Align = alTop
TabOrder = 0
object Panel2: TPanel
Left = 0
Top = 85
Width = 557
Height = 35
Align = alTop
Color = clSilver
TabOrder = 0
Visible = False
object SpeedButton42: TSpeedButton
Left = 8
Top = 5
Width = 190
Height = 25
Hint = 'Required For Forms'
Caption = 'Form Body'
Font.Color = clBlue
Font.Height = -18
Font.Name = 'System'
Font.Style = [fsBold]
ParentFont = False
ParentShowHint = False
ShowHint = True
OnClick = SpeedButton42Click
end
object SpeedButton43: TSpeedButton
Left = 205
Top = 5
Width = 188
Height = 25
Hint = 'Where To Mail The Completed Form'
Caption = 'Mail To'
Font.Color = clBlue
Font.Height = -18
Font.Name = 'System'
Font.Style = [fsBold]
ParentFont = False
ParentShowHint = False
ShowHint = True
OnClick = SpeedButton43Click
end
object SpeedButton44: TSpeedButton
Left = 403
Top = 5
Width = 190
Height = 25
Hint = 'Subject Of The Form'
Caption = 'Mail Subject'
Font.Color = clBlue
Font.Height = -18
Font.Name = 'System'
Font.Style = [fsBold]
ParentFont = False
ParentShowHint = False
ShowHint = True
OnClick = SpeedButton44Click
end
object SpeedButton45: TSpeedButton
Left = 601
Top = 5
Width = 190
Height = 25
Hint = 'Define Input Areas'
Caption = 'Input'
Font.Color = clBlue
Font.Height = -18
Font.Name = 'System'
Font.Style = [fsBold]
ParentFont = False
ParentShowHint = False
ShowHint = True
OnClick = SpeedButton45Click
end
end
object Panel1: TPanel
Left = 0
Top = 0
Width = 557
Height = 85
Align = alTop
BevelOuter = bvNone
TabOrder = 1
end
object Panel3: TPanel
Left = 0
Top = 120
Width = 557
Height = 35
Align = alTop
TabOrder = 2
Visible = False
object SpeedButton47: TSpeedButton
Left = 10
Top = 4
Width = 38
Height = 27
Caption = '1'
Font.Color = clFuchsia
Font.Height = -18
Font.Name = 'System'
Font.Style = [fsBold]
ParentFont = False
ParentShowHint = False
ShowHint = True
Visible = False
OnClick = SpeedButton47Click
end
object SpeedButton48: TSpeedButton
Left = 49
Top = 4
Width = 37
Height = 27
Caption = '2'
Font.Color = clFuchsia
Font.Height = -18
Font.Name = 'System'
Font.Style = [fsBold]
ParentFont = False
ParentShowHint = False
ShowHint = True
Visible = False
OnClick = SpeedButton48Click
end
object SpeedButton49: TSpeedButton
Left = 88
Top = 4
Width = 37
Height = 27
Caption = '3'
Font.Color = clFuchsia
Font.Height = -18
Font.Name = 'System'
Font.Style = [fsBold]
ParentFont = False
ParentShowHint = False
ShowHint = True
Visible = False
OnClick = SpeedButton49Click
end
object SpeedButton50: TSpeedButton
Left = 128
Top = 4
Width = 36
Height = 27
Caption = '4'
Font.Color = clFuchsia
Font.Height = -18
Font.Name = 'System'
Font.Style = [fsBold]
ParentFont = False
ParentShowHint = False
ShowHint = True
Visible = False
OnClick = SpeedButton50Click
end
object SpeedButton51: TSpeedButton
Left = 166
Top = 4
Width = 37
Height = 27
Caption = '5'
Font.Color = clFuchsia
Font.Height = -18
Font.Name = 'System'
Font.Style = [fsBold]
ParentFont = False
ParentShowHint = False
ShowHint = True
Visible = False
OnClick = SpeedButton51Click
end
object SpeedButton52: TSpeedButton
Left = 205
Top = 4
Width = 38
Height = 27
Caption = '6'
Font.Color = clFuchsia
Font.Height = -18
Font.Name = 'System'
Font.Style = [fsBold]
ParentFont = False
ParentShowHint = False
ShowHint = True
Visible = False
OnClick = SpeedButton52Click
end
object SpeedButton53: TSpeedButton
Left = 244
Top = 4
Width = 37
Height = 27
Caption = '7'
Font.Color = clFuchsia
Font.Height = -18
Font.Name = 'System'
Font.Style = [fsBold]
ParentFont = False
ParentShowHint = False
ShowHint = True
Visible = False
OnClick = SpeedButton53Click
end
object SpeedButton54: TSpeedButton
Left = 283
Top = 4
Width = 37
Height = 27
Caption = '8'
Font.Color = clFuchsia
Font.Height = -18
Font.Name = 'System'
Font.Style = [fsBold]
ParentFont = False
ParentShowHint = False
ShowHint = True
Visible = False
OnClick = SpeedButton54Click
end
object SpeedButton55: TSpeedButton
Left = 323
Top = 4
Width = 36
Height = 27
Caption = '9'
Font.Color = clFuchsia
Font.Height = -18
Font.Name = 'System'
Font.Style = [fsBold]
ParentFont = False
ParentShowHint = False
ShowHint = True
Visible = False
OnClick = SpeedButton55Click
end
object SpeedButton56: TSpeedButton
Left = 361
Top = 4
Width = 37
Height = 27
Caption = '10'
Font.Color = clFuchsia
Font.Height = -18
Font.Name = 'System'
Font.Style = [fsBold]
ParentFont = False
ParentShowHint = False
ShowHint = True
Visible = False
OnClick = SpeedButton56Click
end
object SpeedButton57: TSpeedButton
Left = 400
Top = 4
Width = 38
Height = 27
Caption = '11'
Font.Color = clFuchsia
Font.Height = -18
Font.Name = 'System'
Font.Style = [fsBold]
ParentFont = False
ParentShowHint = False
ShowHint = True
Visible = False
OnClick = SpeedButton57Click
end
object SpeedButton58: TSpeedButton
Left = 439
Top = 4
Width = 37
Height = 27
Caption = '12'
Font.Color = clFuchsia
Font.Height = -18
Font.Name = 'System'
Font.Style = [fsBold]
ParentFont = False
ParentShowHint = False
ShowHint = True
Visible = False
OnClick = SpeedButton58Click
end
object SpeedButton59: TSpeedButton
Left = 478
Top = 4
Width = 37
Height = 27
Caption = '13'
Font.Color = clFuchsia
Font.Height = -18
Font.Name = 'System'
Font.Style = [fsBold]
ParentFont = False
ParentShowHint = False
ShowHint = True
Visible = False
OnClick = SpeedButton59Click
end
object SpeedButton60: TSpeedButton
Left = 518
Top = 4
Width = 36
Height = 27
Caption = '14'
Font.Color = clFuchsia
Font.Height = -18
Font.Name = 'System'
Font.Style = [fsBold]
ParentFont = False
ParentShowHint = False
ShowHint = True
Visible = False
OnClick = SpeedButton60Click
end
object SpeedButton61: TSpeedButton
Left = 556
Top = 4
Width = 37
Height = 27
Caption = '15'
Font.Color = clFuchsia
Font.Height = -18
Font.Name = 'System'
Font.Style = [fsBold]
ParentFont = False
ParentShowHint = False
ShowHint = True
Visible = False
OnClick = SpeedButton61Click
end
object SpeedButton62: TSpeedButton
Left = 595
Top = 4
Width = 38
Height = 27
Caption = '16'
Font.Color = clFuchsia
Font.Height = -18
Font.Name = 'System'
Font.Style = [fsBold]
ParentFont = False
ParentShowHint = False
ShowHint = True
Visible = False
OnClick = SpeedButton62Click
end
object SpeedButton63: TSpeedButton
Left = 634
Top = 4
Width = 37
Height = 27
Caption = '17'
Font.Color = clFuchsia
Font.Height = -18
Font.Name = 'System'
Font.Style = [fsBold]
ParentFont = False
ParentShowHint = False
ShowHint = True
Visible = False
OnClick = SpeedButton63Click
end
object SpeedButton64: TSpeedButton
Left = 673
Top = 4
Width = 37
Height = 27
Caption = '18'
Font.Color = clFuchsia
Font.Height = -18
Font.Name = 'System'
Font.Style = [fsBold]
ParentFont = False
ParentShowHint = False
ShowHint = True
Visible = False
OnClick = SpeedButton64Click
end
object SpeedButton65: TSpeedButton
Left = 713
Top = 4
Width = 36
Height = 27
Caption = '19'
Font.Color = clFuchsia
Font.Height = -18
Font.Name = 'System'
Font.Style = [fsBold]
ParentFont = False
ParentShowHint = False
ShowHint = True
Visible = False
OnClick = SpeedButton65Click
end
object SpeedButton66: TSpeedButton
Left = 751
Top = 4
Width = 37
Height = 27
Caption = '20'
Font.Color = clFuchsia
Font.Height = -18
Font.Name = 'System'
Font.Style = [fsBold]
ParentFont = False
ParentShowHint = False
ShowHint = True
Visible = False
OnClick = SpeedButton66Click
end
end
object GroupBox6: TGroupBox
Left = 5
Top = 1
Width = 89
Height = 78
Font.Color = clBlue
Font.Height = -17
Font.Name = 'Times New Roman'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 3
object SpeedButton10: TSpeedButton
Left = 5
Top = 19
Width = 25
Height = 25
Hint = 'New File'
Font.Color = clBlue
Font.Height = -17
Font.Name = 'Times New Roman'
Font.Style = [fsBold, fsItalic]
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000130B0000130B00000000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF0033333333B333
333B33FF33337F3333F73BB3777BB7777BB3377FFFF77FFFF77333B000000000
0B3333777777777777333330FFFFFFFF07333337F33333337F333330FFFFFFFF
07333337F33333337F333330FFFFFFFF07333337F33333337F333330FFFFFFFF
07333FF7F33333337FFFBBB0FFFFFFFF0BB37777F3333333777F3BB0FFFFFFFF
0BBB3777F3333FFF77773330FFFF000003333337F333777773333330FFFF0FF0
33333337F3337F37F3333330FFFF0F0B33333337F3337F77FF333330FFFF003B
B3333337FFFF77377FF333B000000333BB33337777777F3377FF3BB3333BB333
3BB33773333773333773B333333B3333333B7333333733333337}
NumGlyphs = 2
ParentFont = False
ParentShowHint = False
ShowHint = True
OnClick = New1Click
end
object SpeedButton11: TSpeedButton
Left = 33
Top = 19
Width = 25
Height = 25
Hint = 'Open File'
Font.Color = clBlue
Font.Height = -17
Font.Name = 'Times New Roman'
Font.Style = [fsBold, fsItalic]
Glyph.Data = {
78010000424D7801000000000000760000002800000020000000100000000100
04000000000000000000120B0000120B00000000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555555555
5555555555555555555555555555555555555555555555555555555555555555
555555555555555555555555555555555555555FFFFFFFFFF555550000000000
55555577777777775F55500B8B8B8B8B05555775F555555575F550F0B8B8B8B8
B05557F75F555555575F50BF0B8B8B8B8B0557F575FFFFFFFF7F50FBF0000000
000557F557777777777550BFBFBFBFB0555557F555555557F55550FBFBFBFBF0
555557F555555FF7555550BFBFBF00055555575F555577755555550BFBF05555
55555575FFF75555555555700007555555555557777555555555555555555555
55555555555555555555555555555555555555555555555555550000}
NumGlyphs = 2
ParentFont = False
ParentShowHint = False
ShowHint = True
OnClick = Open1Click
end
object SpeedButton13: TSpeedButton
Left = 5
Top = 46
Width = 25
Height = 25
Hint = 'Save File'
Font.Color = clBlue
Font.Height = -17
Font.Name = 'Times New Roman'
Font.Style = [fsBold, fsItalic]
Glyph.Data = {
78010000424D7801000000000000760000002800000020000000100000000100
04000000000000000000120B0000120B00000000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555555555
5555555555555555555555555555555555555555555555555555555555555555
55555555FFFFFFFFFF5555500000000005555557777777777F55550BFBFBFBFB
0555557F555555557F55550FBFBFBFBF0555557F555555557F55550BFBFBFBFB
0555557F555555557F55550FBFBFBFBF0555557F555555557F55550BFBFBFBFB
0555557F555555557F55550FBFBFBFBF0555557FFFFFFFFF7555550000000000
555555777777777755555550FBFB0555555555575FFF75555555555700007555
5555555577775555555555555555555555555555555555555555555555555555
55555555555555555555555555555555555555555555555555550000}
NumGlyphs = 2
ParentFont = False
ParentShowHint = False
ShowHint = True
OnClick = SpeedButton13Click
end
object SpeedButton15: TSpeedButton
Left = 33
Top = 46
Width = 25
Height = 25
Hint = 'Save File As'
Font.Color = clBlue
Font.Height = -17
Font.Name = 'Times New Roman'
Font.Style = [fsBold, fsItalic]
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000130B0000130B00000000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333330070
7700333333337777777733333333008088003333333377F73377333333330088
88003333333377FFFF7733333333000000003FFFFFFF77777777000000000000
000077777777777777770FFFFFFF0FFFFFF07F3333337F3333370FFFFFFF0FFF
FFF07F3FF3FF7FFFFFF70F00F0080CCC9CC07F773773777777770FFFFFFFF039
99337F3FFFF3F7F777F30F0000F0F09999937F7777373777777F0FFFFFFFF999
99997F3FF3FFF77777770F00F000003999337F773777773777F30FFFF0FF0339
99337F3FF7F3733777F30F08F0F0337999337F7737F73F7777330FFFF0039999
93337FFFF7737777733300000033333333337777773333333333}
NumGlyphs = 2
ParentFont = False
ParentShowHint = False
ShowHint = True
OnClick = SpeedButton15Click
end
object SpeedButton16: TSpeedButton
Left = 59
Top = 46
Width = 25
Height = 25
Hint = 'Close File'
Font.Color = clBlue
Font.Height = -17
Font.Name = 'Times New Roman'
Font.Style = [fsBold, fsItalic]
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000130B0000130B00000000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF0033333333B333
333B33F333337F3333373B33333BB33333B337FF33377F33337F3BB3333BB333
3BB3377FF3377F33377333BB777BB777BB333377FFF77FFF7733330000000000
B3333377777777777333330FFFFFFFF03333337F3FF3FFF7F333330F00F000F0
33333F7F77377737FFFFBB0FFF8FFFF0BBB3777F3F33FFF7777F3B0F08700000
000B377F73F7777777773308880FFFFFF033337F377333333733330807FFFFF8
033333737FFFFFFF7F33333000000000B3333337777777777FF333BB333BB333
BB33337733377F3377FF3BB3333BB3333BB3377333377F33377F3B33333BB333
33B33733333773333373B333333B3333333B7333333733333337}
NumGlyphs = 2
ParentFont = False
ParentShowHint = False
ShowHint = True
OnClick = SpeedButton16Click
end
object SpeedButton12: TSpeedButton
Left = 59
Top = 19
Width = 25
Height = 25
Hint = 'Print File'
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000130B0000130B00000000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00300000000000
00033FFFFFFFFFFFFFFF0888888888888880777777777777777F088888888888
8880777777777777777F0000000000000000FFFFFFFFFFFFFFFF0F8F8F8F8F8F
8F80777777777777777F08F8F8F8F8F8F9F0777777777777777F0F8F8F8F8F8F
8F807777777777777F7F0000000000000000777777777777777F3330FFFFFFFF
03333337F3FFFF3F7F333330F0000F0F03333337F77773737F333330FFFFFFFF
03333337F3FF3FFF7F333330F00F000003333337F773777773333330FFFF0FF0
33333337F3FF7F3733333330F08F0F0333333337F7737F7333333330FFFF0033
33333337FFFF7733333333300000033333333337777773333333}
NumGlyphs = 2
ParentShowHint = False
ShowHint = True
OnClick = SpeedButton12Click
end
end
object GroupBox2: TGroupBox
Left = 98
Top = 1
Width = 196
Height = 78
Caption = 'Text Attributes'
Font.Color = clBlue
Font.Height = -17
Font.Name = 'Times New Roman'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 4
object SpeedButton7: TSpeedButton
Left = 5
Top = 19
Width = 25
Height = 25
Hint = 'Bold Text'
Caption = 'Bd'
Font.Color = clMaroon
Font.Height = -17
Font.Name = 'Times New Roman'
Font.Style = [fsBold, fsItalic]
ParentFont = False
ParentShowHint = False
ShowHint = True
OnClick = Bold1Click
end
object SpeedButton8: TSpeedButton
Left = 33
Top = 19
Width = 25
Height = 25
Hint = 'Italic Text'
Caption = 'It'
Font.Color = clMaroon
Font.Height = -17
Font.Name = 'Times New Roman'
Font.Style = [fsBold, fsItalic]
ParentFont = False
ParentShowHint = False
ShowHint = True
OnClick = Italic1Click
end
object SpeedButton9: TSpeedButton
Left = 86
Top = 46
Width = 25
Height = 25
Hint = 'Comment'
Caption = 'Cm'
Font.Color = clMaroon
Font.Height = -17
Font.Name = 'Times New Roman'
Font.Style = [fsBold, fsItalic]
ParentFont = False
ParentShowHint = False
ShowHint = True
OnClick = Comment1Click
end
object SpeedButton14: TSpeedButton
Left = 86
Top = 19
Width = 25
Height = 25
Hint = 'Blinking Text'
Caption = 'Bl'
Font.Color = clMaroon
Font.Height = -17
Font.Name = 'Times New Roman'
Font.Style = [fsBold, fsItalic]
ParentFont = False
ParentShowHint = False
ShowHint = True
OnClick = Blinking1Click
end
object SpeedButton33: TSpeedButton
Left = 5
Top = 46
Width = 25
Height = 25
Hint = 'Strong Emphasis'
Caption = 'St'
Font.Color = clMaroon
Font.Height = -17
Font.Name = 'Times New Roman'
Font.Style = [fsBold, fsItalic]
ParentFont = False
ParentShowHint = False
ShowHint = True
OnClick = Strong1Click
end
object SpeedButton34: TSpeedButton
Left = 59
Top = 19
Width = 25
Height = 25
Hint = 'Citation'
Caption = 'Ci'
Font.Color = clMaroon
Font.Height = -17
Font.Name = 'Times New Roman'
Font.Style = [fsBold, fsItalic]
ParentFont = False
ParentShowHint = False
ShowHint = True
OnClick = Citation1Click
end
object SpeedButton35: TSpeedButton
Left = 33
Top = 46
Width = 25
Height = 25
Hint = 'Typographic Emphasis'
Caption = 'Em'
Font.Color = clMaroon
Font.Height = -17
Font.Name = 'Times New Roman'
Font.Style = [fsBold, fsItalic]
ParentFont = False
ParentShowHint = False
ShowHint = True
OnClick = Emphasis1Click
end
object SpeedButton41: TSpeedButton
Left = 59
Top = 46
Width = 25
Height = 25
Hint = 'Coded Text'
Caption = 'Co'
Font.Color = clMaroon
Font.Height = -17
Font.Name = 'Times New Roman'
Font.Style = [fsBold, fsItalic]
ParentFont = False
ParentShowHint = False
ShowHint = True
OnClick = Code1Click
end
object SpeedButton67: TSpeedButton
Left = 113
Top = 46
Width = 25
Height = 25
Hint = 'Fonts'
Caption = 'Fo'
Font.Color = clMaroon
Font.Height = -17
Font.Name = 'Times New Roman'
Font.Style = [fsBold, fsItalic]
ParentFont = False
ParentShowHint = False
ShowHint = True
OnClick = Font1Click
end
object SpeedButton3: TSpeedButton
Left = 113
Top = 19
Width = 25
Height = 25
Hint = 'Underline'
Caption = 'Ul'
Font.Color = clMaroon
Font.Height = -17
Font.Name = 'Times New Roman'
Font.Style = [fsBold, fsItalic]
ParentFont = False
ParentShowHint = False
ShowHint = True
OnClick = Underline1Click
end
object SpeedButton4: TSpeedButton
Left = 140
Top = 19
Width = 25
Height = 25
Hint = 'Sample Text'
Caption = 'Sa'
Font.Color = clMaroon
Font.Height = -17
Font.Name = 'Times New Roman'
Font.Style = [fsBold, fsItalic]
ParentFont = False
ParentShowHint = False
ShowHint = True
OnClick = Sample1Click
end
object SpeedButton5: TSpeedButton
Left = 168
Top = 19
Width = 25
Height = 25
Hint = 'Keyboard Text'
Caption = 'Kb'
Font.Color = clMaroon
Font.Height = -17
Font.Name = 'Times New Roman'
Font.Style = [fsBold, fsItalic]
ParentFont = False
ParentShowHint = False
ShowHint = True
OnClick = Keyboard1Click
end
object SpeedButton6: TSpeedButton
Left = 140
Top = 46
Width = 25
Height = 25
Hint = 'Variable Text'
Caption = 'Va'
Font.Color = clMaroon
Font.Height = -17
Font.Name = 'Times New Roman'
Font.Style = [fsBold, fsItalic]
ParentFont = False
ParentShowHint = False
ShowHint = True
OnClick = Variable1Click
end
object SpeedButton17: TSpeedButton
Left = 168
Top = 46
Width = 25
Height = 25
Hint = 'Definition Text'
Caption = 'De'
Font.Color = clMaroon
Font.Height = -17
Font.Name = 'Times New Roman'
Font.Style = [fsBold, fsItalic]
ParentFont = False
ParentShowHint = False
ShowHint = True
OnClick = Definition1Click
end
end
object GroupBox3: TGroupBox
Left = 298
Top = 1
Width = 142
Height = 78
Caption = 'Format'
Font.Color = clBlue
Font.Height = -17
Font.Name = 'Times New Roman'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 5
object SpeedButton18: TSpeedButton
Left = 5
Top = 46
Width = 25
Height = 25
Hint = 'Paragraph Break'
Caption = 'Pa'
Font.Color = clGreen
Font.Height = -17
Font.Name = 'Times New Roman'
Font.Style = [fsBold, fsItalic]
ParentFont = False
ParentShowHint = False
ShowHint = True
OnClick = Paragraph1Click
end
object SpeedButton19: TSpeedButton
Left = 33
Top = 46
Width = 25
Height = 25
Hint = 'Horizontal Rule'
Caption = 'Hr'
Font.Color = clGreen
Font.Height = -17
Font.Name = 'Times New Roman'
Font.Style = [fsBold, fsItalic]
ParentFont = False
ParentShowHint = False
ShowHint = True
OnClick = HorizontalRule1Click
end
object SpeedButton20: TSpeedButton
Left = 33
Top = 19
Width = 25
Height = 25
Hint = 'Center Line'
Caption = 'Ce'
Font.Color = clGreen
Font.Height = -17
Font.Name = 'Times New Roman'
Font.Style = [fsBold, fsItalic]
ParentFont = False
ParentShowHint = False
ShowHint = True
OnClick = CenterLine1Click
end
object SpeedButton21: TSpeedButton
Left = 59
Top = 19
Width = 25
Height = 25
Hint = 'Preformatted Text'
Caption = 'Pf'
Font.Color = clGreen
Font.Height = -17
Font.Name = 'Times New Roman'
Font.Style = [fsBold, fsItalic]
ParentFont = False
ParentShowHint = False
ShowHint = True
OnClick = Preformatted1Click
end
object SpeedButton36: TSpeedButton
Left = 5
Top = 19
Width = 25
Height = 25
Hint = 'Forced Line Break'
Caption = 'Br'
Font.Color = clGreen
Font.Height = -17
Font.Name = 'Times New Roman'
Font.Style = [fsBold, fsItalic]
ParentFont = False
ParentShowHint = False
ShowHint = True
OnClick = ForcedLineBreak1Click
end
object SpeedButton37: TSpeedButton
Left = 59
Top = 46
Width = 25
Height = 25
Hint = 'Address Block'
Caption = 'Ab'
Font.Color = clGreen
Font.Height = -17
Font.Name = 'Times New Roman'
Font.Style = [fsBold, fsItalic]
ParentFont = False
ParentShowHint = False
ShowHint = True
OnClick = AddressBlock1Click
end
object SpeedButton39: TSpeedButton
Left = 86
Top = 19
Width = 25
Height = 25
Hint = 'Block Quote'
Caption = 'Bq'
Font.Color = clGreen
Font.Height = -17
Font.Name = 'Times New Roman'
Font.Style = [fsBold, fsItalic]
ParentFont = False
ParentShowHint = False
ShowHint = True
OnClick = BlockQuote1Click
end
object SpeedButton46: TSpeedButton
Left = 86
Top = 46
Width = 25
Height = 25
Hint = 'Last Modified'
Caption = 'Lm'
Font.Color = clGreen
Font.Height = -17
Font.Name = 'Times New Roman'
Font.Style = [fsBold, fsItalic]
ParentFont = False
ParentShowHint = False
ShowHint = True
OnClick = LastModified1Click
end
object SpeedButton1: TSpeedButton
Left = 113
Top = 46
Width = 25
Height = 25
Hint = 'Header 1-6'
Caption = 'He'
Font.Color = clGreen
Font.Height = -17
Font.Name = 'Times New Roman'
Font.Style = [fsBold, fsItalic]
ParentFont = False
ParentShowHint = False
ShowHint = True
OnClick = Header1Click
end
object SpeedButton2: TSpeedButton
Left = 113
Top = 19
Width = 25
Height = 25
Hint = 'Horizontal Tab'
Caption = 'Ht'
Font.Color = clGreen
Font.Height = -17
Font.Name = 'Times New Roman'
Font.Style = [fsBold, fsItalic]
ParentFont = False
ParentShowHint = False
ShowHint = True
OnClick = HorizontalTab1Click
end
end
object GroupBox4: TGroupBox
Left = 443
Top = 1
Width = 90
Height = 78
Caption = 'Lists'
Font.Color = clBlue
Font.Height = -17
Font.Name = 'Times New Roman'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 6
object SpeedButton22: TSpeedButton
Left = 5
Top = 19
Width = 25
Height = 25
Hint = 'Numbered List'
Caption = 'Nl'
Font.Color = clNavy
Font.Height = -17
Font.Name = 'Times New Roman'
Font.Style = [fsBold, fsItalic]
ParentFont = False
ParentShowHint = False
ShowHint = True
OnClick = NumberedList1Click
end
object SpeedButton23: TSpeedButton
Left = 5
Top = 46
Width = 25
Height = 25
Hint = 'Unnumbered List'
Caption = 'Ul'
Font.Color = clNavy
Font.Height = -17
Font.Name = 'Times New Roman'
Font.Style = [fsBold, fsItalic]
ParentFont = False
ParentShowHint = False
ShowHint = True
OnClick = UnnumberedList1Click
end
object SpeedButton24: TSpeedButton
Left = 33
Top = 19
Width = 25
Height = 25
Hint = 'Definition List'
Caption = 'Dl'
Font.Color = clNavy
Font.Height = -17
Font.Name = 'Times New Roman'
Font.Style = [fsBold, fsItalic]
ParentFont = False
ParentShowHint = False
ShowHint = True
OnClick = DefinitionList1Click
end
object SpeedButton40: TSpeedButton
Left = 61
Top = 46
Width = 25
Height = 25
Hint = 'Menu'
Caption = 'Me'
Font.Color = clNavy
Font.Height = -17
Font.Name = 'Times New Roman'
Font.Style = [fsBold, fsItalic]
ParentFont = False
ParentShowHint = False
ShowHint = True
OnClick = Menu1Click
end
object SpeedButton38: TSpeedButton
Left = 33
Top = 46
Width = 25
Height = 25
Hint = 'Directory List'
Caption = 'Di'
Font.Color = clNavy
Font.Height = -17
Font.Name = 'Times New Roman'
Font.Style = [fsBold, fsItalic]
ParentFont = False
ParentShowHint = False
ShowHint = True
OnClick = Directory1Click
end
end
object GroupBox5: TGroupBox
Left = 536
Top = 1
Width = 260
Height = 78
TabOrder = 7
object SpeedButton25: TSpeedButton
Left = 5
Top = 46
Width = 53
Height = 25
Hint = 'Graphics File'
Caption = 'Image'
Font.Color = clPurple
Font.Height = -17
Font.Name = 'Times New Roman'
Font.Style = [fsBold, fsItalic]
ParentFont = False
ParentShowHint = False
ShowHint = True
OnClick = Image1Click
end
object SpeedButton26: TSpeedButton
Left = 60
Top = 19
Width = 58
Height = 25
Hint = 'Hyperlinks'
Caption = 'Link'
Font.Color = clPurple
Font.Height = -17
Font.Name = 'Times New Roman'
Font.Style = [fsBold, fsItalic]
ParentFont = False
ParentShowHint = False
ShowHint = True
OnClick = URL1Click
end
object SpeedButton27: TSpeedButton
Left = 5
Top = 19
Width = 53
Height = 25
Hint = 'Background Appearance'
Caption = 'Back'
Font.Color = clPurple
Font.Height = -17
Font.Name = 'Times New Roman'
Font.Style = [fsBold, fsItalic]
ParentFont = False
ParentShowHint = False
ShowHint = True
OnClick = Background1Click
end
object SpeedButton29: TSpeedButton
Left = 120
Top = 19
Width = 55
Height = 25
Hint = 'Tables'
Caption = 'Table'
Font.Color = clPurple
Font.Height = -17
Font.Name = 'Times New Roman'
Font.Style = [fsBold, fsItalic]
ParentFont = False
ParentShowHint = False
ShowHint = True
OnClick = Tables1Click
end
object SpeedButton30: TSpeedButton
Left = 60
Top = 46
Width = 58
Height = 25
Hint = 'Link Anchors'
Caption = 'Anchor'
Font.Color = clPurple
Font.Height = -17
Font.Name = 'Times New Roman'
Font.Style = [fsBold, fsItalic]
ParentFont = False
ParentShowHint = False
ShowHint = True
OnClick = Targets1Click
end
object SpeedButton31: TSpeedButton
Left = 178
Top = 19
Width = 75
Height = 25
Hint = 'Special Symbols'
Caption = 'Symbol'
Font.Color = clPurple
Font.Height = -17
Font.Name = 'Times New Roman'
Font.Style = [fsBold, fsItalic]
ParentFont = False
ParentShowHint = False
ShowHint = True
OnClick = Symbols1Click
end
object SpeedButton32: TSpeedButton
Left = 120
Top = 46
Width = 55
Height = 25
Hint = 'Toggle Form Create Bar'
Caption = 'Forms'
Font.Color = clPurple
Font.Height = -17
Font.Name = 'Times New Roman'
Font.Style = [fsBold, fsItalic]
ParentFont = False
ParentShowHint = False
ShowHint = True
OnClick = SpeedButton32Click
end
object SpeedButton28: TSpeedButton
Left = 178
Top = 46
Width = 76
Height = 25
Hint = 'View a GIF Image'
Caption = 'View GIF'
Font.Color = clPurple
Font.Height = -17
Font.Name = 'Times New Roman'
Font.Style = [fsBold, fsItalic]
ParentFont = False
ParentShowHint = False
ShowHint = True
OnClick = SpeedButton28Click
end
end
end
object Panel4: TPanel
Left = 0
Top = 382
Width = 561
Height = 25
Align = alBottom
Alignment = taLeftJustify
BorderWidth = 2
Font.Color = clBlack
Font.Height = -10
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 1
Visible = False
object Panel5: TPanel
Left = 3
Top = 3
Width = 110
Height = 19
Align = alLeft
BevelInner = bvLowered
BevelOuter = bvNone
TabOrder = 0
end
object Panel6: TPanel
Left = 113
Top = 3
Width = 80
Height = 19
Align = alLeft
BevelInner = bvLowered
BevelOuter = bvNone
TabOrder = 1
end
object Panel7: TPanel
Left = 193
Top = 3
Width = 112
Height = 19
Align = alLeft
BevelInner = bvLowered
BevelOuter = bvNone
TabOrder = 2
end
object Panel9: TPanel
Left = 305
Top = 3
Width = 120
Height = 19
Align = alLeft
BevelInner = bvLowered
BevelOuter = bvNone
TabOrder = 3
end
object Panel10: TPanel
Left = 425
Top = 3
Width = 80
Height = 19
Align = alLeft
BevelInner = bvLowered
BevelOuter = bvNone
TabOrder = 4
end
object Panel8: TPanel
Left = 505
Top = 3
Width = 293
Height = 20
Alignment = taLeftJustify
BevelOuter = bvLowered
TabOrder = 5
end
end
object MainMenu1: TMainMenu
Left = 8
Top = 184
object File1: TMenuItem
Caption = '&File'
GroupIndex = 1
ShortCut = 0
OnClick = File1Click
object NewProject1: TMenuItem
Caption = 'New &Project'
Enabled = False
ShortCut = 0
OnClick = NewProject1Click
end
object OpenProject1: TMenuItem
Caption = 'Open P&roject'
Enabled = False
ShortCut = 0
OnClick = OpenProject1Click
end
object N4: TMenuItem
Caption = '-'
ShortCut = 0
end
object New1: TMenuItem
Caption = '&New File'
ShortCut = 0
OnClick = New1Click
end
object Open1: TMenuItem
Caption = '&Open File'
ShortCut = 0
OnClick = Open1Click
end
object N5: TMenuItem
Caption = '-'
ShortCut = 0
end
object Exit1: TMenuItem
Caption = 'E&xit'
ShortCut = 0
OnClick = Exit1Click
end
end
object Edit1: TMenuItem
Caption = '&Edit'
GroupIndex = 2
ShortCut = 0
OnClick = Edit1Click
object Cut1: TMenuItem
Caption = '&Cut'
ShortCut = 0
OnClick = Cut1Click
end
object Copy1: TMenuItem
Caption = 'C&opy'
ShortCut = 0
OnClick = Copy1Click
end
object Paste1: TMenuItem
Caption = '&Paste'
ShortCut = 0
OnClick = Paste1Click
end
object Delete1: TMenuItem
Caption = '&Delete'
ShortCut = 0
OnClick = Delete1Click
end
object Search1: TMenuItem
Caption = '&Search'
ShortCut = 113
OnClick = Search1Click
end
object SearchNext1: TMenuItem
Caption = 'Search &Next'
ShortCut = 114
OnClick = SearchNext1Click
end
object Replace1: TMenuItem
Caption = '&Replace'
ShortCut = 115
OnClick = Replace1Click
end
object test1: TMenuItem
Caption = '-'
ShortCut = 0
end
object Undo1: TMenuItem
Caption = '&Undo'
Enabled = False
ShortCut = 0
OnClick = Undo1Click
end
object Redo1: TMenuItem
Caption = 'R&edo'
Enabled = False
ShortCut = 0
OnClick = Redo1Click
end
end
object HTML1: TMenuItem
Caption = '&HTML'
GroupIndex = 3
ShortCut = 0
object Background1: TMenuItem
Caption = '&Background'
ShortCut = 0
OnClick = Background1Click
end
object Image1: TMenuItem
Caption = '&Image'
ShortCut = 0
OnClick = Image1Click
end
object URL1: TMenuItem
Caption = '&URL'
ShortCut = 0
OnClick = URL1Click
end
object Targets1: TMenuItem
Caption = '&Anchors'
ShortCut = 0
OnClick = Targets1Click
end
object Header1: TMenuItem
Caption = '&Header'
ShortCut = 0
OnClick = Header1Click
end
object Lists1: TMenuItem
Caption = '&Lists'
ShortCut = 0
object NumberedList1: TMenuItem
Caption = '&Numbered List'
ShortCut = 0
OnClick = NumberedList1Click
end
object UnnumberedList1: TMenuItem
Caption = '&Unnumbered List'
ShortCut = 0
OnClick = UnnumberedList1Click
end
object DefinitionList1: TMenuItem
Caption = '&Definition List'
ShortCut = 0
OnClick = DefinitionList1Click
end
object Menu1: TMenuItem
Caption = '&Menu'
ShortCut = 0
OnClick = Menu1Click
end
object Directory1: TMenuItem
Caption = 'D&irectory'
ShortCut = 0
OnClick = Directory1Click
end
end
object Format1: TMenuItem
Caption = '&Format'
ShortCut = 0
object ForcedLineBreak1: TMenuItem
Caption = '&Forced Line Break'
ShortCut = 0
OnClick = ForcedLineBreak1Click
end
object Paragraph1: TMenuItem
Caption = '&Paragraph'
ShortCut = 0
OnClick = Paragraph1Click
end
object HorizontalTab1: TMenuItem
Caption = '&Horizontal Tab'
ShortCut = 0
OnClick = HorizontalTab1Click
end
object CenterLine1: TMenuItem
Caption = '&Center Line'
ShortCut = 0
OnClick = CenterLine1Click
end
object HorizontalRule1: TMenuItem
Caption = 'Hori&zontal Rule'
ShortCut = 0
OnClick = HorizontalRule1Click
end
object Preformatted1: TMenuItem
Caption = 'P&reformatted Text'
ShortCut = 0
OnClick = Preformatted1Click
end
object AddressBlock1: TMenuItem
Caption = '&Address Block'
ShortCut = 0
OnClick = AddressBlock1Click
end
object BlockQuote1: TMenuItem
Caption = 'Block &Quote'
ShortCut = 0
OnClick = BlockQuote1Click
end
object LastModified1: TMenuItem
Caption = '&Last Modified'
ShortCut = 0
OnClick = LastModified1Click
end
end
object Tables1: TMenuItem
Caption = 'Tabl&es'
ShortCut = 0
OnClick = Tables1Click
end
object TextFormat1: TMenuItem
Caption = 'Te&xt Format'
ShortCut = 0
object Bold1: TMenuItem
Caption = '&Bold'
ShortCut = 0
OnClick = Bold1Click
end
object Italic1: TMenuItem
Caption = '&Italic'
ShortCut = 0
OnClick = Italic1Click
end
object Strong1: TMenuItem
Caption = '&Strong'
ShortCut = 0
OnClick = Strong1Click
end
object Emphasis1: TMenuItem
Caption = 'E&mphasis'
ShortCut = 0
OnClick = Emphasis1Click
end
object Citation1: TMenuItem
Caption = '&Citation'
ShortCut = 0
OnClick = Citation1Click
end
object Code1: TMenuItem
Caption = 'C&ode'
ShortCut = 0
OnClick = Code1Click
end
object Blinking1: TMenuItem
Caption = 'B&linking'
ShortCut = 0
OnClick = Blinking1Click
end
object Underline1: TMenuItem
Caption = '&Underline'
ShortCut = 0
OnClick = Underline1Click
end
object Comment1: TMenuItem
Caption = 'Co&mment'
ShortCut = 0
OnClick = Comment1Click
end
object Sample1: TMenuItem
Caption = 'S&le'
ShortCut = 0
OnClick = Sample1Click
end
object Keyboard1: TMenuItem
Caption = '&Keyboard'
ShortCut = 0
OnClick = Keyboard1Click
end
object Variable1: TMenuItem
Caption = '&Variable'
ShortCut = 0
OnClick = Variable1Click
end
object Definition1: TMenuItem
Caption = '&Definition'
ShortCut = 0
OnClick = Definition1Click
end
end
object Symbols1: TMenuItem
Caption = 'S&ymbols'
ShortCut = 0
OnClick = Symbols1Click
end
object Form1: TMenuItem
Caption = 'For&ms'
ShortCut = 0
object FormBody1: TMenuItem
Caption = 'Form &Body'
ShortCut = 0
OnClick = FormBody1Click
end
object MailTo1: TMenuItem
Caption = 'Mail &To'
ShortCut = 0
OnClick = MailTo1Click
end
object MailSubject1: TMenuItem
Caption = 'Mail &Subject'
ShortCut = 0
OnClick = MailSubject1Click
end
object Input1: TMenuItem
Caption = '&Input'
ShortCut = 0
OnClick = Input1Click
end
end
object Font1: TMenuItem
Caption = 'Fo&nt'
ShortCut = 0
OnClick = Font1Click
end
object Base1: TMenuItem
Caption = 'Ba&se'
ShortCut = 0
OnClick = Base1Click
end
end
object Frame1: TMenuItem
Caption = 'F&rame'
GroupIndex = 3
ShortCut = 0
object NewFramePage1: TMenuItem
Caption = '&New Frame Page'
ShortCut = 0
OnClick = NewFramePage1Click
end
object FrameSet1: TMenuItem
Caption = 'Frame&Set'
ShortCut = 0
OnClick = FrameSet1Click
end
object Frame2: TMenuItem
Caption = '&Frame'
ShortCut = 0
OnClick = Frame2Click
end
object NoFrames1: TMenuItem
Caption = 'N&o Frames'
ShortCut = 0
OnClick = NoFrames1Click
end
end
object Browser1: TMenuItem
Caption = '&Browser'
GroupIndex = 4
ShortCut = 0
OnClick = Browser1Click
end
object View1: TMenuItem
Caption = '&View'
GroupIndex = 4
ShortCut = 0
object FormToolbar1: TMenuItem
Caption = 'Form Toolbar'
ShortCut = 0
OnClick = FormToolbar1Click
end
object UserToolbar1: TMenuItem
Caption = 'User Toolbar'
ShortCut = 0
OnClick = UserToolbar1Click
end
end
object Window1: TMenuItem
Caption = '&Window'
GroupIndex = 5
ShortCut = 0
object Cascade1: TMenuItem
Caption = '&Cascade'
ShortCut = 0
OnClick = Cascade1Click
end
object Tile1: TMenuItem
Caption = '&Tile'
ShortCut = 0
OnClick = Tile1Click
end
end
object Options1: TMenuItem
Caption = '&Options'
GroupIndex = 6
ShortCut = 0
OnClick = Options1Click
object DefineToolbar1: TMenuItem
Caption = '&Define Toolbar'
ShortCut = 0
object Edit2: TMenuItem
Caption = '&Edit'
ShortCut = 0
OnClick = Edit2Click
end
object Load1: TMenuItem
Caption = '&Load'
ShortCut = 0
OnClick = Load1Click
end
end
object Browser2: TMenuItem
Caption = '&Browser'
ShortCut = 0
OnClick = Browser2Click
end
object N1: TMenuItem
Caption = '-'
ShortCut = 0
end
object ExampleText1: TMenuItem
Caption = 'E&xample Text'
Checked = True
Enabled = False
ShortCut = 0
OnClick = ExampleText1Click
end
object CreateBackupFile1: TMenuItem
Caption = 'Cr&eate Backup File'
Checked = True
Enabled = False
ShortCut = 0
OnClick = CreateBackupFile1Click
end
object Wordwrap1: TMenuItem
Caption = '&Wordwrap'
Checked = True
Enabled = False
ShortCut = 0
OnClick = Wordwrap1Click
end
object N2: TMenuItem
Caption = '-'
ShortCut = 0
end
object DocumentFont1: TMenuItem
Caption = '&Font'
Enabled = False
ShortCut = 0
OnClick = DocumentFont1Click
end
object N3: TMenuItem
Caption = '-'
ShortCut = 0
end
object Register1: TMenuItem
Caption = '&Register'
ShortCut = 0
OnClick = Register1Click
end
end
object About1: TMenuItem
Caption = '&About'
GroupIndex = 6
ShortCut = 0
OnClick = About1Click
end
object Help1: TMenuItem
Caption = '&Help'
GroupIndex = 7
ShortCut = 0
OnClick = Help1Click
end
end
object SaveDialog1: TSaveDialog
FileEditStyle = fsEdit
Filter =
'Web Pages (*.HTML)|*.html|Web Pages (*.htm)|*.htm|Project Files ' +
'(*.pro)|*.pro|All Files (*.*)|*.*'
Options = [ofOverwritePrompt, ofHideReadOnly, ofPathMustExist]
Left = 8
Top = 216
end
object OpenDialog1: TOpenDialog
FileEditStyle = fsEdit
Filter =
'Web Pages (*.html)|*.html|Web Pages (*.htm)|*.htm|All Files (*.*' +
')|*.*'
Options = [ofHideReadOnly, ofPathMustExist, ofFileMustExist]
Left = 40
Top = 216
end
object PrinterSetupDialog1: TPrinterSetupDialog
Left = 40
Top = 312
end
object ReplaceDialog1: TReplaceDialog
Options = [frDown, frReplace]
OnFind = FindDialog1Find
OnReplace = ReplaceDialog1Replace
Left = 40
Top = 248
end
object FindDialog1: TFindDialog
OnFind = FindDialog1Find
Left = 8
Top = 248
end
object FontDialog1: TFontDialog
Font.Color = clWindowText
Font.Height = -17
Font.Name = 'System'
Font.Style = []
MinFontSize = 0
MaxFontSize = 0
Options = [fdEffects, fdForceFontExist]
Left = 8
Top = 280
end
object DdeClientConv1: TDdeClientConv
ConnectMode = ddeManual
Left = 8
Top = 312
end
end