MS: Conversations

2020-06-23 10:39:24 +02:00
parent 238c8e0860
commit a45b81dc47
39 changed files with 1652 additions and 206 deletions
--- a/Controls.ChatControl/ChatControl.Designer.vb
+++ b/Controls.ChatControl/ChatControl.Designer.vb
@@ -1,9 +1,9 @@
-<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
 Partial Class ChatControl
    Inherits System.Windows.Forms.UserControl

    'UserControl1 überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
-    <System.Diagnostics.DebuggerNonUserCode()> _
+    <System.Diagnostics.DebuggerNonUserCode()>
    Protected Overrides Sub Dispose(ByVal disposing As Boolean)
        Try
            If disposing AndAlso components IsNot Nothing Then
@@ -20,7 +20,7 @@ Partial Class ChatControl
    'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
    'Das Bearbeiten ist mit dem Windows Form-Designer möglich.  
    'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
-    <System.Diagnostics.DebuggerStepThrough()> _
+    <System.Diagnostics.DebuggerStepThrough()>
    Private Sub InitializeComponent()
        Me.components = New System.ComponentModel.Container()
        Dim ItemTemplate1 As DevExpress.XtraGrid.Views.Tile.ItemTemplate = New DevExpress.XtraGrid.Views.Tile.ItemTemplate()
@@ -29,39 +29,59 @@ Partial Class ChatControl
        Dim TileViewItemElement1 As DevExpress.XtraGrid.Views.Tile.TileViewItemElement = New DevExpress.XtraGrid.Views.Tile.TileViewItemElement()
        Dim TileViewItemElement2 As DevExpress.XtraGrid.Views.Tile.TileViewItemElement = New DevExpress.XtraGrid.Views.Tile.TileViewItemElement()
        Dim TileViewItemElement3 As DevExpress.XtraGrid.Views.Tile.TileViewItemElement = New DevExpress.XtraGrid.Views.Tile.TileViewItemElement()
+        Dim TileViewItemElement4 As DevExpress.XtraGrid.Views.Tile.TileViewItemElement = New DevExpress.XtraGrid.Views.Tile.TileViewItemElement()
        Dim TableRowDefinition1 As DevExpress.XtraEditors.TableLayout.TableRowDefinition = New DevExpress.XtraEditors.TableLayout.TableRowDefinition()
        Dim TableRowDefinition2 As DevExpress.XtraEditors.TableLayout.TableRowDefinition = New DevExpress.XtraEditors.TableLayout.TableRowDefinition()
+        Dim TableRowDefinition3 As DevExpress.XtraEditors.TableLayout.TableRowDefinition = New DevExpress.XtraEditors.TableLayout.TableRowDefinition()
        Dim ItemTemplate2 As DevExpress.XtraGrid.Views.Tile.ItemTemplate = New DevExpress.XtraGrid.Views.Tile.ItemTemplate()
        Dim TableColumnDefinition3 As DevExpress.XtraEditors.TableLayout.TableColumnDefinition = New DevExpress.XtraEditors.TableLayout.TableColumnDefinition()
        Dim TableColumnDefinition4 As DevExpress.XtraEditors.TableLayout.TableColumnDefinition = New DevExpress.XtraEditors.TableLayout.TableColumnDefinition()
-        Dim TileViewItemElement4 As DevExpress.XtraGrid.Views.Tile.TileViewItemElement = New DevExpress.XtraGrid.Views.Tile.TileViewItemElement()
        Dim TileViewItemElement5 As DevExpress.XtraGrid.Views.Tile.TileViewItemElement = New DevExpress.XtraGrid.Views.Tile.TileViewItemElement()
        Dim TileViewItemElement6 As DevExpress.XtraGrid.Views.Tile.TileViewItemElement = New DevExpress.XtraGrid.Views.Tile.TileViewItemElement()
-        Dim TableRowDefinition3 As DevExpress.XtraEditors.TableLayout.TableRowDefinition = New DevExpress.XtraEditors.TableLayout.TableRowDefinition()
+        Dim TileViewItemElement7 As DevExpress.XtraGrid.Views.Tile.TileViewItemElement = New DevExpress.XtraGrid.Views.Tile.TileViewItemElement()
        Dim TableRowDefinition4 As DevExpress.XtraEditors.TableLayout.TableRowDefinition = New DevExpress.XtraEditors.TableLayout.TableRowDefinition()
