Chip: Shareware for Win 95/Chip-Shareware-Win95.bin/komunik/webedit/data.z/WebEdit.exe/0/RCDATA/TFRMBODY/TFRMBODY.txt

Text File | 1996-10-14 | 14KB | 573 lines

object frmBody: TfrmBody
  Left = 295
  Top = 436
  HelpContext = 11
  ActiveControl = OKBtn
  BorderStyle = bsDialog
  Caption = 'Body'
  ClientHeight = 318
  ClientWidth = 589
  Font.Color = clBlack
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  KeyPreview = True
  Position = poScreenCenter
  ShowHint = True
  OnCreate = FormCreate
  OnDeactivate = FormDeactivate
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Bevel1: TBevel
    Left = 4
    Top = 4
    Width = 581
    Height = 277
    Shape = bsFrame
    IsControl = True
  end
  object OKBtn: TBitBtn
    Left = 340
    Top = 288
    Width = 77
    Height = 25
    Caption = 'OK'
    Default = True
    ModalResult = 1
    TabOrder = 2
    NumGlyphs = 2
    Spacing = -1
    IsControl = True
  end
  object CancelBtn: TBitBtn
    Left = 424
    Top = 288
    Width = 77
    Height = 25
    Cancel = True
    Caption = 'Cancel'
    ModalResult = 2
    TabOrder = 3
    NumGlyphs = 2
    Spacing = -1
    IsControl = True
  end
  object HelpBtn: TBitBtn
    Left = 508
    Top = 288
    Width = 77
    Height = 25
    Caption = '&Help'
    TabOrder = 4
    OnClick = HelpBtnClick
    NumGlyphs = 2
    Spacing = -1
    IsControl = True
  end
  object pnlColor: TPanel
    Left = 16
    Top = 96
    Width = 557
    Height = 177
    BevelOuter = bvLowered
    TabOrder = 1
    object shpBGColor: TShape
      Left = 216
      Top = 12
      Width = 25
      Height = 25
    end
    object shpText: TShape
      Left = 216
      Top = 44
      Width = 25
      Height = 25
    end
    object shpLink: TShape
      Left = 216
      Top = 76
      Width = 25
      Height = 25
    end
    object shpVLink: TShape
      Left = 216
      Top = 108
      Width = 25
      Height = 25
    end
    object shpALink: TShape
      Left = 216
      Top = 140
      Width = 25
      Height = 25
    end
    object lblBGColor: TLabel
      Left = 7
      Top = 20
      Width = 106
      Height = 13
      Caption = 'Background &Color'
      FocusControl = txtBGColor
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object lblText: TLabel
      Left = 7
      Top = 52
      Width = 106
      Height = 13
      Caption = '&Text Color'
      FocusControl = txtText
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object lblLink: TLabel
      Left = 7
      Top = 84
      Width = 106
      Height = 13
      Caption = '&Link Color'
      FocusControl = txtLink
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object lblVLink: TLabel
      Left = 7
      Top = 116
      Width = 106
      Height = 13
      Caption = '&Visited Link Color'
      FocusControl = txtVLink
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object lblALink: TLabel
      Left = 7
      Top = 148
      Width = 106
      Height = 13
      Caption = '&Active Link Color'
      FocusControl = txtALink
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object miPreview: TPMultiImage
      Left = 96
      Top = 168
      Width = 211
      Height = 155
      AutoSize = True
      Color = clBtnFace
      ImageName = 'file not found'
      ImageDither = True
      ImageReadRes = lAutoMatic
      ImageWriteRes = sAutoMatic
      TifSaveCompress = sNONE
      JPegSaveQuality = 25
      JPegSaveSmooth = 0
      TextLeft = 0
      TextTop = 0
      TextRotate = 0
      TabOrder = 10
      TabStop = False
      Visible = False
    end
    object pnlPreview: TPanel
      Left = 336
      Top = 10
      Width = 213
      Height = 157
      BevelOuter = bvLowered
      TabOrder = 11
      object shpPreview: TShape
        Left = 1
        Top = 1
        Width = 210
        Height = 155
        Brush.Color = clSilver
      end
      object epiPreview: TEPImage
        Left = 1
        Top = 1
        Width = 211
        Height = 155
        Align = alClient
        ParentColor = False
        Style = episTile
      end
      object lblTextPreview: TLabel
        Left = 14
        Top = 39
        Width = 179
        Height = 15
        Caption = 'Text Color'
        Font.Color = clBlack
        Font.Height = -13
        Font.Name = 'Times New Roman'
        Font.Style = []
        ParentFont = False
        Transparent = True
      end
      object lblLinkPreview: TLabel
        Left = 14
        Top = 70
        Width = 187
        Height = 15
        Caption = 'Link Color'
        Font.Color = clBlack
        Font.Height = -13
        Font.Name = 'Times New Roman'
        Font.Style = [fsUnderline]
        ParentFont = False
        Transparent = True
      end
      object lblVLinkPreview: TLabel
        Left = 14
        Top = 101
        Width = 187
        Height = 15
        Caption = 'Visited Link Color'
        Font.Color = clBlack
        Font.Height = -13
        Font.Name = 'Times New Roman'
        Font.Style = [fsUnderline]
        ParentFont = False
        Transparent = True
      end
      object lblALinkPreview: TLabel
        Left = 15
        Top = 132
        Width = 178
        Height = 15
        Caption = 'Active Link Color'
        Font.Color = clBlack
        Font.Height = -13
        Font.Name = 'Times New Roman'
        Font.Style = [fsUnderline]
        ParentFont = False
        Transparent = True
      end
    end
    object bbtnSetALinkColor: TBitBtn
      Left = 248
      Top = 140
      Width = 77
      Height = 27
      Hint = 'Set the color that links turn when clicked'
      Caption = 'Color'
      TabOrder = 9
      OnClick = bbtnSetColorClick
      Glyph.Data = {
        DE000000424DDE0000000000000076000000280000000F0000000D0000000100
        0400000000006800000000000000000000000000000000000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00444444444444
        444F4CCCCCC4BBBBBB4F4CCCCCC4BBBBBB4F4CCCCCC4BBBBBB4F4CCCCCC4BBBB
        BB4F4CCCCCC4BBBBBB4F444444444444444F49999994AAAAAA4F49999994AAAA
        AA4F49999994AAAAAA4F49999994AAAAAA4F49999994AAAAAA4F444444444444
        444F}
    end
    object bbtnSetVLinkColor: TBitBtn
      Left = 248
      Top = 108
      Width = 77
      Height = 27
      Hint = 'Set the color of links that have been seen'
      Caption = 'Color'
      TabOrder = 7
      OnClick = bbtnSetColorClick
      Glyph.Data = {
        DE000000424DDE0000000000000076000000280000000F0000000D0000000100
        0400000000006800000000000000000000000000000000000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00444444444444
        444F4CCCCCC4BBBBBB4F4CCCCCC4BBBBBB4F4CCCCCC4BBBBBB4F4CCCCCC4BBBB
        BB4F4CCCCCC4BBBBBB4F444444444444444F49999994AAAAAA4F49999994AAAA
        AA4F49999994AAAAAA4F49999994AAAAAA4F49999994AAAAAA4F444444444444
        444F}
    end
    object bbtnSetLinkColor: TBitBtn
      Left = 248
      Top = 76
      Width = 77
      Height = 27
      Hint = 'Set the color of normal links'
      Caption = 'Color'
      TabOrder = 5
      OnClick = bbtnSetColorClick
      Glyph.Data = {
        DE000000424DDE0000000000000076000000280000000F0000000D0000000100
        0400000000006800000000000000000000000000000000000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00444444444444
        444F4CCCCCC4BBBBBB4F4CCCCCC4BBBBBB4F4CCCCCC4BBBBBB4F4CCCCCC4BBBB
        BB4F4CCCCCC4BBBBBB4F444444444444444F49999994AAAAAA4F49999994AAAA
        AA4F49999994AAAAAA4F49999994AAAAAA4F49999994AAAAAA4F444444444444
        444F}
    end
    object bbtnSetTextColor: TBitBtn
      Left = 248
      Top = 44
      Width = 77
      Height = 27
      Hint = 'Set the color of the document'#39's text'
      Caption = 'Color'
      TabOrder = 3
      OnClick = bbtnSetColorClick
      Glyph.Data = {
        DE000000424DDE0000000000000076000000280000000F0000000D0000000100
        0400000000006800000000000000000000000000000000000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00444444444444
        444F4CCCCCC4BBBBBB4F4CCCCCC4BBBBBB4F4CCCCCC4BBBBBB4F4CCCCCC4BBBB
        BB4F4CCCCCC4BBBBBB4F444444444444444F49999994AAAAAA4F49999994AAAA
        AA4F49999994AAAAAA4F49999994AAAAAA4F49999994AAAAAA4F444444444444
        444F}
    end
    object bbtnSetBGColor: TBitBtn
      Left = 248
      Top = 12
      Width = 77
      Height = 27
      Hint = 'Set the document'#39's background color'
      Caption = 'Color'
      TabOrder = 1
      OnClick = bbtnSetColorClick
      Glyph.Data = {
        DE000000424DDE0000000000000076000000280000000F0000000D0000000100
        0400000000006800000000000000000000000000000000000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00444444444444
        444F4CCCCCC4BBBBBB4F4CCCCCC4BBBBBB4F4CCCCCC4BBBBBB4F4CCCCCC4BBBB
        BB4F4CCCCCC4BBBBBB4F444444444444444F49999994AAAAAA4F49999994AAAA
        AA4F49999994AAAAAA4F49999994AAAAAA4F49999994AAAAAA4F444444444444
        444F}
    end
    object txtALink: TComboBox
      Left = 128
      Top = 142
      Width = 81
      Height = 21
      Hint = 'Color can be in either text or hex format'
      ItemHeight = 13
      Items.Strings = (
        'Aqua'
        'Black'
        'Blue'
        'Fuchsia'
        'Gray'
        'Green'
        'Lime'
        'Maroon'
        'Navy'
        'Olive'
        'Purple'
        'Red'
        'Silver'
        'Teal'
        'White'
        'Yellow')
      TabOrder = 8
      OnChange = txtBGColorChange
    end
    object txtVLink: TComboBox
      Left = 128
      Top = 110
      Width = 81
      Height = 21
      Hint = 'Color can be in either text or hex format'
      ItemHeight = 13
      Items.Strings = (
        'Aqua'
        'Black'
        'Blue'
        'Fuchsia'
        'Gray'
        'Green'
        'Lime'
        'Maroon'
        'Navy'
        'Olive'
        'Purple'
        'Red'
        'Silver'
        'Teal'
        'White'
        'Yellow')
      TabOrder = 6
      OnChange = txtBGColorChange
    end
    object txtLink: TComboBox
      Left = 128
      Top = 78
      Width = 81
      Height = 21
      Hint = 'Color can be in either text or hex format'
      ItemHeight = 13
      Items.Strings = (
        'Aqua'
        'Black'
        'Blue'
        'Fuchsia'
        'Gray'
        'Green'
        'Lime'
        'Maroon'
        'Navy'
        'Olive'
        'Purple'
        'Red'
        'Silver'
        'Teal'
        'White'
        'Yellow')
      TabOrder = 4
      OnChange = txtBGColorChange
    end
    object txtText: TComboBox
      Left = 128
      Top = 46
      Width = 81
      Height = 21
      Hint = 'Color can be in either text or hex format'
      ItemHeight = 13
      Items.Strings = (
        'Aqua'
        'Black'
        'Blue'
        'Fuchsia'
        'Gray'
        'Green'
        'Lime'
        'Maroon'
        'Navy'
        'Olive'
        'Purple'
        'Red'
        'Silver'
        'Teal'
        'White'
        'Yellow')
      TabOrder = 2
      OnChange = txtBGColorChange
    end
    object txtBGColor: TComboBox
      Left = 128
      Top = 14
      Width = 81
      Height = 21
      Hint = 'Color can be in either text or hex format'
      ItemHeight = 13
      Items.Strings = (
        'Aqua'
        'Black'
        'Blue'
        'Fuchsia'
        'Gray'
        'Green'
        'Lime'
        'Maroon'
        'Navy'
        'Olive'
        'Purple'
        'Red'
        'Silver'
        'Teal'
        'White'
        'Yellow')
      TabOrder = 0
      OnChange = txtBGColorChange
    end
  end
  object pnlBackground: TPanel
    Left = 16
    Top = 16
    Width = 557
    Height = 69
    BevelOuter = bvLowered
    TabOrder = 0
    object lblBackground: TLabel
      Left = 7
      Top = 20
      Width = 66
      Height = 13
      Caption = '&Background'
      FocusControl = cmbURL
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object cmbURL: TComboBox
      Left = 72
      Top = 16
      Width = 289
      Height = 21
      Hint = 'The URL of an image, normally a .GIF file'
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ItemHeight = 13
      ParentFont = False
      Sorted = True
      TabOrder = 0
      OnChange = cmbURLChange
      OnKeyPress = cmbURLKeyPress
    end
    object bbtnURL: TBitBtn
      Left = 368
      Top = 12
      Width = 77
      Height = 27
      Hint = 'Open the URL builder'
      Caption = '&URL'
      TabOrder = 1
      OnClick = bbtnURLClick
      Glyph.Data = {
        42010000424D4201000000000000760000002800000012000000110000000100
        040000000000CC00000000000000000000000000000000000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
        7777070000007777777777777770000000000000000000007700070000000FFF
        FFFFFFF07000770000000FFFFFFF00008007770000000FFFFFF0877808777700
        00000FFFFF0877E88077770000000FFFFF0777787077770000000FFFFF07E778
        7077770000000FFFFF08EE788077770000000FFFFFF087780777770000000FFF
        FFFF00007777770000000FFFFFFFFFF07777770000000FFFFFFF000077777700
        00000FFFFFFF07077777770000000FFFFFFF0077777777000000000000000777
        777777000000}
    end
    object chkWatermark: TCheckBox
      Left = 72
      Top = 44
      Width = 289
      Height = 17
      Hint = 'Causes the background to not scroll'
      Caption = '&Watermark'
      TabOrder = 2
    end
  end
  object dlgColor: TColorDialog
    Ctl3D = True
    Left = 16
    Top = 288
  end
end