Componentes.Terceros.RemObjects/internal/5.0.35.741/1/RemObjects SDK for Delphi/Samples/Message Envelopes/MessageEnvelopes_ClientMain.dfm

object MessageEnvelopes_ClientMainForm: TMessageEnvelopes_ClientMainForm
  Left = 513
  Top = 264
  Width = 389
  Height = 413
  BorderIcons = [biSystemMenu]
  Caption = 'Message Envelopes Client'
  Color = clBtnFace
  ParentFont = True
  OldCreateOrder = False
  Position = poScreenCenter
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 373
    Height = 153
    Align = alTop
    BevelOuter = bvNone
    TabOrder = 0
    DesignSize = (
      373
      153)
    object Label1: TLabel
      Left = 9
      Top = 11
      Width = 53
      Height = 13
      Caption = 'Envelopes:'
    end
    object bMoveDown: TButton
      Left = 292
      Top = 128
      Width = 75
      Height = 22
      Action = aMoveDown
      Anchors = [akTop, akRight]
      TabOrder = 5
    end
    object bMoveUp: TButton
      Left = 292
      Top = 104
      Width = 75
      Height = 22
      Action = aMoveUp
      Anchors = [akTop, akRight]
      TabOrder = 4
    end
    object bDelete: TButton
      Left = 292
      Top = 80
      Width = 75
      Height = 22
      Action = aDelete
      Anchors = [akTop, akRight]
      TabOrder = 3
    end
    object bUpdate: TButton
      Left = 292
      Top = 56
      Width = 75
      Height = 22
      Action = aUpdate
      Anchors = [akTop, akRight]
      TabOrder = 2
    end
    object bAdd: TButton
      Left = 292
      Top = 32
      Width = 75
      Height = 22
      Action = aAdd
      Anchors = [akTop, akRight]
      TabOrder = 1
    end
    object CheckListBox1: TCheckListBox
      Left = 9
      Top = 32
      Width = 276
      Height = 118
      OnClickCheck = CheckListBox1ClickCheck
      Anchors = [akLeft, akTop, akRight]
      ItemHeight = 13
      TabOrder = 0
    end
  end
  object Panel2: TPanel
    Left = 0
    Top = 217
    Width = 373
    Height = 160
    Align = alClient
    BevelOuter = bvNone
    TabOrder = 2
    DesignSize = (
      373
      160)
    object bClearLog: TButton
      Left = 292
      Top = 129
      Width = 75
      Height = 25
      Anchors = [akRight, akBottom]
      Caption = 'Clear Log'
      TabOrder = 1
      OnClick = bClearLogClick
    end
    object Memo1: TMemo
      Left = 9
      Top = 2
      Width = 275
      Height = 153
      Anchors = [akLeft, akTop, akRight, akBottom]
      ScrollBars = ssVertical
      TabOrder = 0
    end
  end
  object Panel3: TPanel
    Left = 0
    Top = 153
    Width = 373
    Height = 64
    Align = alTop
    BevelOuter = bvNone
    TabOrder = 1
    DesignSize = (
      373
      64)
    object Label2: TLabel
      Left = 338
      Top = 42
      Width = 24
      Height = 13
      Caption = 'times'
    end
    object Edit1: TEdit
      Left = 9
      Top = 11
      Width = 275
      Height = 21
      Anchors = [akLeft, akTop, akRight]
      TabOrder = 0
      Text = 'Test phrase'
    end
    object bTest: TButton
      Left = 9
      Top = 37
      Width = 103
      Height = 22
      Caption = 'Run Test once'
      TabOrder = 1
      OnClick = aTestExecute
    end
    object bRandomTest: TButton
      Left = 117
      Top = 37
      Width = 167
      Height = 22
      Caption = 'Run test via random envelope'
      TabOrder = 2
      OnClick = bRandomTestClick
    end
    object SpinEdit1: TSpinEdit
      Left = 290
      Top = 37
      Width = 43
      Height = 22
      MaxValue = 999
      MinValue = 1
      TabOrder = 3
      Value = 5
    end
  end
  object ROMessage: TROBinMessage
    Envelopes = <>
    Left = 212
    Top = 40
  end
  object ROChannel: TROWinInetHTTPChannel
    UserAgent = 'RemObjects SDK'
    TargetURL = 'http://localhost:8099/BIN'
    ServerLocators = <>
    DispatchOptions = []
    Left = 184
    Top = 40
  end
  object RORemoteService: TRORemoteService
    Message = ROMessage
    Channel = ROChannel
    ServiceName = 'NewService'
    Left = 240
    Top = 40
  end
  object ActionList1: TActionList
    Left = 152
    Top = 40
    object aAdd: TAction
      Caption = 'Add'
      OnExecute = bAddClick
    end
    object aUpdate: TAction
      Caption = 'Update'
      OnExecute = aUpdateExecute
      OnUpdate = aDeleteUpdate
    end
    object aDelete: TAction
      Caption = 'Delete'
      OnExecute = aDeleteExecute
      OnUpdate = aDeleteUpdate
    end
    object aMoveUp: TAction
      Caption = 'Move Up'
      OnExecute = aMoveUpExecute
      OnUpdate = aMoveUpUpdate
    end
    object aMoveDown: TAction
      Caption = 'Move Down'
      OnExecute = aMoveDownExecute
      OnUpdate = aMoveDownUpdate
    end
  end
end