home *** CD-ROM | disk | FTP | other *** search
- object FrmBody: TFrmBody
- Left = 114
- Top = 151
- BorderStyle = bsDialog
- Caption = 'Body'
- ClientHeight = 328
- ClientWidth = 513
- Font.Color = clWindowText
- Font.Height = -13
- Font.Name = 'System'
- Font.Style = []
- PixelsPerInch = 96
- TextHeight = 16
- object lblBackground: TLabel
- Left = 8
- Top = 64
- Width = 84
- Height = 13
- Caption = '&Background color'
- FocusControl = cbBackground
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- end
- object lblText: TLabel
- Left = 8
- Top = 96
- Width = 47
- Height = 13
- Caption = '&Text color'
- FocusControl = cbText
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- end
- object lblLink: TLabel
- Left = 8
- Top = 128
- Width = 46
- Height = 13
- Caption = '&Link color'
- FocusControl = pnlLink
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- end
- object lblVisited: TLabel
- Left = 8
- Top = 160
- Width = 76
- Height = 13
- Caption = '&Visited link color'
- FocusControl = pnlVisited
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- end
- object lblActive: TLabel
- Left = 8
- Top = 192
- Width = 75
- Height = 13
- Caption = '&Active link color'
- FocusControl = cbActive
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- end
- object lblImage: TLabel
- Left = 8
- Top = 8
- Width = 58
- Height = 13
- Caption = 'Bac&kground'
- FocusControl = EditImage
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- end
- object lblLeftMargin: TLabel
- Left = 8
- Top = 224
- Width = 52
- Height = 13
- Caption = 'L&eft margin'
- FocusControl = seLeftMargin
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- end
- object lblTopMargin: TLabel
- Left = 8
- Top = 256
- Width = 53
- Height = 13
- Caption = 'T&op margin'
- FocusControl = seTopMargin
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- end
- object pnlPage: TPanel
- Left = 392
- Top = 63
- Width = 113
- Height = 153
- Hint = 'In a graphical browser, text and links will be shown alike'
- BevelInner = bvLowered
- BevelOuter = bvNone
- ParentShowHint = False
- ShowHint = True
- TabOrder = 23
- object lblTextDisplay: TLabel
- Left = 12
- Top = 34
- Width = 53
- Height = 15
- Caption = 'Text color'
- Color = clBtnFace
- Font.Color = clBlack
- Font.Height = -13
- Font.Name = 'Times New Roman'
- Font.Style = []
- ParentColor = False
- ParentFont = False
- Transparent = True
- end
- object lblLinkDisplay: TLabel
- Left = 12
- Top = 66
- Width = 53
- Height = 15
- Caption = 'Link color'
- Font.Color = clBlue
- Font.Height = -13
- Font.Name = 'Times New Roman'
- Font.Style = [fsUnderline]
- ParentFont = False
- Transparent = True
- end
- object lblVisitedDisplay: TLabel
- Left = 12
- Top = 98
- Width = 89
- Height = 15
- Caption = 'Visited link color'
- Font.Color = clPurple
- Font.Height = -13
- Font.Name = 'Times New Roman'
- Font.Style = [fsUnderline]
- ParentFont = False
- Transparent = True
- end
- object lblActiveDisplay: TLabel
- Left = 12
- Top = 130
- Width = 88
- Height = 15
- Caption = 'Active link color'
- Font.Color = clRed
- Font.Height = -13
- Font.Name = 'Times New Roman'
- Font.Style = [fsUnderline]
- ParentFont = False
- Transparent = True
- end
- end
- object cbBackground: TComboBox
- Left = 104
- Top = 64
- Width = 145
- Height = 21
- Hint = 'The document'#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 = 3
- Text = 'Silver'
- OnChange = cbBackgroundChange
- end
- object cbText: TComboBox
- Left = 104
- Top = 96
- Width = 145
- Height = 21
- Hint = 'The document'#39's text 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 = 5
- Text = 'Black'
- OnChange = cbTextChange
- end
- object cbLink: TComboBox
- Left = 104
- Top = 128
- Width = 145
- Height = 21
- Hint = 'The document'#39's color for normal links'
- 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 = 7
- Text = 'Blue'
- OnChange = cbLinkChange
- end
- object cbVisited: TComboBox
- Left = 104
- Top = 160
- Width = 145
- Height = 21
- Hint = 'The document'#39's color for links leading to pages already seen'
- 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 = 9
- Text = 'Purple'
- OnChange = cbVisitedChange
- end
- object cbActive: TComboBox
- Left = 104
- Top = 192
- Width = 145
- Height = 21
- Hint = 'The color links turn to when clicked'
- 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 = 11
- Text = 'Red'
- OnChange = cbActiveChange
- end
- object btnURL: TBitBtn
- Left = 416
- Top = 7
- Width = 89
- Height = 22
- Hint = 'URL Assistant'
- Caption = '&URL'
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- ParentShowHint = False
- ShowHint = True
- TabOrder = 1
- OnClick = btnURLClick
- Glyph.Data = {
- 76010000424D7601000000000000760000002800000020000000100000000100
- 0400000000000001000000000000000000000000000000000000000000000000
- 80000080000000808000800000008000800080800000C0C0C000808080000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777770000000
- 000077777FFFFFFFFFFF7774408777777770777788888888888F7744448BFFFB
- FF707788F78F7FFFFF8F7440008FCCCCCB7078F7778F8888878F6C66368BFFFB
- FF7078F7778F7FFFFF8F6668028FCCCCCB708F77778F8888878F6666388BFFFB
- FF708F77778F7FFFFF8F6866888FCCCCCB708F77778F8888878F6766888BFFFB
- FF708F77778F77FF7F8F8E7E788FFCCF00008F77778F7887888F8777788BFFFB
- 7F878F77778F77778F877877778FFBFF787778F7778FFFFF887778F777888888
- 807778F7778888888877777FF77778380777778FF777777F877777777777E788
- 777777788FFFFF88777777777888887777777777788888777777}
- NumGlyphs = 2
- end
- object EditImage: TEdit
- Left = 104
- Top = 8
- Width = 305
- Height = 21
- Hint = 'The URL leading to the document'#39's background picture'
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- ParentShowHint = False
- ShowHint = True
- TabOrder = 0
- end
- object pnlBackground: TPanel
- Left = 256
- Top = 63
- Width = 33
- Height = 23
- BevelInner = bvRaised
- BevelOuter = bvLowered
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- TabOrder = 18
- end
- object pnlText: TPanel
- Left = 256
- Top = 95
- Width = 33
- Height = 23
- BevelInner = bvRaised
- BevelOuter = bvLowered
- Color = clBlack
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- TabOrder = 19
- end
- object pnlLink: TPanel
- Left = 256
- Top = 127
- Width = 33
- Height = 23
- BevelInner = bvRaised
- BevelOuter = bvLowered
- Color = clBlue
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- TabOrder = 20
- end
- object pnlVisited: TPanel
- Left = 256
- Top = 159
- Width = 33
- Height = 23
- BevelInner = bvRaised
- BevelOuter = bvLowered
- Color = clPurple
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- TabOrder = 21
- end
- object pnlActive: TPanel
- Left = 256
- Top = 191
- Width = 33
- Height = 23
- BevelInner = bvRaised
- BevelOuter = bvLowered
- Color = clRed
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- TabOrder = 22
- end
- object cbWatermark: TCheckBox
- Left = 104
- Top = 32
- Width = 97
- Height = 17
- Hint = 'Prevent scrolling ?'
- Caption = ' &Watermark style'
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- ParentShowHint = False
- ShowHint = True
- TabOrder = 2
- end
- object btnColor1: TBitBtn
- Left = 296
- Top = 63
- Width = 89
- Height = 23
- 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 = 4
- OnClick = btnColor1Click
- Glyph.Data = {
- 76010000424D7601000000000000760000002800000020000000100000000100
- 0400000000000001000000000000000000000000000000000000000000000000
- 80000080000000808000800000008000800080800000C0C0C000808080000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777703333300
- 7777777788888888777777733B7B7B7B007777788777777788777737B7B74447
- B707778777778FF77787737B117B44447B707877FF77888F777833B99917B744
- B7B0887888F7778877783B7B997B7B7B7B70877788777777777837B7B7B7B000
- 073087777777788887883B222B7B70F40707877FF77778F8878737AA27B7B000
- 40778788F777788888773BAA7B7B7B737407878877777778788737B7B555B730
- 778087777FFF778877883F7BFFF57B0777008777888F7787778833F7BFF7B307
- 7700887778877887778873FF7B7B70777770787F7777787777787733FFF30777
- 77777788FFF88777777777733333777777777778888877777777}
- NumGlyphs = 2
- end
- object btnColor2: TBitBtn
- Left = 296
- Top = 95
- Width = 89
- Height = 23
- 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 = 6
- OnClick = btnColor2Click
- Glyph.Data = {
- 76010000424D7601000000000000760000002800000020000000100000000100
- 0400000000000001000000000000000000000000000000000000000000000000
- 80000080000000808000800000008000800080800000C0C0C000808080000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777703333300
- 7777777788888888777777733B7B7B7B007777788777777788777737B7B74447
- B707778777778FF77787737B117B44447B707877FF77888F777833B99917B744
- B7B0887888F7778877783B7B997B7B7B7B70877788777777777837B7B7B7B000
- 073087777777788887883B222B7B70F40707877FF77778F8878737AA27B7B000
- 40778788F777788888773BAA7B7B7B737407878877777778788737B7B555B730
- 778087777FFF778877883F7BFFF57B0777008777888F7787778833F7BFF7B307
- 7700887778877887778873FF7B7B70777770787F7777787777787733FFF30777
- 77777788FFF88777777777733333777777777778888877777777}
- NumGlyphs = 2
- end
- object btnColor3: TBitBtn
- Left = 296
- Top = 127
- Width = 89
- Height = 23
- 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 = 8
- OnClick = btnColor3Click
- Glyph.Data = {
- 76010000424D7601000000000000760000002800000020000000100000000100
- 0400000000000001000000000000000000000000000000000000000000000000
- 80000080000000808000800000008000800080800000C0C0C000808080000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777703333300
- 7777777788888888777777733B7B7B7B007777788777777788777737B7B74447
- B707778777778FF77787737B117B44447B707877FF77888F777833B99917B744
- B7B0887888F7778877783B7B997B7B7B7B70877788777777777837B7B7B7B000
- 073087777777788887883B222B7B70F40707877FF77778F8878737AA27B7B000
- 40778788F777788888773BAA7B7B7B737407878877777778788737B7B555B730
- 778087777FFF778877883F7BFFF57B0777008777888F7787778833F7BFF7B307
- 7700887778877887778873FF7B7B70777770787F7777787777787733FFF30777
- 77777788FFF88777777777733333777777777778888877777777}
- NumGlyphs = 2
- end
- object btnColor4: TBitBtn
- Left = 296
- Top = 159
- Width = 89
- Height = 23
- 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 = 10
- OnClick = btnColor4Click
- Glyph.Data = {
- 76010000424D7601000000000000760000002800000020000000100000000100
- 0400000000000001000000000000000000000000000000000000000000000000
- 80000080000000808000800000008000800080800000C0C0C000808080000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777703333300
- 7777777788888888777777733B7B7B7B007777788777777788777737B7B74447
- B707778777778FF77787737B117B44447B707877FF77888F777833B99917B744
- B7B0887888F7778877783B7B997B7B7B7B70877788777777777837B7B7B7B000
- 073087777777788887883B222B7B70F40707877FF77778F8878737AA27B7B000
- 40778788F777788888773BAA7B7B7B737407878877777778788737B7B555B730
- 778087777FFF778877883F7BFFF57B0777008777888F7787778833F7BFF7B307
- 7700887778877887778873FF7B7B70777770787F7777787777787733FFF30777
- 77777788FFF88777777777733333777777777778888877777777}
- NumGlyphs = 2
- end
- object btnColor5: TBitBtn
- Left = 296
- Top = 191
- Width = 89
- Height = 23
- 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 = 12
- OnClick = btnColor5Click
- Glyph.Data = {
- 76010000424D7601000000000000760000002800000020000000100000000100
- 0400000000000001000000000000000000000000000000000000000000000000
- 80000080000000808000800000008000800080800000C0C0C000808080000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777703333300
- 7777777788888888777777733B7B7B7B007777788777777788777737B7B74447
- B707778777778FF77787737B117B44447B707877FF77888F777833B99917B744
- B7B0887888F7778877783B7B997B7B7B7B70877788777777777837B7B7B7B000
- 073087777777788887883B222B7B70F40707877FF77778F8878737AA27B7B000
- 40778788F777788888773BAA7B7B7B737407878877777778788737B7B555B730
- 778087777FFF778877883F7BFFF57B0777008777888F7787778833F7BFF7B307
- 7700887778877887778873FF7B7B70777770787F7777787777787733FFF30777
- 77777788FFF88777777777733333777777777778888877777777}
- NumGlyphs = 2
- end
- object btnOK: TButton
- Left = 320
- Top = 296
- 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 = 16
- end
- object btnCancel: TButton
- Left = 416
- Top = 296
- Width = 89
- Height = 25
- Caption = 'Cancel'
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ModalResult = 2
- ParentFont = False
- TabOrder = 17
- end
- object gbJavaScript: TGroupBox
- Left = 208
- Top = 224
- Width = 297
- Height = 65
- Caption = ' &JavaScript '
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- TabOrder = 15
- object lblOnUnload: TLabel
- Left = 152
- Top = 17
- Width = 48
- Height = 13
- Caption = 'On&Unload'
- FocusControl = EditOnUnload
- end
- object lblOnLoad: TLabel
- Left = 8
- Top = 17
- Width = 38
- Height = 13
- Caption = '&OnLoad'
- FocusControl = EditOnLoad
- end
- object EditOnUnload: TEdit
- Left = 152
- Top = 33
- Width = 137
- Height = 21
- Hint =
- 'enter the method that shall be called when the OnUnload event is' +
- ' triggered'
- TabOrder = 1
- end
- object EditOnLoad: TEdit
- Left = 8
- Top = 33
- Width = 137
- Height = 21
- Hint =
- 'enter the method that shall be called when the OnLoad event is t' +
- 'riggered'
- TabOrder = 0
- end
- end
- object seLeftMargin: TSpinEdit
- Left = 104
- Top = 224
- Width = 65
- Height = 22
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- MaxValue = 10000
- MinValue = 0
- ParentFont = False
- TabOrder = 13
- Value = 0
- end
- object seTopMargin: TSpinEdit
- Left = 104
- Top = 256
- Width = 65
- Height = 22
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- MaxValue = 10000
- MinValue = 0
- ParentFont = False
- TabOrder = 14
- Value = 0
- end
- object DlgColor: TColorDialog
- Ctl3D = True
- Left = 472
- Top = 224
- end
- end
-