www.pudn.com > PC--WINCE--camora.rar > ClientFrmMainUnit.dfm

object ClientFrmMain: TClientFrmMain 
  Left = 256 
  Top = 213 
  Width = 653 
  Height = 289 
  Caption = 'Test-Client' 
  Color = clBtnFace 
  Constraints.MinHeight = 285 
  Constraints.MinWidth = 350 
  Font.Charset = DEFAULT_CHARSET 
  Font.Color = clWindowText 
  Font.Height = -11 
  Font.Name = 'Tahoma' 
  Font.Style = [] 
  OldCreateOrder = False 
  Position = poDesktopCenter 
  DesignSize = ( 
    645 
    262) 
  PixelsPerInch = 96 
  TextHeight = 13 
  object Label1: TLabel 
    Left = 4 
    Top = 28 
    Width = 95 
    Height = 13 
    Caption = 'incoming messages:' 
  end 
  object Label3: TLabel 
    Left = 4 
    Top = 180 
    Width = 46 
    Height = 13 
    Anchors = [akLeft, akBottom] 
    Caption = 'Message:' 
  end 
  object Image: TImage 
    Left = 264 
    Top = 16 
    Width = 361 
    Height = 241 
  end 
  object CBClientActive: TCheckBox 
    Left = 4 
    Top = 4 
    Width = 65 
    Height = 17 
    Caption = 'active' 
    TabOrder = 0 
    OnClick = CBClientActiveClick 
  end 
  object IncomingMessages: TMemo 
    Left = 4 
    Top = 44 
    Width = 181 
    Height = 125 
    Anchors = [akLeft, akTop, akRight] 
    Font.Charset = DEFAULT_CHARSET 
    Font.Color = clWindowText 
    Font.Height = -13 
    Font.Name = 'Courier New' 
    Font.Style = [] 
    ParentFont = False 
    TabOrder = 1 
  end 
  object EditMessage: TEdit 
    Left = 4 
    Top = 204 
    Width = 229 
    Height = 21 
    Anchors = [akLeft, akRight, akBottom] 
    TabOrder = 2 
  end 
  object ButtonSend: TButton 
    Left = 78 
    Top = 236 
    Width = 67 
    Height = 21 
    Anchors = [akRight, akBottom] 
    Caption = 'Send' 
    Enabled = False 
    TabOrder = 3 
    OnClick = ButtonSendClick 
  end 
  object Client: TIdTCPClient 
    MaxLineAction = maException 
    ReadTimeout = 0 
    Host = '172.19.37.12' 
    Port = 9000 
    Left = 132 
    Top = 96 
  end 
end