frmEmoticons.frm

 VERSION 5.00
Begin VB.Form frmEmoticons
   Appearance      =   0  'Flat
   AutoRedraw      =   -1  'True
   BackColor       =   &H00E0E0E0&
   BorderStyle     =   0  'None
   ClientHeight    =   6570
   ClientLeft      =   0
   ClientTop       =   0
   ClientWidth     =   5445
   KeyPreview      =   -1  'True
   LinkTopic       =   "Form1"
   LockControls    =   -1  'True
   ScaleHeight     =   6570
   ScaleWidth      =   5445
   ShowInTaskbar   =   0   'False
   StartUpPosition =   1  'CenterOwner
   Begin ChatTool.bgDugme bgCmdOk
      Height          =   435
      Left            =   2175
      TabIndex        =   0
      Top             =   5895
      Width           =   1275
      _ExtentX        =   2249
      _ExtentY        =   767
      Caption         =   "&Ok"
      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
         Name            =   "Arial"
         Size            =   9.75
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Object.Width           =   -1
   End
   Begin VB.Image imgSmiley
      Appearance      =   0  'Flat
      Height          =   765
      Index           =   33
      Left            =   3540
      Picture         =   "frmEmoticons.frx":0000
      Top             =   2175
      Width           =   765
   End
   Begin VB.Label lblEmoticon
      Appearance      =   0  'Flat
      AutoSize        =   -1  'True
      BackColor       =   &H80000005&
      BorderStyle     =   1  'Fixed Single
      Caption         =   " Emoticon "
      BeginProperty Font
         Name            =   "Arial"
         Size            =   9
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H80000008&
      Height          =   255
      Left            =   225
      TabIndex        =   1
      Top             =   5775
      Width           =   900
   End
   Begin VB.Image imgSmiley
      Appearance      =   0  'Flat
      Height          =   765
      Index           =   34
      Left            =   1935
      Picture         =   "frmEmoticons.frx":07AD
      Top             =   1365
      Width           =   765
   End
   Begin VB.Image imgSmiley
      Appearance      =   0  'Flat
      Height          =   765
      Index           =   32
      Left            =   1110
      Picture         =   "frmEmoticons.frx":0FED
      Top             =   2175
      Width           =   765
   End
   Begin VB.Image imgSmiley
      Appearance      =   0  'Flat
      Height          =   765
      Index           =   31
      Left            =   300
      Picture         =   "frmEmoticons.frx":14BE
      Top             =   3795
      Width           =   765
   End
   Begin VB.Image imgSmiley
      Appearance      =   0  'Flat
      Height          =   765
      Index           =   30
      Left            =   1920
      Picture         =   "frmEmoticons.frx":1C96
      Top             =   3795
      Width           =   765
   End
   Begin VB.Image imgSmiley
      Appearance      =   0  'Flat
      Height          =   765
      Index           =   28
      Left            =   4350
      Picture         =   "frmEmoticons.frx":2433
      Top             =   555
      Width           =   765
   End
   Begin VB.Image imgSmiley
      Appearance      =   0  'Flat
      Height          =   765
      Index           =   26
      Left            =   2730
      Picture         =   "frmEmoticons.frx":2C4D
      Top             =   3795
      Width           =   765
   End
   Begin VB.Image imgSmiley
      Appearance      =   0  'Flat
      Height          =   765
      Index           =   25
      Left            =   300
      Picture         =   "frmEmoticons.frx":331D
      Top             =   2985
      Width           =   765
   End
   Begin VB.Image imgSmiley
      Appearance      =   0  'Flat
      Height          =   765
      Index           =   22
      Left            =   3540
      Picture         =   "frmEmoticons.frx":3B1B
      Top             =   1365
      Width           =   765
   End
   Begin VB.Image imgSmiley
      Appearance      =   0  'Flat
      Height          =   765
      Index           =   20
      Left            =   1920
      Picture         =   "frmEmoticons.frx":4318
      Top             =   2175
      Width           =   765
   End
   Begin VB.Image imgSmiley
      Appearance      =   0  'Flat
      Height          =   765
      Index           =   19
      Left            =   1110
      Picture         =   "frmEmoticons.frx":4AB9
      Top             =   555
      Width           =   765
   End
   Begin VB.Image imgSmiley
      Appearance      =   0  'Flat
      Height          =   765
      Index           =   18
      Left            =   3540
      Picture         =   "frmEmoticons.frx":52A7
      Top             =   2985
      Width           =   765
   End
   Begin VB.Image imgSmiley
      Appearance      =   0  'Flat
      Height          =   765
      Index           =   16
      Left            =   3540
      Picture         =   "frmEmoticons.frx":5AB5
      Top             =   3795
      Width           =   765
   End
   Begin VB.Image imgSmiley
      Appearance      =   0  'Flat
      Height          =   765
      Index           =   14
      Left            =   300
      Picture         =   "frmEmoticons.frx":6233
      Top             =   555
      Width           =   765
   End
   Begin VB.Image imgSmiley
      Appearance      =   0  'Flat
      Height          =   765
      Index           =   13
      Left            =   3540
      Picture         =   "frmEmoticons.frx":6A2C
      Top             =   555
      Width           =   765
   End
   Begin VB.Image imgSmiley
      Appearance      =   0  'Flat
      Height          =   765
      Index           =   12
      Left            =   1920
      Picture         =   "frmEmoticons.frx":723F
      Top             =   555
      Width           =   765
   End
   Begin VB.Image imgSmiley
      Appearance      =   0  'Flat
      Height          =   765
      Index           =   11
      Left            =   1110
      Picture         =   "frmEmoticons.frx":7A3C
      Top             =   2985
      Width           =   765
   End
   Begin VB.Image imgSmiley
      Appearance      =   0  'Flat
      Height          =   765
      Index           =   10
      Left            =   1920
      Picture         =   "frmEmoticons.frx":8250
      Top             =   2985
      Width           =   765
   End
   Begin VB.Image imgSmiley
      Appearance      =   0  'Flat
      Height          =   765
      Index           =   9
      Left            =   4350
      Picture         =   "frmEmoticons.frx":89CF
      Top             =   2985
      Width           =   765
   End
   Begin VB.Image imgSmiley
      Appearance      =   0  'Flat
      Height          =   765
      Index           =   8
      Left            =   2730
      Picture         =   "frmEmoticons.frx":91C9
      Top             =   1365
      Width           =   765
   End
   Begin VB.Image imgSmiley
      Appearance      =   0  'Flat
      Height          =   765
      Index           =   6
      Left            =   1110
      Picture         =   "frmEmoticons.frx":99A9
      Top             =   3795
      Width           =   765
   End
   Begin VB.Image imgSmiley
      Appearance      =   0  'Flat
      Height          =   765
      Index           =   5
      Left            =   1095
      Picture         =   "frmEmoticons.frx":A181
      Top             =   1365
      Width           =   810
   End
   Begin VB.Image imgSmiley
      Appearance      =   0  'Flat
      Height          =   765
      Index           =   4
      Left            =   4350
      Picture         =   "frmEmoticons.frx":A91E
      Top             =   1365
      Width           =   765
   End
   Begin VB.Image imgSmiley
      Appearance      =   0  'Flat
      Height          =   765
      Index           =   3
      Left            =   4350
      Picture         =   "frmEmoticons.frx":B10B
      Top             =   3795
      Width           =   765
   End
   Begin VB.Image imgSmiley
      Appearance      =   0  'Flat
      Height          =   765
      Index           =   2
      Left            =   2730
      Picture         =   "frmEmoticons.frx":B8E0
      Top             =   555
      Width           =   765
   End
   Begin VB.Image imgSmiley
      Appearance      =   0  'Flat
      Height          =   765
      Index           =   1
      Left            =   2730
      Picture         =   "frmEmoticons.frx":C0B1
      Top             =   2985
      Width           =   765
   End
   Begin VB.Image imgSmiley
      Appearance      =   0  'Flat
      Height          =   765
      Index           =   0
      Left            =   2730
      Picture         =   "frmEmoticons.frx":C8A0
      Top             =   2175
      Width           =   765
   End
   Begin VB.Image imgSmiley
      Appearance      =   0  'Flat
      Height          =   765
      Index           =   7
      Left            =   300
      Picture         =   "frmEmoticons.frx":D049
      Top             =   1365
      Width           =   765
   End
   Begin VB.Image imgSmiley
      Appearance      =   0  'Flat
      Height          =   765
      Index           =   15
      Left            =   300
      Picture         =   "frmEmoticons.frx":D7F2
      Top             =   2175
      Width           =   765
   End
   Begin VB.Image imgSmiley
      Appearance      =   0  'Flat
      Height          =   930
      Index           =   17
      Left            =   3195
      Picture         =   "frmEmoticons.frx":DF1C
      Top             =   4710
      Width           =   765
   End
   Begin VB.Image imgSmiley
      Appearance      =   0  'Flat
      Height          =   705
      Index           =   21
      Left            =   2220
      Picture         =   "frmEmoticons.frx":E727
      Top             =   4920
      Width           =   900
   End
   Begin VB.Image imgSmiley
      Appearance      =   0  'Flat
      Height          =   765
      Index           =   23
      Left            =   4350
      Picture         =   "frmEmoticons.frx":EE4B
      Top             =   2175
      Width           =   765
   End
   Begin VB.Image imgSmiley
      Appearance      =   0  'Flat
      Height          =   1050
      Index           =   24
      Left            =   300
      Picture         =   "frmEmoticons.frx":F62F
      Top             =   4590
      Width           =   900
   End
   Begin VB.Image imgSmiley
      Appearance      =   0  'Flat
      Height          =   855
      Index           =   27
      Left            =   1260
      Picture         =   "frmEmoticons.frx":FF0F
      Top             =   4785
      Width           =   900
   End
   Begin VB.Image imgSmiley
      Appearance      =   0  'Flat
      Height          =   780
      Index           =   29
      Left            =   4020
      Picture         =   "frmEmoticons.frx":106FA
      Top             =   4860
      Width           =   1095
   End
   Begin VB.Shape shpFrame
      BackStyle       =   1  'Opaque
      Height          =   5250
      Left            =   225
      Top             =   480
      Width           =   4980
   End
