lazarus-ccr/wst/trunk/tests/calculator/gui_client/main_unit.lfm

object fmain: Tfmain
  Left = 269
  Height = 300
  Top = 234
  Width = 528
  HorzScrollBar.Page = 527
  VertScrollBar.Page = 299
  ActiveControl = edtA
  Caption = '"calculator" service test'
  ClientHeight = 300
  ClientWidth = 528
  OnCreate = FormCreate
  object Label1: TLabel
    Left = 16
    Height = 18
    Top = 48
    Width = 64
    Caption = 'Param "A"'
    Color = clNone
    ParentColor = False
  end
  object Label2: TLabel
    Left = 17
    Height = 18
    Top = 80
    Width = 64
    Caption = 'Param "B"'
    Color = clNone
    ParentColor = False
  end
  object Label3: TLabel
    Left = 240
    Height = 18
    Top = 52
    Width = 45
    Caption = 'Format'
    Color = clNone
    ParentColor = False
  end
  object Label4: TLabel
    Left = 16
    Height = 18
    Top = 8
    Width = 49
    Caption = 'Address'
    Color = clNone
    ParentColor = False
  end
  object edtA: TEdit
    Left = 80
    Height = 23
    Top = 48
    Width = 80
    TabOrder = 0
    Text = '5'
  end
  object edtB: TEdit
    Left = 80
    Height = 23
    Top = 80
    Width = 80
    TabOrder = 1
    Text = '2'
  end
  object btnExec: TButton
    Left = 384
    Height = 25
    Top = 8
    Width = 128
    BorderSpacing.InnerBorder = 4
    Caption = 'Execute'
    OnClick = btnExecClick
    TabOrder = 2
  end
  object mmoLog: TMemo
    Height = 180
    Top = 120
    Width = 528
    Align = alBottom
    Anchors = [akTop, akLeft, akRight, akBottom]
    Font.CharSet = ANSI_CHARSET
    Font.Color = clBlack
    Font.Height = -19
    Font.Name = 'Courier New'
    Font.Pitch = fpFixed
    Lines.Strings = (
      ''
    )
    ScrollBars = ssBoth
    TabOrder = 3
  end
  object edtFormat: TEdit
    Left = 288
    Height = 23
    Top = 50
    Width = 80
    TabOrder = 4
    Text = 'SOAP'
  end
  object btnInit: TButton
    Left = 384
    Height = 25
    Top = 48
    Width = 75
    BorderSpacing.InnerBorder = 4
    Caption = 'Init Obj'
    OnClick = btnInitClick
    TabOrder = 5
  end
  object btnClearLog: TButton
    Left = 384
    Height = 25
    Top = 80
    Width = 75
    BorderSpacing.InnerBorder = 4
    Caption = 'Clear Log'
    OnClick = btnClearLogClick
    TabOrder = 6
  end
  object edtAddress: TEdit
    Left = 80
    Height = 23
    Top = 11
    Width = 288
    TabOrder = 7
    Text = 'http:Address=http://127.0.0.1:8000/services/ICalculator'
  end
end