+        Dim TableRowDefinition5 As DevExpress.XtraEditors.TableLayout.TableRowDefinition = New DevExpress.XtraEditors.TableLayout.TableRowDefinition()
+        Dim ItemTemplate3 As DevExpress.XtraGrid.Views.Tile.ItemTemplate = New DevExpress.XtraGrid.Views.Tile.ItemTemplate()
        Dim TableColumnDefinition5 As DevExpress.XtraEditors.TableLayout.TableColumnDefinition = New DevExpress.XtraEditors.TableLayout.TableColumnDefinition()
        Dim TableColumnDefinition6 As DevExpress.XtraEditors.TableLayout.TableColumnDefinition = New DevExpress.XtraEditors.TableLayout.TableColumnDefinition()
-        Dim TableRowDefinition5 As DevExpress.XtraEditors.TableLayout.TableRowDefinition = New DevExpress.XtraEditors.TableLayout.TableRowDefinition()
+        Dim TileViewItemElement8 As DevExpress.XtraGrid.Views.Tile.TileViewItemElement = New DevExpress.XtraGrid.Views.Tile.TileViewItemElement()
+        Dim TileViewItemElement9 As DevExpress.XtraGrid.Views.Tile.TileViewItemElement = New DevExpress.XtraGrid.Views.Tile.TileViewItemElement()
+        Dim TileViewItemElement10 As DevExpress.XtraGrid.Views.Tile.TileViewItemElement = New DevExpress.XtraGrid.Views.Tile.TileViewItemElement()
+        Dim TileViewItemElement11 As DevExpress.XtraGrid.Views.Tile.TileViewItemElement = New DevExpress.XtraGrid.Views.Tile.TileViewItemElement()
        Dim TableRowDefinition6 As DevExpress.XtraEditors.TableLayout.TableRowDefinition = New DevExpress.XtraEditors.TableLayout.TableRowDefinition()
+        Dim TableRowDefinition7 As DevExpress.XtraEditors.TableLayout.TableRowDefinition = New DevExpress.XtraEditors.TableLayout.TableRowDefinition()
+        Dim TableRowDefinition8 As DevExpress.XtraEditors.TableLayout.TableRowDefinition = New DevExpress.XtraEditors.TableLayout.TableRowDefinition()
+        Dim TableColumnDefinition7 As DevExpress.XtraEditors.TableLayout.TableColumnDefinition = New DevExpress.XtraEditors.TableLayout.TableColumnDefinition()
+        Dim TableColumnDefinition8 As DevExpress.XtraEditors.TableLayout.TableColumnDefinition = New DevExpress.XtraEditors.TableLayout.TableColumnDefinition()
+        Dim TableRowDefinition9 As DevExpress.XtraEditors.TableLayout.TableRowDefinition = New DevExpress.XtraEditors.TableLayout.TableRowDefinition()
+        Dim TableRowDefinition10 As DevExpress.XtraEditors.TableLayout.TableRowDefinition = New DevExpress.XtraEditors.TableLayout.TableRowDefinition()
        Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(ChatControl))
        Me.columnUsername = New DevExpress.XtraGrid.Columns.TileViewColumn()
        Me.columnMessage = New DevExpress.XtraGrid.Columns.TileViewColumn()
        Me.columnDate = New DevExpress.XtraGrid.Columns.TileViewColumn()
+        Me.columnTO_USER = New DevExpress.XtraGrid.Columns.TileViewColumn()
        Me.RepositoryItemHypertextLabel1 = New DevExpress.XtraEditors.Repository.RepositoryItemHypertextLabel()
        Me.RepositoryItemHyperLinkEdit1 = New DevExpress.XtraEditors.Repository.RepositoryItemHyperLinkEdit()
        Me.GridChat = New DevExpress.XtraGrid.GridControl()
        Me.ChatView = New DevExpress.XtraGrid.Views.Tile.TileView()
        Me.btnSendMessage = New DevExpress.XtraEditors.SimpleButton()
        Me.ChatSource = New System.Windows.Forms.BindingSource(Me.components)