End
Attribute VB_Name = "frmEmoticons"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Private Aktiv As Boolean
Private WithEvents cmdClose As VBControlExtender
Attribute cmdClose.VB_VarHelpID = -1
Public intChosenEmoticonIndex As Integer

Private Sub bgCmdOk_Click()
    Me.Hide
End Sub

Private Sub cmdClose_ObjectEvent(Info As EventInfo)
    If intChosenEmoticonIndex <> -1 Then
        ResetSmileyClick
        intChosenEmoticonIndex = -1
    End If
    Me.Hide
End Sub

Private Sub Form_activate()
On Error GoTo err:
    If Aktiv = False Then
        Aktiv = True
        LoadSkin Me, Active, True, LoadIt, 1
    Else
        LoadSkin Me, Active, False, LoadIt
    End If
    frmChatTool.blnEmoticonFormShown = True
    Exit Sub
err:
    DebugLog "ERR - frmOnlineMessageSend - Form_activate - " & err.Number & " - " & err.Description
End Sub

Private Sub Form_Deactivate()
    LoadSkin Me, NeActive, False, LoadIt
End Sub

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
    Select Case KeyCode
        Case vbKeyEscape: Me.Hide
    End Select
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
    If Button = vbLeftButton Then
        If y <= intCloseHeight And x < intCloseLeft Then
            WindowMove Me
        End If
        If Screen.MousePointer <> vbDefault Then Screen.MousePointer = vbDefault
    End If
