u_main.dfm

httpanalyzer, source code for delphi

object frm_main: Tfrm_main
  Left = 72
  Top = 213
  Width = 1000
  Height = 515
  Caption = 'HttpAnalyzer'
  Color = clBtnFace
  Font.Charset = ANSI_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Courier New'
  Font.Style = []
  Menu = MainMenu1
  OldCreateOrder = False
  Position = poScreenCenter
  ShowHint = True
  PixelsPerInch = 96
  TextHeight = 14
  object PageControl1: TPageControl
    Left = 0
    Top = 1
    Width = 992
    Height = 441
    ActivePage = TabSheet5
    Align = alClient
    TabOrder = 0
    object TabSheet1: TTabSheet
      Caption = 'Flow Control'
      object Splitter1: TSplitter
        Left = 465
        Top = 0
        Height = 412
      end
      object panel_tab1left: TPanel
        Left = 0
        Top = 0
        Width = 465
        Height = 412
        Align = alLeft
        BevelOuter = bvNone
        TabOrder = 0
        object memo_p1_flow: TMemo
          Left = 0
          Top = 0
          Width = 465
          Height = 412
          Align = alClient
          Lines.Strings = (
            'memo_p1_flow:')
          ScrollBars = ssVertical
          TabOrder = 0
        end
      end
      object panel_tab1right: TPanel
        Left = 468
        Top = 0
        Width = 516
        Height = 412
        Align = alClient
        BevelOuter = bvNone
        TabOrder = 1
        object memo_p2_flow: TMemo
          Left = 0
          Top = 0
          Width = 516
          Height = 412
          Align = alClient
          Lines.Strings = (
            'memo_p2_flow:')
          ScrollBars = ssVertical
          TabOrder = 0
        end
      end
    end
    object TabSheet2: TTabSheet
      Caption = 'DataHex'
      ImageIndex = 1
      object Splitter2: TSplitter
        Left = 465
        Top = 0
        Height = 412
      end
      object panel_tab2left: TPanel
        Left = 0
        Top = 0
        Width = 465
        Height = 412
        Align = alLeft
        TabOrder = 0
        object memo_p1_data_hex: TMemo
          Left = 1
          Top = 1
          Width = 463
          Height = 410
          Align = alClient
          Lines.Strings = (
            'memo_p1_data_hex:')
          ScrollBars = ssVertical
          TabOrder = 0
        end
      end
      object panel_tab2right: TPanel
        Left = 468
        Top = 0
        Width = 516
        Height = 412
        Align = alClient
        TabOrder = 1
        object memo_p2_data_hex: TMemo
          Left = 1
          Top = 1
          Width = 514
          Height = 410
          Align = alClient
          Lines.Strings = (
            'mem_p2_data_hex:')
          ScrollBars = ssVertical
          TabOrder = 0
        end
      end
    end
    object TabSheet3: TTabSheet
      Caption = 'DataString'
      ImageIndex = 2
      object Splitter3: TSplitter
        Left = 465
        Top = 0
        Height = 412
      end
      object panel_tab3left: TPanel
        Left = 0
        Top = 0
        Width = 465
        Height = 412
        Align = alLeft
        TabOrder = 0
        object memo_p1_data_str: TMemo
          Left = 1
          Top = 1
          Width = 463
          Height = 410
          Align = alClient
          Lines.Strings = (
            'memo_p1_data_str')
          ScrollBars = ssBoth
          TabOrder = 0
        end
      end
      object panel_tab3right: TPanel
        Left = 468
        Top = 0
        Width = 516
        Height = 412
        Align = alClient
        TabOrder = 1
        object memo_p2_data_str: TMemo
          Left = 1
          Top = 1
          Width = 514
          Height = 410
          Align = alClient
          Lines.Strings = (
            'memo_p2_data_str')
          ScrollBars = ssBoth
          TabOrder = 0
        end
      end
    end
    object TabSheet4: TTabSheet
      Caption = 'Header Plain'
      ImageIndex = 3
      object Splitter4: TSplitter
        Left = 465
        Top = 0
        Height = 412
      end
      object panel_tab4left: TPanel
        Left = 0
        Top = 0
        Width = 465
        Height = 412
        Align = alLeft
        TabOrder = 0
        object memo_p1_header: TMemo
          Left = 1
          Top = 1
          Width = 463
          Height = 410
          Align = alClient
          Lines.Strings = (
            'memo_p1_header')
          ScrollBars = ssBoth
          TabOrder = 0
        end
      end
      object panel_tab4right: TPanel
        Left = 468
        Top = 0
        Width = 516
        Height = 412
        Align = alClient
        TabOrder = 1
        object memo_p2_header: TMemo
          Left = 1
          Top = 1
          Width = 514
          Height = 410
          Align = alClient
          Lines.Strings = (
            'memo_p2_header')
          ScrollBars = ssBoth
          TabOrder = 0
        end
      end
    end
    object TabSheet5: TTabSheet
      Caption = 'Header Analyzer'
      ImageIndex = 4
      object Splitter5: TSplitter
        Left = 465
        Top = 0
        Height = 412
      end
      object panel_tab5left: TPanel
        Left = 0
        Top = 0
        Width = 465
        Height = 412
        Align = alLeft
        BevelOuter = bvNone
        TabOrder = 0
        object ListView1: TListView
          Left = 0
          Top = 0
          Width = 465
          Height = 412
          Align = alClient
          Checkboxes = True
          Columns = <
            item
              Caption = 'ID'
              Width = 35
            end
            item
              Caption = 'Host'
              Width = 80
            end
            item
              Caption = 'Cmd'
            end
            item
              Caption = 'URL'
            end
            item
              Caption = 'Referrer'
              Width = 80
            end
            item
              Caption = 'Ret.Status'
              Width = 80
            end
            item
              Caption = 'Ret. Content'
              Width = 80
            end>
          HideSelection = False
          MultiSelect = True
          RowSelect = True
          PopupMenu = PopupMenu1
          TabOrder = 0
          ViewStyle = vsReport
          OnInfoTip = ListView1InfoTip
          OnSelectItem = ListView1SelectItem
        end
      end
      object panel_tab5right: TPanel
        Left = 468
        Top = 0
        Width = 516
        Height = 412
        Align = alClient
        BevelOuter = bvNone
        TabOrder = 1
        object PageControl2: TPageControl
          Left = 0
          Top = 0
          Width = 516
          Height = 412
          ActivePage = TabSheet6
          Align = alClient
          TabOrder = 0
          object TabSheet6: TTabSheet
            Caption = 'HTTP Header'
            object memo_header_plain: TMemo
              Left = 0
              Top = 0
              Width = 508
              Height = 383
              Align = alClient
              Lines.Strings = (
                'memo_header_plain')
              ScrollBars = ssBoth
              TabOrder = 0
            end
          end
          object TabSheet7: TTabSheet
            Caption = 'Edit Action'
            ImageIndex = 1
            object memo_xml: TMemo
              Left = 0
              Top = 0
              Width = 508
              Height = 383
              Align = alClient
              Enabled = False
              Lines.Strings = (
                'memo_xml')
              TabOrder = 0
              OnChange = memo_xmlChange
            end
          end
          object TabSheet8: TTabSheet
            Caption = 'ViewMarked Actions'
            ImageIndex = 2
            object TreeView1: TTreeView
              Left = 0
              Top = 41
              Width = 508
              Height = 342
              Align = alClient
              Indent = 19
              TabOrder = 0
            end
            object Panel2: TPanel
              Left = 0
              Top = 0
              Width = 508
              Height = 41
              Align = alTop
              BevelOuter = bvNone
              TabOrder = 1
              object Label1: TLabel
                Left = 104
                Top = 16
                Width = 231
                Height = 14
                Caption = '! shows only the marked actions !'
              end
              object Button1: TButton
                Left = 0
                Top = 8
                Width = 83
                Height = 25
                Caption = 'RefreshTree'
                TabOrder = 0
                OnClick = Button1Click
              end
            end
          end
        end
      end
    end
    object TabSheet9: TTabSheet
      Caption = 'ContentHex'
      ImageIndex = 5
      object Splitter6: TSplitter
        Left = 465
        Top = 0
        Height = 412
      end
      object panel_tab6left: TPanel
        Left = 0
        Top = 0
        Width = 465
        Height = 412
        Align = alLeft
        BevelOuter = bvNone
        Caption = 'panel_tab6left'
        TabOrder = 0
        object memo_content_p1: TMemo
          Left = 0
          Top = 41
          Width = 465
          Height = 371
          Align = alClient
          Lines.Strings = (
            'memo_content_p1')
          ScrollBars = ssVertical
          TabOrder = 0
        end
        object panel_tab9left_top: TPanel
          Left = 0
          Top = 0
          Width = 465
          Height = 41
          Align = alTop
          BevelOuter = bvNone
          TabOrder = 1
          object chk_hideEmptyEntries: TCheckBox
            Left = 8
            Top = 16
            Width = 169
            Height = 17
            Caption = 'chk_hideEmptyEntries'
            Checked = True
            State = cbChecked
            TabOrder = 0
          end
        end
      end
      object panel_tab6right: TPanel
        Left = 468
        Top = 0
        Width = 516
        Height = 412
        Align = alClient
        BevelOuter = bvNone
        Caption = 'panel_tab6right'
        TabOrder = 1
        object memo_content_p2: TMemo
          Left = 0
          Top = 41
          Width = 516
          Height = 371
          Align = alClient
          Lines.Strings = (
            'memo_content_p2')
          ScrollBars = ssVertical
          TabOrder = 0
        end
        object panel_tab9right_top: TPanel
          Left = 0
          Top = 0
          Width = 516
          Height = 41
          Align = alTop
          BevelOuter = bvNone
          TabOrder = 1
          object chk_logContent: TCheckBox
            Left = 8
            Top = 16
            Width = 121
            Height = 17
            Caption = 'chk_logContent'
            TabOrder = 0
          end
        end
      end
    end
  end
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 992
    Height = 1
    Align = alTop
    BevelOuter = bvNone
    TabOrder = 1
  end
  object StatusBar1: TStatusBar
    Left = 0
    Top = 442
    Width = 992
    Height = 19
    Panels = <
      item
        Text = 'Proxy stopped'
        Width = 100
      end
      item
        Text = 'Logging ON'
        Width = 100
      end
      item
        Width = 50
      end>
  end
  object MainMenu1: TMainMenu
    Left = 664
    object Datei1: TMenuItem
      Caption = 'Datei'
      object SaveAs1: TMenuItem
        Caption = 'Save All...'
        OnClick = SaveAs1Click
      end
      object Clearall1: TMenuItem
        Caption = 'Clear all'
        OnClick = Clearall1Click
      end
      object SaveMarkedRequests1: TMenuItem
        Caption = 'Save Marked Requests'
        OnClick = SaveMarkedRequests1Click
      end
      object N1: TMenuItem
        Caption = '-'
      end
      object Exit1: TMenuItem
        Caption = 'Exit'
        OnClick = Exit1Click
      end
    end
    object Proxy1: TMenuItem
      Caption = 'Proxy'
      object Start1: TMenuItem
        Caption = 'Proxy Start'
        OnClick = Start1Click
      end
      object Stop1: TMenuItem
        Caption = 'Proxy Stop'
        Enabled = False
        OnClick = Stop1Click
      end
      object LogStart1: TMenuItem
        Caption = 'Log Start'
        Enabled = False
        OnClick = LogStart1Click
      end
      object LogStop1: TMenuItem
        Caption = 'Log Stop'
        OnClick = LogStop1Click
      end
    end
    object About1: TMenuItem
      Caption = 'About'
      OnClick = About1Click
    end
  end
  object SaveDialog1: TSaveDialog
    Left = 696
  end
  object Timer1: TTimer
    Interval = 10
    OnTimer = Timer1Timer
    Left = 728
  end
  object XPManifest1: TXPManifest
    Left = 756
    Top = 2
  end
  object XMLDocument1: TXMLDocument
    Left = 792
    DOMVendorDesc = 'MSXML'
  end
  object PopupMenu1: TPopupMenu
    Left = 292
    Top = 226
    object Deleteselectedentries1: TMenuItem
      Caption = 'Delete selected entries'
      ShortCut = 46
      OnClick = Deleteselectedentries1Click
    end
    object SelectAll1: TMenuItem
      Caption = 'Select All'
      ShortCut = 16449
      OnClick = SelectAll1Click
    end
  end
end