-        Me.Panel1 = New System.Windows.Forms.Panel()
-        Me.txtMessage = New System.Windows.Forms.TextBox()
-        Me.lblTitle = New System.Windows.Forms.Label()
+        Me.pnlMessage = New System.Windows.Forms.Panel()
+        Me.ListBoxUserMention = New System.Windows.Forms.ListBox()
+        Me.RichTextBox1 = New System.Windows.Forms.RichTextBox()
+        Me.MenuStrip1 = New System.Windows.Forms.MenuStrip()
+        Me.tsmitmTitle = New System.Windows.Forms.ToolStripMenuItem()
+        Me.tsmenitmHamburger = New System.Windows.Forms.ToolStripMenuItem()
+        Me.ToolStripMenuItemConv_end = New System.Windows.Forms.ToolStripMenuItem()
+        Me.BenutzerHinzufügenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.TeilnehmerToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
        CType(Me.RepositoryItemHypertextLabel1, System.ComponentModel.ISupportInitialize).BeginInit()
        CType(Me.RepositoryItemHyperLinkEdit1, System.ComponentModel.ISupportInitialize).BeginInit()
        CType(Me.GridChat, System.ComponentModel.ISupportInitialize).BeginInit()
        CType(Me.ChatView, System.ComponentModel.ISupportInitialize).BeginInit()
        CType(Me.ChatSource, System.ComponentModel.ISupportInitialize).BeginInit()
-        Me.Panel1.SuspendLayout()
+        Me.pnlMessage.SuspendLayout()
+        Me.MenuStrip1.SuspendLayout()
        Me.SuspendLayout()
        '
        'columnUsername
@@ -84,6 +104,8 @@ Partial Class ChatControl
        '
        'columnDate
        '
+        Me.columnDate.DisplayFormat.FormatString = "g"
+        Me.columnDate.DisplayFormat.FormatType = DevExpress.Utils.FormatType.DateTime
        Me.columnDate.FieldName = "ADDED_WHEN"
        Me.columnDate.MinWidth = 23
        Me.columnDate.Name = "columnDate"
@@ -91,6 +113,15 @@ Partial Class ChatControl
        Me.columnDate.VisibleIndex = 2
        Me.columnDate.Width = 87
        '
+        'columnTO_USER
+        '
+        Me.columnTO_USER.AppearanceCell.BackColor = System.Drawing.Color.GreenYellow
+        Me.columnTO_USER.AppearanceCell.Options.UseBackColor = True
+        Me.columnTO_USER.FieldName = "TO_USER"
+        Me.columnTO_USER.Name = "columnTO_USER"
+        Me.columnTO_USER.Visible = True
+        Me.columnTO_USER.VisibleIndex = 3
+        '
        'RepositoryItemHypertextLabel1
        '
        Me.RepositoryItemHypertextLabel1.Name = "RepositoryItemHypertextLabel1"
@@ -120,7 +151,7 @@ Partial Class ChatControl
        '
        'ChatView
        '
-        Me.ChatView.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.columnMessage, Me.columnUsername, Me.columnDate})
+        Me.ChatView.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.columnMessage, Me.columnUsername, Me.columnDate, Me.columnTO_USER})
        Me.ChatView.ContextButtonOptions.HoverStateOpacity = 0.75!
        Me.ChatView.ContextButtonOptions.TopPanelColor = System.Drawing.Color.White
        Me.ChatView.DetailHeight = 431
@@ -131,7 +162,7 @@ Partial Class ChatControl
        Me.ChatView.OptionsTiles.IndentBetweenGroups = 0
        Me.ChatView.OptionsTiles.IndentBetweenItems = 10
        Me.ChatView.OptionsTiles.ItemPadding = New System.Windows.Forms.Padding(0)
-        Me.ChatView.OptionsTiles.ItemSize = New System.Drawing.Size(374, 64)
+        Me.ChatView.OptionsTiles.ItemSize = New System.Drawing.Size(374, 90)
        Me.ChatView.OptionsTiles.LayoutMode = DevExpress.XtraGrid.Views.Tile.TileViewLayoutMode.Kanban
        Me.ChatView.OptionsTiles.Orientation = System.Windows.Forms.Orientation.Vertical
        Me.ChatView.OptionsTiles.Padding = New System.Windows.Forms.Padding(5)
@@ -144,13 +175,14 @@ Partial Class ChatControl
        TileViewItemElement1.Column = Me.columnUsername
        TileViewItemElement1.ImageOptions.ImageAlignment = DevExpress.XtraEditors.TileItemContentAlignment.MiddleCenter
        TileViewItemElement1.ImageOptions.ImageScaleMode = DevExpress.XtraEditors.TileItemImageScaleMode.ZoomInside
