lazarus-ccr/components/jvcllaz/examples/JvHTMLParser/JvHTMLParserMainFormU.lfm

object JvHTMLParserMainForm: TJvHTMLParserMainForm
  Left = 365
  Height = 530
  Top = 143
  Width = 684
  Caption = 'JvHtmlParser  DEMO'
  ClientHeight = 530
  ClientWidth = 684
  Color = clBtnFace
  Constraints.MinHeight = 200
  Constraints.MinWidth = 300
  DefaultMonitor = dmDesktop
  Font.Color = clWindowText
  OnCreate = FormCreate
  Position = poScreenCenter
  LCLVersion = '2.1.0.0'
  Scaled = False
  object PageControl1: TPageControl
    Left = 0
    Height = 507
    Top = 0
    Width = 684
    ActivePage = TabSheet1
    Align = alClient
    ParentShowHint = False
    ShowHint = True
    TabIndex = 0
    TabOrder = 0
    object TabSheet1: TTabSheet
      Hint = 'Table Demo'
      Caption = 'Table'
      ClientHeight = 479
      ClientWidth = 676
      object JvSplitter1: TSplitter
        Cursor = crVSplit
        Left = 0
        Height = 4
        Top = 189
        Width = 676
        Align = alTop
        ResizeAnchor = akTop
      end
      object TreeView1: TTreeView
        Left = 0
        Height = 189
        Top = 0
        Width = 676
        Align = alTop
        Indent = 19
        ReadOnly = True
        ScrollBars = ssAutoBoth
        TabOrder = 0
        Options = [tvoAutoItemHeight, tvoHideSelection, tvoKeepCollapsedNodes, tvoReadOnly, tvoShowButtons, tvoShowLines, tvoShowRoot, tvoToolTips, tvoThemedDraw]
      end
      object DisplayMemo1: TMemo
        Left = 0
        Height = 252
        Top = 193
        Width = 676
        Align = alClient
        ReadOnly = True
        ScrollBars = ssAutoBoth
        TabOrder = 1
        WordWrap = False
      end
      object Panel1: TPanel
        Left = 0
        Height = 34
        Top = 445
        Width = 676
        Align = alBottom
        AutoSize = True
        BevelOuter = bvNone
        ClientHeight = 34
        ClientWidth = 676
        TabOrder = 2
        object btnProcessTable: TButton
          AnchorSideTop.Control = Panel1
          AnchorSideTop.Side = asrCenter
          AnchorSideRight.Control = Panel1
          AnchorSideRight.Side = asrBottom
          Left = 606
          Height = 25
          Top = 5
          Width = 66
          Anchors = [akTop, akRight]
          AutoSize = True
          BorderSpacing.Around = 4
          Caption = 'Execute'
          OnClick = btnProcessTableClick
          TabOrder = 0
        end
        object btnOpen: TButton
          AnchorSideLeft.Control = Panel1
          AnchorSideTop.Control = Panel1
          AnchorSideTop.Side = asrCenter
          Left = 4
          Height = 25
          Top = 5
          Width = 64
          AutoSize = True
          BorderSpacing.Around = 4
          Caption = '&Open...'
          OnClick = btnOpenClick
          TabOrder = 1
        end
      end
    end
    object TabSheet2: TTabSheet
      Hint = 'HTML to text converter'
      Caption = 'HTML2Text'
      ClientHeight = 479
      ClientWidth = 676
      ImageIndex = 1
      object DisplayMemo2: TMemo
        Left = 0
        Height = 445
        Top = 0
        Width = 676
        Align = alClient
        ReadOnly = True
        ScrollBars = ssAutoBoth
        TabOrder = 0
      end
      object Panel2: TPanel
        Left = 0
        Height = 34
        Top = 445
        Width = 676
        Align = alBottom
        AutoSize = True
        BevelOuter = bvNone
        ClientHeight = 34
        ClientWidth = 676
        TabOrder = 1
        object btnProcessHTML2Text: TButton
          AnchorSideTop.Control = Panel2
          AnchorSideTop.Side = asrCenter
          AnchorSideRight.Control = Panel2
          AnchorSideRight.Side = asrBottom
          Left = 606
          Height = 25
          Top = 5
          Width = 66
          Anchors = [akTop, akRight]
          AutoSize = True
          BorderSpacing.Around = 4
          Caption = 'Execute'
          OnClick = btnProcessHTML2TextClick
          TabOrder = 0
        end
      end
    end
    object TabSheet3: TTabSheet
      Hint = 'Simple URL detector'
      Caption = 'URL detect'
      ClientHeight = 479
      ClientWidth = 676
      ImageIndex = 2
      object DisplayMemo3: TMemo
        Left = 0
        Height = 445
        Top = 0
        Width = 676
        Align = alClient
        ReadOnly = True
        ScrollBars = ssAutoBoth
        TabOrder = 0
      end
      object Panel3: TPanel
        Left = 0
        Height = 34
        Top = 445
        Width = 676
        Align = alBottom
        AutoSize = True
        BevelOuter = bvNone
        ClientHeight = 34
        ClientWidth = 676
        TabOrder = 1
        object btnProcessURL: TButton
          AnchorSideTop.Control = Panel3
          AnchorSideTop.Side = asrCenter
          AnchorSideRight.Control = Panel3
          AnchorSideRight.Side = asrBottom
          Left = 606
          Height = 25
          Top = 5
          Width = 66
          Anchors = [akTop, akRight]
          AutoSize = True
          BorderSpacing.Around = 4
          Caption = 'Execute'
          OnClick = btnProcessURLClick
          TabOrder = 0
        end
      end
    end
    object TabSheet4: TTabSheet
      Hint = 'Tags detector'
      Caption = 'Tags'
      ClientHeight = 479
      ClientWidth = 676
      ImageIndex = 3
      object DisplayMemo4: TMemo
        Left = 0
        Height = 445
        Top = 0
        Width = 676
        Align = alClient
        ReadOnly = True
        ScrollBars = ssAutoBoth
        TabOrder = 0
      end
      object Panel4: TPanel
        Left = 0
        Height = 34
        Top = 445
        Width = 676
        Align = alBottom
        AutoSize = True
        BevelOuter = bvNone
        ClientHeight = 34
        ClientWidth = 676
        TabOrder = 1
        object btnProcessTags: TButton
          AnchorSideTop.Control = Panel4
          AnchorSideTop.Side = asrCenter
          AnchorSideRight.Control = Panel4
          AnchorSideRight.Side = asrBottom
          Left = 606
          Height = 25
          Top = 5
          Width = 66
          Anchors = [akTop, akRight]
          AutoSize = True
          BorderSpacing.Around = 4
          Caption = 'Execute'
          OnClick = btnProcessTagsClick
          TabOrder = 0
        end
      end
    end
  end
  object StatusBar1: TStatusBar
    Left = 0
    Height = 23
    Top = 507
    Width = 684
    Panels = <>
  end
  object JvHtmlParser1: TJvHTMLParser
    FileName = 'data\sample.htm'
    left = 224
    top = 72
  end
  object OpenDialog1: TOpenDialog
    Filter = 'HTML files|*.htm;*.html;*.htt|All files|*.*'
    InitialDir = '.'
    left = 336
    top = 72
  end
end