main.dfm

来自「这是一套全面的网络组件」· DFM 代码 · 共 301 行

object MainForm: TMainForm
  Left = 298
  Top = 51
  BorderStyle = bsDialog
  Caption = 'Html Parser sample'
  ClientHeight = 329
  ClientWidth = 491
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object btnOpen: TButton
    Left = 12
    Top = 295
    Width = 75
    Height = 25
    Caption = 'Open File'
    TabOrder = 0
    OnClick = btnOpenClick
  end
  object PageControl: TPageControl
    Left = 10
    Top = 8
    Width = 469
    Height = 281
    ActivePage = tabLinks
    TabOrder = 1
    object tabLinks: TTabSheet
      Caption = 'Links'
      object Label1: TLabel
        Left = 10
        Top = 202
        Width = 22
        Height = 13
        Caption = 'URL'
      end
      object Label2: TLabel
        Left = 274
        Top = 202
        Width = 31
        Height = 13
        Caption = 'Target'
      end
      object Label3: TLabel
        Left = 364
        Top = 202
        Width = 28
        Height = 13
        Caption = 'Name'
      end
      object Label4: TLabel
        Left = 20
        Top = 12
        Width = 47
        Height = 13
        Caption = 'Link Tags'
      end
      object lbLinks: TListBox
        Left = 8
        Top = 32
        Width = 443
        Height = 157
        ItemHeight = 13
        TabOrder = 0
        OnClick = lbLinksClick
      end
      object edtUrlHref: TEdit
        Left = 10
        Top = 220
        Width = 261
        Height = 21
        ReadOnly = True
        TabOrder = 1
      end
      object edtUrlTarget: TEdit
        Left = 274
        Top = 220
        Width = 87
        Height = 21
        ReadOnly = True
        TabOrder = 2
      end
      object edtUrlName: TEdit
        Left = 364
        Top = 220
        Width = 87
        Height = 21
        ReadOnly = True
        TabOrder = 3
      end
    end
    object tabImages: TTabSheet
      Caption = 'Images'
      ImageIndex = 1
      object Label5: TLabel
        Left = 20
        Top = 12
        Width = 56
        Height = 13
        Caption = 'Image Tags'
      end
      object Label6: TLabel
        Left = 318
        Top = 150
        Width = 28
        Height = 13
        Caption = 'Width'
      end
      object Label7: TLabel
        Left = 318
        Top = 198
        Width = 31
        Height = 13
        Caption = 'Height'
      end
      object Label8: TLabel
        Left = 10
        Top = 150
        Width = 16
        Height = 13
        Caption = 'Src'
      end
      object Label9: TLabel
        Left = 10
        Top = 198
        Width = 12
        Height = 13
        Caption = 'Alt'
      end
      object lbImages: TListBox
        Left = 8
        Top = 32
        Width = 443
        Height = 105
        ItemHeight = 13
        TabOrder = 0
        OnClick = lbImagesClick
      end
      object edtImageSrc: TEdit
        Left = 10
        Top = 171
        Width = 297
        Height = 21
        ReadOnly = True
        TabOrder = 1
      end
      object edtImageWidth: TEdit
        Left = 319
        Top = 171
        Width = 133
        Height = 21
        ReadOnly = True
        TabOrder = 2
      end
      object edtImageAlt: TEdit
        Left = 10
        Top = 220
        Width = 297
        Height = 21
        ReadOnly = True
        TabOrder = 3
      end
      object edtImageHeight: TEdit
        Left = 319
        Top = 220
        Width = 133
        Height = 21
        ReadOnly = True
        TabOrder = 4
      end
    end
    object tabForms: TTabSheet
      Caption = 'Forms'
      ImageIndex = 2
      object Label10: TLabel
        Left = 20
        Top = 12
        Width = 50
        Height = 13
        Caption = 'Form Tags'
      end
      object Label11: TLabel
        Left = 10
        Top = 150
        Width = 30
        Height = 13
        Caption = 'Action'
      end
      object Label12: TLabel
        Left = 12
        Top = 198
        Width = 46
        Height = 13
        Caption = 'Enc Type'
      end
      object Label13: TLabel
        Left = 318
        Top = 150
        Width = 54
        Height = 13
        Caption = 'Form Name'
      end
      object Label14: TLabel
        Left = 318
        Top = 198
        Width = 36
        Height = 13
        Caption = 'Method'
      end
      object Label15: TLabel
        Left = 321
        Top = 12
        Width = 38
        Height = 13
        Caption = 'Controls'
      end
      object lbForms: TListBox
        Left = 8
        Top = 32
        Width = 301
        Height = 105
        ItemHeight = 13
        TabOrder = 0
        OnClick = lbFormsClick
      end
      object edtFormAction: TEdit
        Left = 10
        Top = 171
        Width = 297
        Height = 21
        ReadOnly = True
        TabOrder = 2
      end
      object edtFormEncType: TEdit
        Left = 10
        Top = 220
        Width = 297
        Height = 21
        ReadOnly = True
        TabOrder = 4
      end
      object edtFormName: TEdit
        Left = 319
        Top = 171
        Width = 133
        Height = 21
        ReadOnly = True
        TabOrder = 3
      end
      object edtFormMethod: TEdit
        Left = 319
        Top = 220
        Width = 133
        Height = 21
        ReadOnly = True
        TabOrder = 5
      end
      object lbFormControls: TListBox
        Left = 320
        Top = 32
        Width = 132
        Height = 105
        ItemHeight = 13
        TabOrder = 1
      end
    end
    object tabText: TTabSheet
      Caption = 'Text'
      ImageIndex = 3
      object lbText: TRichEdit
        Left = 8
        Top = 11
        Width = 443
        Height = 231
        PlainText = True
        ReadOnly = True
        ScrollBars = ssVertical
        TabOrder = 0
      end
    end
  end
  object OpenDialog: TOpenDialog
    DefaultExt = 'htm'
    Filter = 'Html Files (*.htm)|*.htm|All Files (*.*)|*.*'
    Options = [ofHideReadOnly, ofPathMustExist, ofFileMustExist, ofEnableSizing]
    Left = 118
    Top = 280
  end
  object clHtmlParser: TclHtmlParser
    ParseMethod = pmAll
    OnParseTag = clHtmlParserParseTag
    Left = 190
    Top = 278
  end
end