+        TileViewItemElement1.RowIndex = 1
        TileViewItemElement1.Text = "columnUsername"
        TileViewItemElement1.TextAlignment = DevExpress.XtraEditors.TileItemContentAlignment.MiddleLeft
        TileViewItemElement1.TextLocation = New System.Drawing.Point(10, 0)
        TileViewItemElement2.Column = Me.columnMessage
        TileViewItemElement2.ImageOptions.ImageAlignment = DevExpress.XtraEditors.TileItemContentAlignment.MiddleCenter
        TileViewItemElement2.ImageOptions.ImageScaleMode = DevExpress.XtraEditors.TileItemImageScaleMode.ZoomInside
-        TileViewItemElement2.RowIndex = 1
+        TileViewItemElement2.RowIndex = 2
        TileViewItemElement2.Text = "columnMessage"
        TileViewItemElement2.TextAlignment = DevExpress.XtraEditors.TileItemContentAlignment.MiddleLeft
        TileViewItemElement2.TextLocation = New System.Drawing.Point(10, 0)
@@ -158,56 +190,109 @@ Partial Class ChatControl
        TileViewItemElement3.ColumnIndex = 1
        TileViewItemElement3.ImageOptions.ImageAlignment = DevExpress.XtraEditors.TileItemContentAlignment.MiddleCenter
        TileViewItemElement3.ImageOptions.ImageScaleMode = DevExpress.XtraEditors.TileItemImageScaleMode.ZoomInside
+        TileViewItemElement3.RowIndex = 1
        TileViewItemElement3.Text = "columnDate"
        TileViewItemElement3.TextAlignment = DevExpress.XtraEditors.TileItemContentAlignment.MiddleRight
        TileViewItemElement3.TextLocation = New System.Drawing.Point(-10, 0)
+        TileViewItemElement4.Column = Me.columnTO_USER
+        TileViewItemElement4.ImageOptions.ImageAlignment = DevExpress.XtraEditors.TileItemContentAlignment.MiddleCenter
+        TileViewItemElement4.ImageOptions.ImageScaleMode = DevExpress.XtraEditors.TileItemImageScaleMode.ZoomInside
+        TileViewItemElement4.Text = "columnTO_USER"
+        TileViewItemElement4.TextAlignment = DevExpress.XtraEditors.TileItemContentAlignment.MiddleCenter
        ItemTemplate1.Elements.Add(TileViewItemElement1)
        ItemTemplate1.Elements.Add(TileViewItemElement2)
        ItemTemplate1.Elements.Add(TileViewItemElement3)
+        ItemTemplate1.Elements.Add(TileViewItemElement4)
        ItemTemplate1.Name = "ChatLeft"
-        TableRowDefinition1.Length.Value = 24.0R
-        TableRowDefinition2.Length.Value = 24.0R
+        TableRowDefinition1.Length.Value = 40.0R
+        TableRowDefinition2.Length.Value = 19.0R
+        TableRowDefinition3.Length.Value = 45.0R
        ItemTemplate1.Rows.Add(TableRowDefinition1)
        ItemTemplate1.Rows.Add(TableRowDefinition2)
+        ItemTemplate1.Rows.Add(TableRowDefinition3)
        TableColumnDefinition3.Length.Value = 100.0R
        TableColumnDefinition4.Length.Value = 250.0R
        ItemTemplate2.Columns.Add(TableColumnDefinition3)
        ItemTemplate2.Columns.Add(TableColumnDefinition4)
-        TileViewItemElement4.Column = Me.columnUsername
-        TileViewItemElement4.ColumnIndex = 1
-        TileViewItemElement4.ImageOptions.ImageAlignment = DevExpress.XtraEditors.TileItemContentAlignment.MiddleCenter
-        TileViewItemElement4.ImageOptions.ImageScaleMode = DevExpress.XtraEditors.TileItemImageScaleMode.ZoomInside
-        TileViewItemElement4.Text = "columnUsername"
-        TileViewItemElement4.TextAlignment = DevExpress.XtraEditors.TileItemContentAlignment.MiddleRight
-        TileViewItemElement4.TextLocation = New System.Drawing.Point(-10, 0)
-        TileViewItemElement5.Column = Me.columnMessage
+        TileViewItemElement5.Column = Me.columnUsername
        TileViewItemElement5.ColumnIndex = 1
        TileViewItemElement5.ImageOptions.ImageAlignment = DevExpress.XtraEditors.TileItemContentAlignment.MiddleCenter
        TileViewItemElement5.ImageOptions.ImageScaleMode = DevExpress.XtraEditors.TileItemImageScaleMode.ZoomInside
