Unit1.dfm

object Form1: TForm1
  Left = 152
  Top = 223
  Width = 555
  Height = 308
  ActiveControl = EditSend
  BorderIcons = [biSystemMenu]
  Caption = 'Envio de mensagens'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  KeyPreview = True
  OldCreateOrder = False
  OnCreate = FormCreate
  OnDestroy = TimerDisconect
  DesignSize = (
    547
    274)
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 504
    Top = 12
    Width = 32
    Height = 13
    Alignment = taRightJustify
    Anchors = [akTop, akRight]
    Caption = 'Label1'
  end
  object ButtonConfigurar: TBitBtn
    Left = 8
    Top = 8
    Width = 89
    Height = 25
    Hint = 'Configura'#231#227'o'
    Caption = 'Configurar'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 0
    OnClick = ButtonConfigurarClick
    Glyph.Data = {
      76010000424D7601000000000000760000002800000020000000100000000100
      04000000000000010000120B0000120B00001000000000000000000000000000
      800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00370777033333
      3330337F3F7F33333F3787070003333707303F737773333373F7007703333330
      700077337F3333373777887007333337007733F773F333337733700070333333
      077037773733333F7F37703707333300080737F373333377737F003333333307
      78087733FFF3337FFF7F33300033330008073F3777F33F777F73073070370733
      078073F7F7FF73F37FF7700070007037007837773777F73377FF007777700730
      70007733FFF77F37377707700077033707307F37773F7FFF7337080777070003
      3330737F3F7F777F333778080707770333333F7F737F3F7F3333080787070003
      33337F73FF737773333307800077033333337337773373333333}
    NumGlyphs = 2
  end
  object StatusBar1: TStatusBar
    Left = 0
    Top = 255
    Width = 547
    Height = 19
    Panels = <
      item
        Width = 60
      end
      item
        Width = 50
      end>
  end
  object ButtonConectar: TButton
    Left = 312
    Top = 8
    Width = 89
    Height = 25
    Caption = 'Conectar'
    TabOrder = 2
    Visible = False
    OnClick = ButtonConnect
  end
  object Panel1: TPanel
    Left = 8
    Top = 39
    Width = 529
    Height = 211
    Anchors = [akLeft, akTop, akRight, akBottom]
    BevelOuter = bvNone
    Caption = 'Panel1'
    TabOrder = 3
    object Splitter1: TSplitter
      Left = 0
      Top = 173
      Width = 529
      Height = 3
      Cursor = crVSplit
      Align = alBottom
      Color = clActiveCaption
      ParentColor = False
    end
    object Panel2: TPanel
      Left = 0
      Top = 176
      Width = 529
      Height = 35
      Align = alBottom
      BevelOuter = bvNone
      Constraints.MinHeight = 35
      TabOrder = 0
      DesignSize = (
        529
        35)
      object ComboBoxNames: TComboBox
        Left = 2
        Top = 10
        Width = 105
        Height = 19
        AutoComplete = False
        Style = csOwnerDrawFixed
        ItemHeight = 13
        TabOrder = 0
      end
      object ButtonSend: TButton
        Left = 453
        Top = 9
        Width = 75
        Height = 23
        Anchors = [akTop, akRight]
        Caption = 'Enviar'
        TabOrder = 1
        OnClick = ButtonSendClick
      end
      object EditSend: TMemo
        Left = 112
        Top = 9
        Width = 331
        Height = 21
        Anchors = [akLeft, akTop, akRight, akBottom]
        TabOrder = 2
        OnKeyPress = EditSendKeyPress
        OnKeyUp = EditSendKeyUp
      end
    end
    object Panel3: TPanel
      Left = 0
      Top = 0
      Width = 529
      Height = 173
      Align = alClient
      TabOrder = 1
      DesignSize = (
        529
        173)
      object LogRecebidas: TRichEdit
        Left = 0
        Top = 0
        Width = 529
        Height = 162
        Anchors = [akLeft, akTop, akRight, akBottom]
        ReadOnly = True
        ScrollBars = ssVertical
        TabOrder = 0
        OnChange = LogRecebidasChange
      end
    end
  end
  object Button1: TButton
    Left = 160
    Top = 8
    Width = 75
    Height = 25
    Caption = 'Manual'
    TabOrder = 4
    OnClick = Button1Click
  end
  object IdIRC1: TIdIRC
    OnStatus = IdIRC1Status
    OnDisconnected = IdIRC1Disconnected
    OnConnected = IdIRC1Connected
    ConnectTimeout = 0
    IPVersion = Id_IPv4
    ReadTimeout = 0
    CommandHandlers = <>
    ExceptionReply.Code = '500'
    ExceptionReply.Text.Strings = (
      'Unknown Internal Error')
    UserMode = []
    OnPrivateMessage = IdIRC1PrivateMessage
    OnNotice = IdIRC1Notice
    OnIsOnIRC = IdIRC1IsOnIRC
    OnJoin = IdIRC1Join
    OnPart = IdIRC1Part
    OnServerUsersListReceived = IdIRC1ServerUsersListReceived
    OnUserInfoReceived = IdIRC1UserInfoReceived
    OnServerError = IdIRC1ServerError
    OnNicknameChange = IdIRC1NicknameChange
    OnRaw = IdIRC1Raw
    Left = 88
    Top = 32
  end
  object Timer1: TTimer
    Enabled = False
    Interval = 30000
    OnTimer = TimerDisconect
    Left = 152
    Top = 32
  end
  object IdAntiFreeze1: TIdAntiFreeze
    Left = 120
    Top = 32
  end
end