Imports System.Drawing

Public Class usrCntlMessenger_ChatAnhang
    Property BG_COLOR As Color = Color.FromArgb(192, 255, 192) ' Color.Azure
    Property CHAT_MSG As VERAG_PROG_ALLGEMEIN.cMessenger.cMessenger_ChatMessages

    'Public FI As String = ""

    Sub New()

        ' Dieser Aufruf ist für den Designer erforderlich.
        InitializeComponent()

        ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.

    End Sub

    Sub New(CHAT_MSG As VERAG_PROG_ALLGEMEIN.cMessenger.cMessenger_ChatMessages)

        ' Dieser Aufruf ist für den Designer erforderlich.
        InitializeComponent()
        Me.CHAT_MSG = CHAT_MSG
        ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.

    End Sub
    Sub setBgCOLOR(BG_COLOR)
        ' Me.BG_COLOR = BG_COLOR
        ' txtChatmessage.BackColor = BG_COLOR
        Panel1.BackColor = BG_COLOR
    End Sub

    Private Sub usrCntlMessenger_ChatAnhang_Load(sender As Object, e As EventArgs) Handles Me.Load
        init()
    End Sub

    Sub init()
        If CHAT_MSG IsNot Nothing Then
            txtChatmessage.Text = CHAT_MSG.chatMg_text
            lblDateTime.Text = CHAT_MSG.chatMg_datetime.ToString("dd.MM.yyyy HH:mm:ss")
            lblName.Text = CHAT_MSG.chatMg_maName & " (" & CHAT_MSG.chatMg_maFirma & ")"

            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

    Private Sub pic_Click(sender As Object, e As EventArgs) Handles pic.Click, txtChatmessage.Click
        If CHAT_MSG IsNot Nothing Then
            Dim PATH = cDATENSERVER.GET_PDFPath_BY_DocID(CHAT_MSG.chatMg_anhang_docId, True)
            'Process.Start(PATH)
        End If
    End Sub


End Class