-        TileViewItemElement5.RowIndex = 1
-        TileViewItemElement5.Text = "columnMessage"
+        TileViewItemElement5.Text = "columnUsername"
        TileViewItemElement5.TextAlignment = DevExpress.XtraEditors.TileItemContentAlignment.MiddleRight
        TileViewItemElement5.TextLocation = New System.Drawing.Point(-10, 0)
-        TileViewItemElement6.Column = Me.columnDate
+        TileViewItemElement6.Column = Me.columnMessage
+        TileViewItemElement6.ColumnIndex = 1
        TileViewItemElement6.ImageOptions.ImageAlignment = DevExpress.XtraEditors.TileItemContentAlignment.MiddleCenter
        TileViewItemElement6.ImageOptions.ImageScaleMode = DevExpress.XtraEditors.TileItemImageScaleMode.ZoomInside
-        TileViewItemElement6.Text = "columnDate"
-        TileViewItemElement6.TextAlignment = DevExpress.XtraEditors.TileItemContentAlignment.MiddleLeft
-        TileViewItemElement6.TextLocation = New System.Drawing.Point(10, 0)
-        ItemTemplate2.Elements.Add(TileViewItemElement4)
+        TileViewItemElement6.RowIndex = 1
+        TileViewItemElement6.Text = "columnMessage"
+        TileViewItemElement6.TextAlignment = DevExpress.XtraEditors.TileItemContentAlignment.MiddleRight
+        TileViewItemElement6.TextLocation = New System.Drawing.Point(-10, 0)
+        TileViewItemElement7.Column = Me.columnDate
+        TileViewItemElement7.ImageOptions.ImageAlignment = DevExpress.XtraEditors.TileItemContentAlignment.MiddleCenter
+        TileViewItemElement7.ImageOptions.ImageScaleMode = DevExpress.XtraEditors.TileItemImageScaleMode.ZoomInside
+        TileViewItemElement7.Text = "columnDate"
+        TileViewItemElement7.TextAlignment = DevExpress.XtraEditors.TileItemContentAlignment.MiddleLeft
+        TileViewItemElement7.TextLocation = New System.Drawing.Point(10, 0)
        ItemTemplate2.Elements.Add(TileViewItemElement5)
        ItemTemplate2.Elements.Add(TileViewItemElement6)
+        ItemTemplate2.Elements.Add(TileViewItemElement7)
        ItemTemplate2.Name = "ChatRight"
-        TableRowDefinition3.Length.Value = 24.0R
-        TableRowDefinition4.Length.Value = 24.0R
-        ItemTemplate2.Rows.Add(TableRowDefinition3)
+        TableRowDefinition4.Length.Value = 19.0R
+        TableRowDefinition5.Length.Value = 45.0R
        ItemTemplate2.Rows.Add(TableRowDefinition4)
