clientmain.dfm

Delphi XML & XPATH源代码

object frmClientMain: TfrmClientMain
  Left = 219
  Top = 107
  Width = 364
  Height = 201
  Caption = 'Find Movies'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnCreate = FormCreate
  DesignSize = (
    356
    174)
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 4
    Top = 8
    Width = 31
    Height = 13
    Caption = '&Rating'
    FocusControl = cbxRating
  end
  object cbxRating: TComboBox
    Left = 40
    Top = 4
    Width = 81
    Height = 21
    Style = csDropDownList
    ItemHeight = 13
    TabOrder = 0
  end
  object btnFind: TButton
    Left = 279
    Top = 4
    Width = 75
    Height = 21
    Anchors = [akTop, akRight]
    Caption = '&Find'
    Default = True
    TabOrder = 1
    OnClick = btnFindClick
  end
  object edtEmail: TEdit
    Left = 4
    Top = 149
    Width = 264
    Height = 21
    Anchors = [akLeft, akRight, akBottom]
    TabOrder = 2
    Text = '[e-mail]'
  end
  object btnTell: TButton
    Left = 279
    Top = 149
    Width = 75
    Height = 21
    Anchors = [akRight, akBottom]
    Caption = '&Tell a Friend'
    TabOrder = 3
    OnClick = btnTellClick
  end
  object pgcMain: TPageControl
    Left = 4
    Top = 28
    Width = 349
    Height = 117
    ActivePage = tabResults
    Anchors = [akLeft, akTop, akRight, akBottom]
    TabIndex = 0
    TabOrder = 4
    object tabResults: TTabSheet
      Caption = 'Results'
      object lbxMovies: TListBox
        Left = 0
        Top = 0
        Width = 341
        Height = 89
        Align = alClient
        ItemHeight = 13
        Sorted = True
        TabOrder = 0
        OnDblClick = lbxMoviesDblClick
      end
    end
    object tabRequest: TTabSheet
      Caption = 'Request'
      ImageIndex = 1
      object memRequest: TMemo
        Left = 0
        Top = 0
        Width = 341
        Height = 89
        Align = alClient
        ReadOnly = True
        ScrollBars = ssVertical
        TabOrder = 0
      end
    end
    object tabResponse: TTabSheet
      Caption = 'Response'
      ImageIndex = 2
      object memResponse: TMemo
        Left = 0
        Top = 0
        Width = 341
        Height = 89
        Align = alClient
        ReadOnly = True
        ScrollBars = ssVertical
        TabOrder = 0
      end
    end
  end
  object rioMovies: THTTPRIO
    OnAfterExecute = rioAfterExecute
    OnBeforeExecute = rioBeforeExecute
    WSDLLocation = 'http://localhost/scripts/FindMoviesServer.exe/wsdl/IFindMovies'
    Service = 'IFindMoviesservice'
    Port = 'IFindMoviesPort'
    HTTPWebNode.Agent = 'Borland SOAP 1.2'
    HTTPWebNode.UseUTF8InHeader = False
    HTTPWebNode.InvokeOptions = [soIgnoreInvalidCerts]
    Converter.Options = [soSendMultiRefObj, soTryAllSchema, soRootRefNodesToBody]
    Left = 64
    Top = 80
  end
end