object frmMain: TfrmMain
  Left = 262
  Top = 165
  Width = 550
  Height = 331
  Caption = 'Indy Server - Demo'
  Color = clBtnFace
  Constraints.MinHeight = 331
  Constraints.MinWidth = 550
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Icon.Data = {
    0000010001001010100000000000280100001600000028000000100000002000
    00000100040000000000C0000000000000000000000000000000000000000000
    000000008000008000000080800080000000800080008080000080808000C0C0
    C0000000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF000000
    0000000000000FFFF0DDDD0FFFF0000000DDDD00000000CC000DD000CC000000
    000DD00000000000000DD00000000000000DD00000000FFFF0DDDD0FFFF00000
    00DDDD00000000CC000DD000CC000000000DD000000000000000000000000000
    00FFFF00000000000000000000000000000EE0000000000000000000000003C0
    000000000000000000008661000086610000FE7F000002400000000000000000
    00008661000086610000F81F0000F81F0000F81F0000FC3F0000FC3F0000
  }
  OldCreateOrder = False
  Position = poDesktopCenter
  ShowHint = True
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object StatusBar1: TStatusBar
    Left = 0
    Top = 278
    Width = 542
    Height = 19
    Panels = <>
  end
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 153
    Height = 278
    Align = alLeft
    Caption = 'Panel1'
    TabOrder = 1
    object Panel2: TPanel
      Left = 1
      Top = 29
      Width = 151
      Height = 16
      Align = alTop
      Alignment = taLeftJustify
      BevelOuter = bvLowered
      Caption = ' Client Connections'
      TabOrder = 0
    end
    object lbClients: TListBox
      Left = 1
      Top = 45
      Width = 151
      Height = 232
      Hint = 'All currently active clients names are listed here.'
      Align = alClient
      Color = 16765348
      ItemHeight = 13
      TabOrder = 1
      OnClick = lbClientsClick
    end
    object ToolBar1: TToolBar
      Left = 1
      Top = 1
      Width = 151
      Height = 28
      AutoSize = True
      ButtonHeight = 26
      ButtonWidth = 31
      Caption = 'ToolBar1'
      EdgeBorders = [ebBottom]
      Flat = True
      Images = ImageList1
      Indent = 8
      TabOrder = 2
      object btnServerUp: TToolButton
        Left = 8
        Top = 0
        Hint = 'Start up server'
        Caption = 'btnServerUp'
        ImageIndex = 0
        Style = tbsCheck
        OnClick = btnServerUpClick
      end
      object ToolButton1: TToolButton
        Left = 39
        Top = 0
        Width = 8
        Caption = 'ToolButton1'
        ImageIndex = 1
        Style = tbsSeparator
      end
      object btnClients: TToolButton
        Left = 47
        Top = 0
        Hint = 'Refresh Client List'
        Caption = 'btnClients'
        Enabled = False
        ImageIndex = 3
        OnClick = btnClientsClick
      end
      object btnKillClient: TToolButton
        Left = 78
        Top = 0
        Hint = 'Disconnect Client'
        Caption = 'btnKillClient'
        Enabled = False
        ImageIndex = 2
        OnClick = btnKillClientClick
      end
      object btnPM: TToolButton
        Left = 109
        Top = 0
        Hint = 'Private Message Client'
        Caption = 'btnPM'
        Enabled = False
        ImageIndex = 4
        OnClick = btnPMClick
      end
    end
  end
  object PageControl1: TPageControl
    Left = 153
    Top = 0
    Width = 389
    Height = 278
    ActivePage = TabSheet3
    Align = alClient
    TabOrder = 2
    object TabSheet3: TTabSheet
      Caption = 'Server Information'
      ImageIndex = 2
      DesignSize = (
        381
        250
      )
      object Label3: TLabel
        Left = 8
        Top = 8
        Width = 55
        Height = 13
        Caption = 'Local DNS:'
      end
      object lblDNS: TLabel
        Left = 64
        Top = 8
        Width = 48
        Height = 13
        Caption = 'LocalHost'
      end
      object lblSocketVer: TLabel
        Left = 330
        Top = 11
        Width = 60
        Height = 13
        Anchors = [akRight]
        Caption = 'lblSocketVer'
      end
      object Label5: TLabel
        Left = 255
        Top = 11
        Width = 75
        Height = 13
        Anchors = [akRight]
        Caption = 'Socket Version:'
      end
      object Label4: TLabel
        Left = 8
        Top = 36
        Width = 67
        Height = 13
        Caption = 'Resident Port:'
      end
      object Label6: TLabel
        Left = 8
        Top = 64
        Width = 96
        Height = 13
        Caption = 'Inital entry message:'
      end
      object Label7: TLabel
        Left = 8
        Top = 160
        Width = 39
        Height = 13
        Caption = 'E-Motes'
      end
      object Label12: TLabel
        Left = 168
        Top = 36
        Width = 58
        Height = 13
        Caption = 'Syop Name:'
      end
      object seBinding: TSpinEdit
        Left = 80
        Top = 32
        Width = 65
        Height = 22
        Hint = 'Sets the port that the server will be running on.'#13#10'(The port will be bound by the system, so make'#13#10' sure that it isn''t allredi in use by another program)'#13#10'Some example ports are:'#13#10'  007 - Echo'#13#10'  023 - Telnet'#13#10'  025 - SMTP Mail'#13#10'  079 - Finger'#13#10'  080 - HTTP'#13#10'  119 - NNTP News'#13#10'  517 - Talk'#13#10'  '
        Color = 16765348
        MaxValue = 999999
        MinValue = 7
        TabOrder = 0
        Value = 23
        OnChange = seBindingChange
      end
      object memEntry: TMemo
        Left = 16
        Top = 80
        Width = 361
        Height = 73
        Hint = 'This is the message that the user will see when they first log into the server.'#13#10'(This is after they have entered their user name)'
        Anchors = [akLeft, akTop, akRight]
        Lines.Strings = (
          'Welcome to the Indy TCP Server demo chat.'
          
          'This program is designed simply to show a slightly more advanced usage of some of the commong components found in Indy.'
        )
        ScrollBars = ssBoth
        TabOrder = 1
        WordWrap = False
      end
      object memEMotes: TMemo
        Left = 16
        Top = 176
        Width = 361
        Height = 77
        Hint = 'These are simple Emotion Replacments that you can add to.  The format is as follows:'#13#10'<EMOTE>=<REPLACE TEXT>'#13#10'for example:'#13#10'/grin=%s grins.'#13#10'so if someone named Garry types /grin everyone else will see: Garry grins.'#13#10'%s will be replaced with the senders name.'
        Anchors = [akLeft, akTop, akRight, akBottom]
        Lines.Strings = (
          '/help=Here are the EMotes: /grin, /lol, /kiss, /rose'
          '/grin=%s grins.'
          '/lol=%s Laughs out loud.'
          '/kiss=%s blows everyone a big kiss.'
          '/rose=A @--''--- for you from %s.'
        )
        TabOrder = 2
      end
      object edSyopName: TEdit
        Left = 232
        Top = 32
        Width = 145
        Height = 21
        Hint = 'This is the name that will apear when you send a message.'#13#10'(This name cannot be changed while the server is online)'
        Anchors = [akLeft, akTop, akRight]
        AutoSelect = False
        TabOrder = 3
        Text = 'Sysop'
      end
    end
    object TabSheet2: TTabSheet
      Caption = 'Client Information'
      ImageIndex = 1
      object Label8: TLabel
        Left = 3
        Top = 3
        Width = 60
        Height = 13
        Caption = 'Client Name:'
      end
      object Label9: TLabel
        Left = 8
        Top = 24
        Width = 55
        Height = 13
        Caption = 'Client DNS:'
      end
      object lblClientName: TLabel
        Left = 64
        Top = 3
        Width = 71
        Height = 13
        Caption = 'None Selected'
      end
      object lblClientDNS: TLabel
        Left = 64
        Top = 24
        Width = 71
        Height = 13
        Caption = 'None Selected'
      end
    end
  end
  object ImageList1: TImageList
    Height = 20
    Width = 20
    Left = 496
    Top = 8
    Bitmap = {
      [encoded data, 40128 characters]
      00000000000000000000000000000000000000000000
    }
  end
  object tcpServer: TIdTCPServer
    Bindings = <    
      item
        Port = 23
      end>
    CommandHandlers = <>
    DefaultPort = 0
    Greeting.NumericCode = 0
    MaxConnectionReply.NumericCode = 0
    OnConnect = tcpServerConnect
    OnExecute = tcpServerExecute
    OnDisconnect = tcpServerDisconnect
    ReplyExceptionCode = 0
    ReplyTexts = <>
    ReplyUnknownCommand.NumericCode = 0
    ThreadMgr = IdThreadMgrDefault1
    Left = 8
    Top = 52
  end
  object IdThreadMgrDefault1: TIdThreadMgrDefault
    Left = 40
    Top = 52
  end
  object puMemoMenu: TPopupMenu
    Left = 501
    Top = 100
    object Savetofile1: TMenuItem
      Caption = 'Save to file'
      OnClick = Savetofile1Click
    end
    object Loadfromfile1: TMenuItem
      Caption = 'Load from file'
      OnClick = Loadfromfile1Click
    end
  end
  object OpenDialog1: TOpenDialog
    DefaultExt = 'txt'
    Filter = 'Text Files (*.txt)|*.txt|All Files    (*.*)|*.*'
    InitialDir = 'c:\My Documents'
    Left = 8
    Top = 84
  end
  object SaveDialog1: TSaveDialog
    DefaultExt = 'txt'
    Filter = 'Text Files (*.txt)|*.txt|All Files    (*.*)|*.*'
    InitialDir = 'c:\My Documents'
    Left = 40
    Top = 84
  end
end