+        ItemTemplate2.Rows.Add(TableRowDefinition5)
+        TableColumnDefinition5.Length.Value = 250.0R
+        TableColumnDefinition6.Length.Value = 100.0R
+        ItemTemplate3.Columns.Add(TableColumnDefinition5)
+        ItemTemplate3.Columns.Add(TableColumnDefinition6)
+        TileViewItemElement8.Column = Me.columnUsername
+        TileViewItemElement8.ImageOptions.ImageAlignment = DevExpress.XtraEditors.TileItemContentAlignment.MiddleCenter
+        TileViewItemElement8.ImageOptions.ImageScaleMode = DevExpress.XtraEditors.TileItemImageScaleMode.ZoomInside
+        TileViewItemElement8.RowIndex = 1
+        TileViewItemElement8.Text = "columnUsername"
+        TileViewItemElement8.TextAlignment = DevExpress.XtraEditors.TileItemContentAlignment.MiddleLeft
+        TileViewItemElement8.TextLocation = New System.Drawing.Point(10, 0)
+        TileViewItemElement9.Column = Me.columnMessage
+        TileViewItemElement9.ImageOptions.ImageAlignment = DevExpress.XtraEditors.TileItemContentAlignment.MiddleCenter
+        TileViewItemElement9.ImageOptions.ImageScaleMode = DevExpress.XtraEditors.TileItemImageScaleMode.ZoomInside
+        TileViewItemElement9.RowIndex = 2
+        TileViewItemElement9.Text = "columnMessage"
+        TileViewItemElement9.TextAlignment = DevExpress.XtraEditors.TileItemContentAlignment.MiddleLeft
+        TileViewItemElement9.TextLocation = New System.Drawing.Point(10, 0)
+        TileViewItemElement10.Column = Me.columnDate
+        TileViewItemElement10.ColumnIndex = 1
+        TileViewItemElement10.ImageOptions.ImageAlignment = DevExpress.XtraEditors.TileItemContentAlignment.MiddleCenter
+        TileViewItemElement10.ImageOptions.ImageScaleMode = DevExpress.XtraEditors.TileItemImageScaleMode.ZoomInside
+        TileViewItemElement10.RowIndex = 1
+        TileViewItemElement10.Text = "columnDate"
+        TileViewItemElement10.TextAlignment = DevExpress.XtraEditors.TileItemContentAlignment.MiddleRight
+        TileViewItemElement10.TextLocation = New System.Drawing.Point(-10, 0)
+        TileViewItemElement11.Column = Me.columnTO_USER
+        TileViewItemElement11.ImageOptions.ImageAlignment = DevExpress.XtraEditors.TileItemContentAlignment.MiddleCenter
+        TileViewItemElement11.ImageOptions.ImageScaleMode = DevExpress.XtraEditors.TileItemImageScaleMode.ZoomInside
+        TileViewItemElement11.Text = "columnTO_USER"
+        TileViewItemElement11.TextAlignment = DevExpress.XtraEditors.TileItemContentAlignment.MiddleLeft
+        TileViewItemElement11.TextLocation = New System.Drawing.Point(10, 0)
+        ItemTemplate3.Elements.Add(TileViewItemElement8)
+        ItemTemplate3.Elements.Add(TileViewItemElement9)
+        ItemTemplate3.Elements.Add(TileViewItemElement10)
+        ItemTemplate3.Elements.Add(TileViewItemElement11)
+        ItemTemplate3.Name = "ChatTo"
+        TableRowDefinition6.Length.Value = 17.0R
+        TableRowDefinition7.Length.Value = 19.0R
+        TableRowDefinition8.Length.Value = 54.0R
+        ItemTemplate3.Rows.Add(TableRowDefinition6)
+        ItemTemplate3.Rows.Add(TableRowDefinition7)
+        ItemTemplate3.Rows.Add(TableRowDefinition8)
        Me.ChatView.Templates.Add(ItemTemplate1)
        Me.ChatView.Templates.Add(ItemTemplate2)
-        Me.ChatView.TileColumns.Add(TableColumnDefinition5)
-        Me.ChatView.TileColumns.Add(TableColumnDefinition6)
-        Me.ChatView.TileRows.Add(TableRowDefinition5)
-        Me.ChatView.TileRows.Add(TableRowDefinition6)
+        Me.ChatView.Templates.Add(ItemTemplate3)
+        Me.ChatView.TileColumns.Add(TableColumnDefinition7)
+        Me.ChatView.TileColumns.Add(TableColumnDefinition8)
+        Me.ChatView.TileRows.Add(TableRowDefinition9)
+        Me.ChatView.TileRows.Add(TableRowDefinition10)
        '
        'btnSendMessage
        '
@@ -222,53 +307,95 @@ Partial Class ChatControl
        Me.btnSendMessage.TabIndex = 2
        Me.btnSendMessage.ToolTip = "Add message"
        '
-        'Panel1
+        'pnlMessage
        '
-        Me.Panel1.BackColor = System.Drawing.SystemColors.GradientActiveCaption
-        Me.Panel1.Controls.Add(Me.txtMessage)
-        Me.Panel1.Controls.Add(Me.btnSendMessage)
-        Me.Panel1.Dock = System.Windows.Forms.DockStyle.Bottom
-        Me.Panel1.Location = New System.Drawing.Point(0, 485)
-        Me.Panel1.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
-        Me.Panel1.Name = "Panel1"
-        Me.Panel1.Size = New System.Drawing.Size(422, 102)
-        Me.Panel1.TabIndex = 3
+        Me.pnlMessage.BackColor = System.Drawing.Color.DimGray
+        Me.pnlMessage.Controls.Add(Me.ListBoxUserMention)
+        Me.pnlMessage.Controls.Add(Me.RichTextBox1)
+        Me.pnlMessage.Controls.Add(Me.btnSendMessage)
+        Me.pnlMessage.Dock = System.Windows.Forms.DockStyle.Bottom
+        Me.pnlMessage.Location = New System.Drawing.Point(0, 485)
+        Me.pnlMessage.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.pnlMessage.Name = "pnlMessage"
+        Me.pnlMessage.Size = New System.Drawing.Size(422, 102)
+        Me.pnlMessage.TabIndex = 3
        '