End Sub

Private Sub Form_Load()
On Error GoTo err:
    Dim i As Integer
    Aktiv = False
    Set cmdClose = Me.Controls.Add("ChatTool.bgclose", "cmdClose")
    cmdClose.Visible = True
    shpFrame.BackColor = Title.txtUnlockedColor
    lblEmoticon.BackColor = Title.txtLockedColor
    LoadGUIText
    imgSmiley_Click 0
    Exit Sub
err:
    DebugLog "ERR - frmEmoticons - Form_load - " & err.Number & " - " & err.Description
End Sub

Public Sub LoadGUIText()
    Me.Caption = "ChatTool - Emoticons"
    lblEmoticon.Caption = " " & GetText(1808) & " "  'Text: Emoticon
    bgCmdOk.Caption = GetText(1800) 'Text: &Ok
End Sub

Public Sub imgSmiley_Click(Index As Integer)
    If intChosenEmoticonIndex <> -1 Then
        imgSmiley(intChosenEmoticonIndex).BorderStyle = 0
    End If
    imgSmiley(Index).BorderStyle = 1
    intChosenEmoticonIndex = Index
    lblEmoticon.Caption = " " & GetEmoticonName(Index) & " "
End Sub

Public Sub ResetSmileyClick()
    imgSmiley(intChosenEmoticonIndex).BorderStyle = 0
    lblEmoticon.Caption = " " & GetText(1808) & " "  'Text: Emoticon
End Sub

Public Function GetEmoticonName(intIndex As Integer) As String
    GetEmoticonName = GetText(1700 + intIndex)
End Function

Private Sub imgSmiley_DblClick(Index As Integer)
    imgSmiley_Click Index
    bgCmdOk_Click
End Sub

Public Sub ChangeLanguage()
    LoadGUIText
    If intChosenEmoticonIndex <> -1 Then
        lblEmoticon.Caption = " " & GetEmoticonName(intChosenEmoticonIndex) & " "
    End If
End Sub

Project Homepage: