VERSION 5.00
Object = "{3B7C8863-D78F-101B-B9B5-04021C009402}#1.2#0"; "RICHTX32.OCX"
Begin VB.Form frmChannel 
   Caption         =   "Channel"
   ClientHeight    =   3720
   ClientLeft      =   5565
   ClientTop       =   3150
   ClientWidth     =   5640
   LinkTopic       =   "Form1"
   ScaleHeight     =   3720
   ScaleWidth      =   5640
   Begin VB.TextBox txtMessage 
      Height          =   765
      Left            =   0
      MultiLine       =   -1  'True
      TabIndex        =   3
      Top             =   3000
      Width           =   4095
   End
   Begin VB.CommandButton cmdSend 
      Caption         =   "Send"
      Height          =   375
      Left            =   4080
      TabIndex        =   2
      Top             =   3360
      Width           =   1575
   End
   Begin VB.ComboBox cboMode 
      Height          =   315
      Left            =   4080
      TabIndex        =   1
      Text            =   "Channel Msg"
      Top             =   3000
      Width           =   1575
   End
   Begin VB.ListBox lstPeople 
      Height          =   2985
      Left            =   4560
      Sorted          =   -1  'True
      TabIndex        =   0
      Top             =   0
      Width           =   1095
   End
   Begin RichTextLib.RichTextBox rtbView 
      Height          =   3015
      Left            =   0
      TabIndex        =   4
      Top             =   0
      Width           =   4575
      _ExtentX        =   8070
      _ExtentY        =   5318
      _Version        =   393217
      Enabled         =   -1  'True
      ScrollBars      =   3
      TextRTF         =   $"frmChannel.frx":0000
   End
   Begin VB.Menu File 
      Caption         =   "F&ile"
      Begin VB.Menu mnuClear 
         Caption         =   "Clear Channel Text"
      End
      Begin VB.Menu mnuLog 
         Caption         =   "Log Channel Text"
      End
      Begin VB.Menu sep1 
         Caption         =   "-"
      End
      Begin VB.Menu mnuClose 
         Caption         =   "Close"
      End
   End
   Begin VB.Menu mnuOption 
      Caption         =   "O&ptions"
      Index           =   0
      Begin VB.Menu mnuEncryption 
         Caption         =   "Encryption"
         Index           =   1
         Begin VB.Menu mnuSetKey 
            Caption         =   "Set Key"
         End
         Begin VB.Menu sep2 
            Caption         =   "-"
         End
         Begin VB.Menu mnuEncrypt 
            Caption         =   "Encrypt"
         End
         Begin VB.Menu mnuDecrypt 
            Caption         =   "Decrypt"
         End
      End
   End
   Begin VB.Menu Internal 
      Caption         =   "Internal"
      Visible         =   0   'False
      Begin VB.Menu mnuRTB 
         Caption         =   "RTB"
         Begin VB.Menu mnuCopy 
            Caption         =   "Copy"
         End
      End
      Begin VB.Menu mnuPeople 
         Caption         =   "People"
         Begin VB.Menu mnuPrivateMessge 
            Caption         =   "Send Private Message"
         End
         Begin VB.Menu sep3 
            Caption         =   "-"
         End
         Begin VB.Menu mnuPeopleChannelMessage 
            Caption         =   "Send Channel Message"
         End
      End
   End
End
Attribute VB_Name = "frmChannel"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False

Public key, People As String




Private Sub cmdSend_Click()
    Dim Color As Long
    If Me.mnuEncrypt.Checked = True Then
        If key = "" Then key = InputBox("Please enter Encryption Key", "Enter Key")
        txtMessage.text = EnCrypt(txtMessage.text, CInt(key))
    End If

    Select Case cboMode.text

    Case "Channel Msg"
        If frmmain.chkGreyOut.value = 1 Then Color = &H8000000F Else Color = vbBlack
        frmmain.SendData "PRIVMSG " + Me.Caption + " :" + txtMessage.text
        DisplayMessageInChannel txtMessage.text, frmmain.txtNick, Me.Caption, Color
        txtMessage.text = ""
        txtMessage.SelStart = 0
        SendKeys (vbBack) 'set cursor back to original spot

    Case "Join"
        JoinChannel (txtMessage.text) 'Join a channel

    Case "Command"
        frmmain.SendData (txtMessage.text) 'Sends the text to the IRC server
        txtMessage.text = ""
        txtMessage.SetFocus

    Case Else
        MsgBox "Please select mode" 'If none of those modes are selected

    End Select


End Sub


Private Sub Form_Load()
    Randomize
    
    With cboMode
        .AddItem "Channel Msg"
        .AddItem "Private Msg"
        .AddItem "Join"
        .AddItem "Command"
    End With

End Sub

Private Sub Form_Resize()
ResizeForm Me
End Sub

Private Sub Form_Unload(Cancel As Integer)

frmmain.SendData ("PART " + Me.Caption)
frmmain.allChannels.Remove Me.Caption
End Sub

Private Sub lstPeople_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
'if right button popup the menu
If Button = vbRightButton Then
PopupMenu Me.mnuPeople
'if leftbutton add person to message box, position cursor at end of txtbox and set it in focus
ElseIf Button = vbLeftButton Then
txtMessage.text = lstPeople.text + ": "
txtMessage.SelStart = Len(txtMessage.text)
txtMessage.SetFocus
End If
End Sub

Private Sub mnuClear_Click()
    rtbView.text = ""
End Sub

Private Sub mnuClose_Click()
    Unload Me
End Sub

Private Sub mnuCopy_Click()
    Clipboard.SetText rtbView.SelText
End Sub

Private Sub mnuDecrypt_Click()
    Me.mnuDecrypt.Checked = Not Me.mnuDecrypt.Checked
End Sub

Private Sub mnuEncrypt_Click()
    Me.mnuEncrypt.Checked = Not Me.mnuEncrypt.Checked
End Sub

Private Sub mnuLog_Click()
    rtbView.SaveFile (App.Path + "\logs\" + Me.Tag + " " + " " + CStr(Int(Rnd() * 100)) + ".rtf")
End Sub

'Add users name to the message box
Private Sub mnuPeopleChannelMessage_Click()
    txtMessage.text = lstPeople.text + ": "
    txtMessage.SetFocus
'    SendKeys (vbKeyEnd)
End Sub

'Open private chat form
Private Sub mnuPrivateMessge_Click()
    LoadPrivateForm (lstPeople.text)
End Sub

Private Sub mnuSetKey_Click()
    key = InputBox("Please enter Encryption Key", "Enter Key")
End Sub

Private Sub rtbView_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If Button = vbRightButton Then PopupMenu Me.mnuRTB
End Sub

Private Sub txtMessage_KeyPress(KeyAscii As Integer)
    If KeyAscii = vbKeyReturn Then
        cmdSend_Click
    End If
End Sub