-        'txtMessage
+        'ListBoxUserMention
        '
-        Me.txtMessage.AcceptsReturn = True
-        Me.txtMessage.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
-            Or System.Windows.Forms.AnchorStyles.Left) _
-            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
-        Me.txtMessage.BackColor = System.Drawing.Color.GhostWhite
-        Me.txtMessage.BorderStyle = System.Windows.Forms.BorderStyle.None
-        Me.txtMessage.Font = New System.Drawing.Font("Calibri", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.txtMessage.ForeColor = System.Drawing.SystemColors.InfoText
-        Me.txtMessage.Location = New System.Drawing.Point(17, 15)
-        Me.txtMessage.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
-        Me.txtMessage.Multiline = True
-        Me.txtMessage.Name = "txtMessage"
-        Me.txtMessage.ScrollBars = System.Windows.Forms.ScrollBars.Vertical
-        Me.txtMessage.Size = New System.Drawing.Size(349, 70)
-        Me.txtMessage.TabIndex = 3
+        Me.ListBoxUserMention.BackColor = System.Drawing.SystemColors.Window
+        Me.ListBoxUserMention.BorderStyle = System.Windows.Forms.BorderStyle.None
+        Me.ListBoxUserMention.ForeColor = System.Drawing.Color.Blue
+        Me.ListBoxUserMention.FormattingEnabled = True
+        Me.ListBoxUserMention.ItemHeight = 16
+        Me.ListBoxUserMention.Location = New System.Drawing.Point(191, 22)
+        Me.ListBoxUserMention.Name = "ListBoxUserMention"
+        Me.ListBoxUserMention.Size = New System.Drawing.Size(129, 80)
+        Me.ListBoxUserMention.TabIndex = 4
+        Me.ListBoxUserMention.Visible = False
        '
-        'lblTitle
+        'RichTextBox1
        '
-        Me.lblTitle.AutoSize = True
-        Me.lblTitle.Font = New System.Drawing.Font("Tahoma", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.lblTitle.Location = New System.Drawing.Point(3, 10)
-        Me.lblTitle.Name = "lblTitle"
-        Me.lblTitle.Size = New System.Drawing.Size(50, 16)
-        Me.lblTitle.TabIndex = 4
-        Me.lblTitle.Text = "Label1"
+        Me.RichTextBox1.AutoWordSelection = True
+        Me.RichTextBox1.Location = New System.Drawing.Point(10, 6)
+        Me.RichTextBox1.Name = "RichTextBox1"
+        Me.RichTextBox1.ShowSelectionMargin = True
+        Me.RichTextBox1.Size = New System.Drawing.Size(353, 91)
+        Me.RichTextBox1.TabIndex = 3
+        Me.RichTextBox1.Text = ""
+        '
+        'MenuStrip1
+        '
+        Me.MenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.tsmitmTitle, Me.tsmenitmHamburger, Me.TeilnehmerToolStripMenuItem})
+        Me.MenuStrip1.Location = New System.Drawing.Point(0, 0)
+        Me.MenuStrip1.Name = "MenuStrip1"
+        Me.MenuStrip1.Size = New System.Drawing.Size(422, 25)
+        Me.MenuStrip1.TabIndex = 4
+        Me.MenuStrip1.Text = "MenuStrip1"
+        '
+        'tsmitmTitle
+        '
+        Me.tsmitmTitle.Font = New System.Drawing.Font("Segoe UI", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.tsmitmTitle.Name = "tsmitmTitle"
+        Me.tsmitmTitle.Size = New System.Drawing.Size(48, 21)
+        Me.tsmitmTitle.Text = "sdsd"
+        '
+        'tsmenitmHamburger
+        '
+        Me.tsmenitmHamburger.Alignment = System.Windows.Forms.ToolStripItemAlignment.Right
+        Me.tsmenitmHamburger.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripMenuItemConv_end, Me.BenutzerHinzufügenToolStripMenuItem})
+        Me.tsmenitmHamburger.Image = Global.DigitalData.Controls.ChatControl.My.Resources.Resources.kisspng_computer_icons_hamburger_button_menu_new_menu_5b34724c3cb0f7_1188475115301637882486
+        Me.tsmenitmHamburger.Name = "tsmenitmHamburger"
+        Me.tsmenitmHamburger.Size = New System.Drawing.Size(28, 21)
+        '
+        'ToolStripMenuItemConv_end
+        '
+        Me.ToolStripMenuItemConv_end.Image = Global.DigitalData.Controls.ChatControl.My.Resources.Resources.StatusAnnotations_Stop_16xLG
+        Me.ToolStripMenuItemConv_end.Name = "ToolStripMenuItemConv_end"
+        Me.ToolStripMenuItemConv_end.Size = New System.Drawing.Size(192, 22)
+        Me.ToolStripMenuItemConv_end.Text = "Konversation beenden"
+        '
+        'BenutzerHinzufügenToolStripMenuItem
+        '
+        Me.BenutzerHinzufügenToolStripMenuItem.Image = Global.DigitalData.Controls.ChatControl.My.Resources.Resources.action_add_16xLG
+        Me.BenutzerHinzufügenToolStripMenuItem.Name = "BenutzerHinzufügenToolStripMenuItem"
+        Me.BenutzerHinzufügenToolStripMenuItem.Size = New System.Drawing.Size(192, 22)
+        Me.BenutzerHinzufügenToolStripMenuItem.Text = "Benutzer hinzufügen"
+        '
+        'TeilnehmerToolStripMenuItem
+        '
+        Me.TeilnehmerToolStripMenuItem.Alignment = System.Windows.Forms.ToolStripItemAlignment.Right
+        Me.TeilnehmerToolStripMenuItem.ForeColor = System.Drawing.Color.DarkCyan
+        Me.TeilnehmerToolStripMenuItem.Name = "TeilnehmerToolStripMenuItem"
+        Me.TeilnehmerToolStripMenuItem.Size = New System.Drawing.Size(78, 21)
+        Me.TeilnehmerToolStripMenuItem.Text = "Teilnehmer"
        '
        'ChatControl
        '
        Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 16.0!)
        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
