neu

VERAG_PROG_ALLGEMEIN/Messenger/usrCntlMessenger_ChatElement.vb

@@ -32,6 +32,20 @@ Public Class usrCntlMessenger_ChatElement
         If CHAT_MSG IsNot Nothing Then
             lblDateTime.Text = CHAT_MSG.chatMg_datetime.ToString("dd.MM.yyyy HH:mm:ss")
             lblName.Text = CHAT_MSG.chatMg_maName & " (" & CHAT_MSG.chatMg_maFirma & ")"
+            txtChatmessage.Text = CHAT_MSG.chatMg_text
+            Dim cnt = 0
+            While (txtChatmessage.Size.Width - txtChatmessage.ClientSize.Width > 10) And cnt < 20 ' (txtChatmessage.Height - txtChatmessage.ClientSize.Height) > MyRTBInnerSize Or cnt > 100
+                Me.Height += 20 : cnt += 1
+            End While
+            setRead()
         End If
     End Sub
+
+    Sub setRead()
+        For Each ST In CHAT_MSG.CHAT_MESSAGES_STATUS_LIST
+            If ST.chatMgSt_MaId = VERAG_PROG_ALLGEMEIN.cAllgemein.USRID Then
+                lblNewMsg.Visible = Not ST.chatMgSt_gelesen
+            End If
+        Next
+    End Sub
 End Class