Datatid 2000 #2/Datatid-2000-02.iso/internet/dbhtml/_setup.1/HTML32.EXE/0/RCDATA/THTMLATTRIBUTESDLG/THTMLATTRIBUTESDLG.txt

Text File | 1998-12-13 | 50.4 KB | 1,934 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 = 2
    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
          Hint = 'Graphical Field - Right Click to display Popup Menu'
          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
            Hint = 'Graphical Field - Right Click to display Popup Menu'
            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 Label30: TLabel
          Left = 248
          Top = 48
          Width = 104
          Height = 13
          Caption = 'Record Template File:'
        end
        object BodyFormatRG: TRadioGroup
          Left = 8
          Top = 18
          Width = 225
          Height = 68
          Caption = 'Body Format:'
          Items.Strings = (
            'Plain'
            'Tabular'
            'From Record Template')
          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
        object RecTmlEd: TEdit
          Left = 248
          Top = 64
          Width = 265
          Height = 21
          TabOrder = 4
        end
        object Button3: TButton
          Left = 438
          Top = 35
          Width = 75
          Height = 25
          Hint = 'Select Record Template File'
          Caption = 'Select'
          TabOrder = 5
          OnClick = Button3Click
        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
          Hint = 'Graphical Field - Right Click to display Popup Menu'
          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'
        OnClick = EndBlink1Click
      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