-        Me.Controls.Add(Me.lblTitle)
        Me.Controls.Add(Me.GridChat)
-        Me.Controls.Add(Me.Panel1)
+        Me.Controls.Add(Me.pnlMessage)
+        Me.Controls.Add(Me.MenuStrip1)
        Me.Font = New System.Drawing.Font("Tahoma", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
        Me.Name = "ChatControl"
@@ -278,8 +405,9 @@ Partial Class ChatControl
        CType(Me.GridChat, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.ChatView, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.ChatSource, System.ComponentModel.ISupportInitialize).EndInit()
-        Me.Panel1.ResumeLayout(False)
-        Me.Panel1.PerformLayout()
+        Me.pnlMessage.ResumeLayout(False)
+        Me.MenuStrip1.ResumeLayout(False)
+        Me.MenuStrip1.PerformLayout()
        Me.ResumeLayout(False)
        Me.PerformLayout()

@@ -293,7 +421,14 @@ Partial Class ChatControl
    Friend WithEvents btnSendMessage As DevExpress.XtraEditors.SimpleButton
    Friend WithEvents RepositoryItemHyperLinkEdit1 As DevExpress.XtraEditors.Repository.RepositoryItemHyperLinkEdit
    Friend WithEvents RepositoryItemHypertextLabel1 As DevExpress.XtraEditors.Repository.RepositoryItemHypertextLabel
-    Friend WithEvents txtMessage As TextBox
-    Friend WithEvents Panel1 As Panel
-    Friend WithEvents lblTitle As Label
+    Friend WithEvents pnlMessage As Panel
+    Friend WithEvents MenuStrip1 As MenuStrip
+    Friend WithEvents tsmitmTitle As ToolStripMenuItem
+    Friend WithEvents tsmenitmHamburger As ToolStripMenuItem
+    Friend WithEvents ToolStripMenuItemConv_end As ToolStripMenuItem
+    Friend WithEvents BenutzerHinzufügenToolStripMenuItem As ToolStripMenuItem
+    Friend WithEvents TeilnehmerToolStripMenuItem As ToolStripMenuItem
+    Friend WithEvents RichTextBox1 As RichTextBox
+    Friend WithEvents columnTO_USER As DevExpress.XtraGrid.Columns.TileViewColumn
+    Friend WithEvents ListBoxUserMention As ListBox
 End Class