MDM, CHAT, MSE_API

VERAG_PROG_ALLGEMEIN/Messenger/frmMessenger.vb

@@ -15,7 +15,7 @@ Public Class frmMessenger
     Dim topMessagesDateHistory As Object = Nothing
     Dim loaded = False
     Public EMOJI_PATH_MAIN = DATENVERVER_OPTIONS.getRootDir & "\DOKUMENTE\CHAT_EMOJIS\"
-    Public EMOJI_PATH = ""
+    Public EMOJI_PATH = cAllgemein.EMOJI_PATH
     Public AvisoId As Integer = -1
     Public SendungID As Integer = -1
 
@@ -67,6 +67,7 @@ Public Class frmMessenger
         Catch ex As Exception
             VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
         End Try
+
     End Sub
     Private Sub MyDatagridview1_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgvChats.CellContentClick, dgvChats.CellClick
         If dgvChats.Rows(e.RowIndex).Cells("ungelesen").Value <> "" Then
@@ -86,7 +87,7 @@ Public Class frmMessenger
     End Sub
 
     Private Sub frmMessenger_Load(sender As Object, e As EventArgs) Handles Me.Load
-        initEMOJI_PATH()
+        'initEMOJI_PATH()
         VERAG_PROG_ALLGEMEIN.cProgramFunctions.SetDoubleBuffered(MyFlowLayoutPanel1)
         rtbChatMessage.AllowDrop = True
         MSG_LISTENDER.START()