ircchat/Unit1.dfm at master · kenjones007/ircchat · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
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