AppStd/Modules
8
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

fix Chat

Browse Source
This commit is contained in:
Jonathan Jenne 2020-06-29 13:58:55 +02:00
parent 9ad959ef20
commit be2f505bde
2 changed files with 269 additions and 157 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

310
Controls.ChatControl/ChatControl.Designer.vb generated
View File

@ -29,32 +29,33 @@ Partial Class ChatControl
Dim TileViewItemElement1 As DevExpress.XtraGrid.Views.Tile.TileViewItemElement = New DevExpress.XtraGrid.Views.Tile.TileViewItemElement() 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 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 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 TableRowDefinition1 As DevExpress.XtraEditors.TableLayout.TableRowDefinition = New DevExpress.XtraEditors.TableLayout.TableRowDefinition()
Dim TableRowDefinition2 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 TableSpan1 As DevExpress.XtraEditors.TableLayout.TableSpan = New DevExpress.XtraEditors.TableLayout.TableSpan()
Dim ItemTemplate2 As DevExpress.XtraGrid.Views.Tile.ItemTemplate = New DevExpress.XtraGrid.Views.Tile.ItemTemplate() 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 TableColumnDefinition3 As DevExpress.XtraEditors.TableLayout.TableColumnDefinition = New DevExpress.XtraEditors.TableLayout.TableColumnDefinition()
Dim TableColumnDefinition4 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 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 TileViewItemElement6 As DevExpress.XtraGrid.Views.Tile.TileViewItemElement = New DevExpress.XtraGrid.Views.Tile.TileViewItemElement()
Dim TileViewItemElement7 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 TableRowDefinition4 As DevExpress.XtraEditors.TableLayout.TableRowDefinition = New DevExpress.XtraEditors.TableLayout.TableRowDefinition() 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 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 TableColumnDefinition5 As DevExpress.XtraEditors.TableLayout.TableColumnDefinition = New DevExpress.XtraEditors.TableLayout.TableColumnDefinition()
Dim TableColumnDefinition6 As DevExpress.XtraEditors.TableLayout.TableColumnDefinition = New DevExpress.XtraEditors.TableLayout.TableColumnDefinition() Dim TableColumnDefinition6 As DevExpress.XtraEditors.TableLayout.TableColumnDefinition = New DevExpress.XtraEditors.TableLayout.TableColumnDefinition()
Dim TileViewItemElement7 As DevExpress.XtraGrid.Views.Tile.TileViewItemElement = New DevExpress.XtraGrid.Views.Tile.TileViewItemElement()
Dim TileViewItemElement8 As DevExpress.XtraGrid.Views.Tile.TileViewItemElement = New DevExpress.XtraGrid.Views.Tile.TileViewItemElement() 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 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 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 TableRowDefinition5 As DevExpress.XtraEditors.TableLayout.TableRowDefinition = New DevExpress.XtraEditors.TableLayout.TableRowDefinition()
Dim TableRowDefinition6 As DevExpress.XtraEditors.TableLayout.TableRowDefinition = New DevExpress.XtraEditors.TableLayout.TableRowDefinition() 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 TableRowDefinition7 As DevExpress.XtraEditors.TableLayout.TableRowDefinition = New DevExpress.XtraEditors.TableLayout.TableRowDefinition()
Dim TableRowDefinition8 As DevExpress.XtraEditors.TableLayout.TableRowDefinition = New DevExpress.XtraEditors.TableLayout.TableRowDefinition() Dim TableSpan2 As DevExpress.XtraEditors.TableLayout.TableSpan = New DevExpress.XtraEditors.TableLayout.TableSpan()
Dim TableSpan3 As DevExpress.XtraEditors.TableLayout.TableSpan = New DevExpress.XtraEditors.TableLayout.TableSpan()
Dim TableColumnDefinition7 As DevExpress.XtraEditors.TableLayout.TableColumnDefinition = New DevExpress.XtraEditors.TableLayout.TableColumnDefinition() 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 TableColumnDefinition8 As DevExpress.XtraEditors.TableLayout.TableColumnDefinition = New DevExpress.XtraEditors.TableLayout.TableColumnDefinition()
Dim TableRowDefinition8 As DevExpress.XtraEditors.TableLayout.TableRowDefinition = New DevExpress.XtraEditors.TableLayout.TableRowDefinition()
Dim TableRowDefinition9 As DevExpress.XtraEditors.TableLayout.TableRowDefinition = New DevExpress.XtraEditors.TableLayout.TableRowDefinition() 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)) Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(ChatControl))
Me.columnUsername = New DevExpress.XtraGrid.Columns.TileViewColumn() Me.columnUsername = New DevExpress.XtraGrid.Columns.TileViewColumn()
Me.columnMessage = New DevExpress.XtraGrid.Columns.TileViewColumn() Me.columnMessage = New DevExpress.XtraGrid.Columns.TileViewColumn()
@ -62,8 +63,8 @@ Partial Class ChatControl
Me.columnTO_USER = New DevExpress.XtraGrid.Columns.TileViewColumn() Me.columnTO_USER = New DevExpress.XtraGrid.Columns.TileViewColumn()
Me.RepositoryItemHypertextLabel1 = New DevExpress.XtraEditors.Repository.RepositoryItemHypertextLabel() Me.RepositoryItemHypertextLabel1 = New DevExpress.XtraEditors.Repository.RepositoryItemHypertextLabel()
Me.RepositoryItemHyperLinkEdit1 = New DevExpress.XtraEditors.Repository.RepositoryItemHyperLinkEdit() Me.RepositoryItemHyperLinkEdit1 = New DevExpress.XtraEditors.Repository.RepositoryItemHyperLinkEdit()
Me.GridChat = New DevExpress.XtraGrid.GridControl() Me.GridChatOld = New DevExpress.XtraGrid.GridControl()
Me.ChatView = New DevExpress.XtraGrid.Views.Tile.TileView() Me.ChatViewOld = New DevExpress.XtraGrid.Views.Tile.TileView()
Me.btnSendMessage = New DevExpress.XtraEditors.SimpleButton() Me.btnSendMessage = New DevExpress.XtraEditors.SimpleButton()
Me.ChatSource = New System.Windows.Forms.BindingSource(Me.components) Me.ChatSource = New System.Windows.Forms.BindingSource(Me.components)
Me.pnlMessage = New System.Windows.Forms.Panel() Me.pnlMessage = New System.Windows.Forms.Panel()
@ -75,13 +76,20 @@ Partial Class ChatControl
Me.ToolStripMenuItemConv_end = New System.Windows.Forms.ToolStripMenuItem() Me.ToolStripMenuItemConv_end = New System.Windows.Forms.ToolStripMenuItem()
Me.BenutzerHinzufügenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.BenutzerHinzufügenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.TeilnehmerToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.TeilnehmerToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.GridChat = New DevExpress.XtraGrid.GridControl()
Me.ChatView = New DevExpress.XtraGrid.Views.Grid.GridView()
Me.columnFromUser = New DevExpress.XtraGrid.Columns.GridColumn()
Me.columnToUser = New DevExpress.XtraGrid.Columns.GridColumn()
Me.columnAddedWhen = New DevExpress.XtraGrid.Columns.GridColumn()
CType(Me.RepositoryItemHypertextLabel1, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.RepositoryItemHypertextLabel1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.RepositoryItemHyperLinkEdit1, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.RepositoryItemHyperLinkEdit1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.GridChat, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.GridChatOld, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.ChatView, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.ChatViewOld, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.ChatSource, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.ChatSource, System.ComponentModel.ISupportInitialize).BeginInit()
Me.pnlMessage.SuspendLayout() Me.pnlMessage.SuspendLayout()
Me.MenuStrip1.SuspendLayout() Me.MenuStrip1.SuspendLayout()
CType(Me.GridChat, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.ChatView, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout() Me.SuspendLayout()
' '
'columnUsername 'columnUsername
@ -131,43 +139,41 @@ Partial Class ChatControl
Me.RepositoryItemHyperLinkEdit1.AutoHeight = False Me.RepositoryItemHyperLinkEdit1.AutoHeight = False
Me.RepositoryItemHyperLinkEdit1.Name = "RepositoryItemHyperLinkEdit1" Me.RepositoryItemHyperLinkEdit1.Name = "RepositoryItemHyperLinkEdit1"
' '
'GridChat 'GridChatOld
' '
Me.GridChat.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _ Me.GridChatOld.BackgroundImage = Global.DigitalData.Controls.ChatControl.My.Resources.Resources.crop_php
Or System.Windows.Forms.AnchorStyles.Left) _ Me.GridChatOld.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Center
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.GridChatOld.Dock = System.Windows.Forms.DockStyle.Top
Me.GridChat.BackgroundImage = Global.DigitalData.Controls.ChatControl.My.Resources.Resources.crop_php Me.GridChatOld.EmbeddedNavigator.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
Me.GridChat.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Center Me.GridChatOld.Font = New System.Drawing.Font("Segoe UI", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.GridChat.EmbeddedNavigator.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4) Me.GridChatOld.Location = New System.Drawing.Point(0, 25)
Me.GridChat.Font = New System.Drawing.Font("Segoe UI", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.GridChatOld.MainView = Me.ChatViewOld
Me.GridChat.Location = New System.Drawing.Point(0, 30) Me.GridChatOld.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
Me.GridChat.MainView = Me.ChatView Me.GridChatOld.Name = "GridChatOld"
Me.GridChat.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4) Me.GridChatOld.RepositoryItems.AddRange(New DevExpress.XtraEditors.Repository.RepositoryItem() {Me.RepositoryItemHyperLinkEdit1, Me.RepositoryItemHypertextLabel1})
Me.GridChat.Name = "GridChat" Me.GridChatOld.Size = New System.Drawing.Size(422, 213)
Me.GridChat.RepositoryItems.AddRange(New DevExpress.XtraEditors.Repository.RepositoryItem() {Me.RepositoryItemHyperLinkEdit1, Me.RepositoryItemHypertextLabel1}) Me.GridChatOld.TabIndex = 0
Me.GridChat.Size = New System.Drawing.Size(420, 454) Me.GridChatOld.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.ChatViewOld})
Me.GridChat.TabIndex = 0
Me.GridChat.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.ChatView})
' '
'ChatView 'ChatViewOld
' '
Me.ChatView.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.columnMessage, Me.columnUsername, Me.columnDate, Me.columnTO_USER}) Me.ChatViewOld.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.columnMessage, Me.columnUsername, Me.columnDate, Me.columnTO_USER})
Me.ChatView.ContextButtonOptions.HoverStateOpacity = 0.75! Me.ChatViewOld.ContextButtonOptions.HoverStateOpacity = 0.75!
Me.ChatView.ContextButtonOptions.TopPanelColor = System.Drawing.Color.White Me.ChatViewOld.ContextButtonOptions.TopPanelColor = System.Drawing.Color.White
Me.ChatView.DetailHeight = 431 Me.ChatViewOld.DetailHeight = 431
Me.ChatView.GridControl = Me.GridChat Me.ChatViewOld.GridControl = Me.GridChatOld
Me.ChatView.Name = "ChatView" Me.ChatViewOld.Name = "ChatViewOld"
Me.ChatView.OptionsTiles.ColumnCount = 1 Me.ChatViewOld.OptionsTiles.ColumnCount = 1
Me.ChatView.OptionsTiles.GroupTextPadding = New System.Windows.Forms.Padding(0, 8, 12, 8) Me.ChatViewOld.OptionsTiles.GroupTextPadding = New System.Windows.Forms.Padding(0, 8, 12, 8)
Me.ChatView.OptionsTiles.IndentBetweenGroups = 0 Me.ChatViewOld.OptionsTiles.IndentBetweenGroups = 0
Me.ChatView.OptionsTiles.IndentBetweenItems = 10 Me.ChatViewOld.OptionsTiles.IndentBetweenItems = 10
Me.ChatView.OptionsTiles.ItemPadding = New System.Windows.Forms.Padding(0) Me.ChatViewOld.OptionsTiles.ItemPadding = New System.Windows.Forms.Padding(0)
Me.ChatView.OptionsTiles.ItemSize = New System.Drawing.Size(374, 90) Me.ChatViewOld.OptionsTiles.ItemSize = New System.Drawing.Size(374, 90)
Me.ChatView.OptionsTiles.LayoutMode = DevExpress.XtraGrid.Views.Tile.TileViewLayoutMode.Kanban Me.ChatViewOld.OptionsTiles.LayoutMode = DevExpress.XtraGrid.Views.Tile.TileViewLayoutMode.Kanban
Me.ChatView.OptionsTiles.Orientation = System.Windows.Forms.Orientation.Vertical Me.ChatViewOld.OptionsTiles.Orientation = System.Windows.Forms.Orientation.Vertical
Me.ChatView.OptionsTiles.Padding = New System.Windows.Forms.Padding(5) Me.ChatViewOld.OptionsTiles.Padding = New System.Windows.Forms.Padding(5)
Me.ChatView.OptionsTiles.RowCount = 0 Me.ChatViewOld.OptionsTiles.RowCount = 0
Me.ChatView.OptionsTiles.ScrollMode = DevExpress.XtraEditors.TileControlScrollMode.ScrollBar Me.ChatViewOld.OptionsTiles.ScrollMode = DevExpress.XtraEditors.TileControlScrollMode.ScrollBar
TableColumnDefinition1.Length.Value = 250.0R TableColumnDefinition1.Length.Value = 250.0R
TableColumnDefinition2.Length.Value = 100.0R TableColumnDefinition2.Length.Value = 100.0R
ItemTemplate1.Columns.Add(TableColumnDefinition1) ItemTemplate1.Columns.Add(TableColumnDefinition1)
@ -175,124 +181,131 @@ Partial Class ChatControl
TileViewItemElement1.Column = Me.columnUsername TileViewItemElement1.Column = Me.columnUsername
TileViewItemElement1.ImageOptions.ImageAlignment = DevExpress.XtraEditors.TileItemContentAlignment.MiddleCenter TileViewItemElement1.ImageOptions.ImageAlignment = DevExpress.XtraEditors.TileItemContentAlignment.MiddleCenter
TileViewItemElement1.ImageOptions.ImageScaleMode = DevExpress.XtraEditors.TileItemImageScaleMode.ZoomInside TileViewItemElement1.ImageOptions.ImageScaleMode = DevExpress.XtraEditors.TileItemImageScaleMode.ZoomInside
TileViewItemElement1.RowIndex = 1
TileViewItemElement1.Text = "columnUsername" TileViewItemElement1.Text = "columnUsername"
TileViewItemElement1.TextAlignment = DevExpress.XtraEditors.TileItemContentAlignment.MiddleLeft TileViewItemElement1.TextAlignment = DevExpress.XtraEditors.TileItemContentAlignment.MiddleLeft
TileViewItemElement1.TextLocation = New System.Drawing.Point(10, 0) TileViewItemElement1.TextLocation = New System.Drawing.Point(10, 0)
TileViewItemElement2.Column = Me.columnMessage TileViewItemElement2.Column = Me.columnMessage
TileViewItemElement2.ImageOptions.ImageAlignment = DevExpress.XtraEditors.TileItemContentAlignment.MiddleCenter TileViewItemElement2.ImageOptions.ImageAlignment = DevExpress.XtraEditors.TileItemContentAlignment.MiddleCenter
TileViewItemElement2.ImageOptions.ImageScaleMode = DevExpress.XtraEditors.TileItemImageScaleMode.ZoomInside TileViewItemElement2.ImageOptions.ImageScaleMode = DevExpress.XtraEditors.TileItemImageScaleMode.ZoomInside
TileViewItemElement2.RowIndex = 2 TileViewItemElement2.RowIndex = 1
TileViewItemElement2.StretchHorizontal = True
TileViewItemElement2.StretchVertical = True
TileViewItemElement2.Text = "columnMessage" TileViewItemElement2.Text = "columnMessage"
TileViewItemElement2.TextAlignment = DevExpress.XtraEditors.TileItemContentAlignment.MiddleLeft TileViewItemElement2.TextAlignment = DevExpress.XtraEditors.TileItemContentAlignment.TopLeft
TileViewItemElement2.TextLocation = New System.Drawing.Point(10, 0) TileViewItemElement2.TextLocation = New System.Drawing.Point(10, 0)
TileViewItemElement3.Column = Me.columnDate TileViewItemElement3.Column = Me.columnDate
TileViewItemElement3.ColumnIndex = 1 TileViewItemElement3.ColumnIndex = 1
TileViewItemElement3.ImageOptions.ImageAlignment = DevExpress.XtraEditors.TileItemContentAlignment.MiddleCenter TileViewItemElement3.ImageOptions.ImageAlignment = DevExpress.XtraEditors.TileItemContentAlignment.MiddleCenter
TileViewItemElement3.ImageOptions.ImageScaleMode = DevExpress.XtraEditors.TileItemImageScaleMode.ZoomInside TileViewItemElement3.ImageOptions.ImageScaleMode = DevExpress.XtraEditors.TileItemImageScaleMode.ZoomInside
TileViewItemElement3.RowIndex = 1
TileViewItemElement3.Text = "columnDate" TileViewItemElement3.Text = "columnDate"
TileViewItemElement3.TextAlignment = DevExpress.XtraEditors.TileItemContentAlignment.MiddleRight TileViewItemElement3.TextAlignment = DevExpress.XtraEditors.TileItemContentAlignment.MiddleRight
TileViewItemElement3.TextLocation = New System.Drawing.Point(-10, 0) 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(TileViewItemElement1)
ItemTemplate1.Elements.Add(TileViewItemElement2) ItemTemplate1.Elements.Add(TileViewItemElement2)
ItemTemplate1.Elements.Add(TileViewItemElement3) ItemTemplate1.Elements.Add(TileViewItemElement3)
ItemTemplate1.Elements.Add(TileViewItemElement4)
ItemTemplate1.Name = "ChatLeft" ItemTemplate1.Name = "ChatLeft"
TableRowDefinition1.Length.Value = 40.0R TableRowDefinition1.Length.Value = 19.0R
TableRowDefinition2.Length.Value = 19.0R TableRowDefinition2.Length.Value = 45.0R
TableRowDefinition3.Length.Value = 45.0R
ItemTemplate1.Rows.Add(TableRowDefinition1) ItemTemplate1.Rows.Add(TableRowDefinition1)
ItemTemplate1.Rows.Add(TableRowDefinition2) ItemTemplate1.Rows.Add(TableRowDefinition2)
ItemTemplate1.Rows.Add(TableRowDefinition3) TableSpan1.ColumnSpan = 2
TableSpan1.RowIndex = 1
ItemTemplate1.Spans.Add(TableSpan1)
TableColumnDefinition3.Length.Value = 100.0R TableColumnDefinition3.Length.Value = 100.0R
TableColumnDefinition4.Length.Value = 250.0R TableColumnDefinition4.Length.Value = 250.0R
ItemTemplate2.Columns.Add(TableColumnDefinition3) ItemTemplate2.Columns.Add(TableColumnDefinition3)
ItemTemplate2.Columns.Add(TableColumnDefinition4) ItemTemplate2.Columns.Add(TableColumnDefinition4)
TileViewItemElement5.Column = Me.columnUsername 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.ColumnIndex = 1 TileViewItemElement5.ColumnIndex = 1
TileViewItemElement5.ImageOptions.ImageAlignment = DevExpress.XtraEditors.TileItemContentAlignment.MiddleCenter TileViewItemElement5.ImageOptions.ImageAlignment = DevExpress.XtraEditors.TileItemContentAlignment.MiddleCenter
TileViewItemElement5.ImageOptions.ImageScaleMode = DevExpress.XtraEditors.TileItemImageScaleMode.ZoomInside TileViewItemElement5.ImageOptions.ImageScaleMode = DevExpress.XtraEditors.TileItemImageScaleMode.ZoomInside
TileViewItemElement5.Text = "columnUsername" TileViewItemElement5.MaxWidth = 350
TileViewItemElement5.RowIndex = 1
TileViewItemElement5.Text = "columnMessage"
TileViewItemElement5.TextAlignment = DevExpress.XtraEditors.TileItemContentAlignment.MiddleRight TileViewItemElement5.TextAlignment = DevExpress.XtraEditors.TileItemContentAlignment.MiddleRight
TileViewItemElement5.TextLocation = New System.Drawing.Point(-10, 0) TileViewItemElement5.TextLocation = New System.Drawing.Point(-10, 0)
TileViewItemElement6.Column = Me.columnMessage TileViewItemElement6.Column = Me.columnDate
TileViewItemElement6.ColumnIndex = 1
TileViewItemElement6.ImageOptions.ImageAlignment = DevExpress.XtraEditors.TileItemContentAlignment.MiddleCenter TileViewItemElement6.ImageOptions.ImageAlignment = DevExpress.XtraEditors.TileItemContentAlignment.MiddleCenter
TileViewItemElement6.ImageOptions.ImageScaleMode = DevExpress.XtraEditors.TileItemImageScaleMode.ZoomInside TileViewItemElement6.ImageOptions.ImageScaleMode = DevExpress.XtraEditors.TileItemImageScaleMode.ZoomInside
TileViewItemElement6.RowIndex = 1 TileViewItemElement6.Text = "columnDate"
TileViewItemElement6.Text = "columnMessage" TileViewItemElement6.TextAlignment = DevExpress.XtraEditors.TileItemContentAlignment.MiddleLeft
TileViewItemElement6.TextAlignment = DevExpress.XtraEditors.TileItemContentAlignment.MiddleRight TileViewItemElement6.TextLocation = New System.Drawing.Point(10, 0)
TileViewItemElement6.TextLocation = New System.Drawing.Point(-10, 0) ItemTemplate2.Elements.Add(TileViewItemElement4)
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(TileViewItemElement5)
ItemTemplate2.Elements.Add(TileViewItemElement6) ItemTemplate2.Elements.Add(TileViewItemElement6)
ItemTemplate2.Elements.Add(TileViewItemElement7)
ItemTemplate2.Name = "ChatRight" ItemTemplate2.Name = "ChatRight"
TableRowDefinition4.Length.Value = 19.0R TableRowDefinition3.Length.Value = 19.0R
TableRowDefinition5.Length.Value = 45.0R TableRowDefinition4.Length.Value = 45.0R
ItemTemplate2.Rows.Add(TableRowDefinition3)
ItemTemplate2.Rows.Add(TableRowDefinition4) ItemTemplate2.Rows.Add(TableRowDefinition4)
ItemTemplate2.Rows.Add(TableRowDefinition5)
TableColumnDefinition5.Length.Value = 250.0R TableColumnDefinition5.Length.Value = 250.0R
TableColumnDefinition6.Length.Value = 100.0R TableColumnDefinition6.Length.Value = 100.0R
ItemTemplate3.Columns.Add(TableColumnDefinition5) ItemTemplate3.Columns.Add(TableColumnDefinition5)
ItemTemplate3.Columns.Add(TableColumnDefinition6) ItemTemplate3.Columns.Add(TableColumnDefinition6)
TileViewItemElement8.Column = Me.columnUsername TileViewItemElement7.Column = Me.columnUsername
TileViewItemElement7.ImageOptions.ImageAlignment = DevExpress.XtraEditors.TileItemContentAlignment.MiddleCenter
TileViewItemElement7.ImageOptions.ImageScaleMode = DevExpress.XtraEditors.TileItemImageScaleMode.ZoomInside
TileViewItemElement7.RowIndex = 1
TileViewItemElement7.Text = "columnUsername"
TileViewItemElement7.TextAlignment = DevExpress.XtraEditors.TileItemContentAlignment.MiddleLeft
TileViewItemElement7.TextLocation = New System.Drawing.Point(10, 0)
TileViewItemElement8.Column = Me.columnMessage
TileViewItemElement8.ImageOptions.ImageAlignment = DevExpress.XtraEditors.TileItemContentAlignment.MiddleCenter TileViewItemElement8.ImageOptions.ImageAlignment = DevExpress.XtraEditors.TileItemContentAlignment.MiddleCenter
TileViewItemElement8.ImageOptions.ImageScaleMode = DevExpress.XtraEditors.TileItemImageScaleMode.ZoomInside TileViewItemElement8.ImageOptions.ImageScaleMode = DevExpress.XtraEditors.TileItemImageScaleMode.ZoomInside
TileViewItemElement8.RowIndex = 1 TileViewItemElement8.RowIndex = 2
TileViewItemElement8.Text = "columnUsername" TileViewItemElement8.StretchHorizontal = True
TileViewItemElement8.TextAlignment = DevExpress.XtraEditors.TileItemContentAlignment.MiddleLeft TileViewItemElement8.StretchVertical = True
TileViewItemElement8.Text = "columnMessage"
TileViewItemElement8.TextAlignment = DevExpress.XtraEditors.TileItemContentAlignment.TopLeft
TileViewItemElement8.TextLocation = New System.Drawing.Point(10, 0) TileViewItemElement8.TextLocation = New System.Drawing.Point(10, 0)
TileViewItemElement9.Column = Me.columnMessage TileViewItemElement9.Column = Me.columnDate
TileViewItemElement9.ColumnIndex = 1
TileViewItemElement9.ImageOptions.ImageAlignment = DevExpress.XtraEditors.TileItemContentAlignment.MiddleCenter TileViewItemElement9.ImageOptions.ImageAlignment = DevExpress.XtraEditors.TileItemContentAlignment.MiddleCenter
TileViewItemElement9.ImageOptions.ImageScaleMode = DevExpress.XtraEditors.TileItemImageScaleMode.ZoomInside TileViewItemElement9.ImageOptions.ImageScaleMode = DevExpress.XtraEditors.TileItemImageScaleMode.ZoomInside
TileViewItemElement9.RowIndex = 2 TileViewItemElement9.RowIndex = 1
TileViewItemElement9.Text = "columnMessage" TileViewItemElement9.Text = "columnDate"
TileViewItemElement9.TextAlignment = DevExpress.XtraEditors.TileItemContentAlignment.MiddleLeft TileViewItemElement9.TextAlignment = DevExpress.XtraEditors.TileItemContentAlignment.MiddleRight
TileViewItemElement9.TextLocation = New System.Drawing.Point(10, 0) TileViewItemElement9.TextLocation = New System.Drawing.Point(-10, 0)
TileViewItemElement10.Column = Me.columnDate TileViewItemElement10.Appearance.Normal.BackColor = System.Drawing.Color.PaleGreen
TileViewItemElement10.ColumnIndex = 1 TileViewItemElement10.Appearance.Normal.Options.UseBackColor = True
TileViewItemElement10.Column = Me.columnTO_USER
TileViewItemElement10.Height = 19
TileViewItemElement10.ImageOptions.ImageAlignment = DevExpress.XtraEditors.TileItemContentAlignment.MiddleCenter TileViewItemElement10.ImageOptions.ImageAlignment = DevExpress.XtraEditors.TileItemContentAlignment.MiddleCenter
TileViewItemElement10.ImageOptions.ImageScaleMode = DevExpress.XtraEditors.TileItemImageScaleMode.ZoomInside TileViewItemElement10.ImageOptions.ImageScaleMode = DevExpress.XtraEditors.TileItemImageScaleMode.ZoomInside
TileViewItemElement10.RowIndex = 1 TileViewItemElement10.StretchHorizontal = True
TileViewItemElement10.Text = "columnDate" TileViewItemElement10.Text = "columnTO_USER"
TileViewItemElement10.TextAlignment = DevExpress.XtraEditors.TileItemContentAlignment.MiddleRight TileViewItemElement10.TextAlignment = DevExpress.XtraEditors.TileItemContentAlignment.MiddleLeft
TileViewItemElement10.TextLocation = New System.Drawing.Point(-10, 0) TileViewItemElement10.TextLocation = New System.Drawing.Point(10, 0)
TileViewItemElement11.Column = Me.columnTO_USER ItemTemplate3.Elements.Add(TileViewItemElement7)
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(TileViewItemElement8)
ItemTemplate3.Elements.Add(TileViewItemElement9) ItemTemplate3.Elements.Add(TileViewItemElement9)
ItemTemplate3.Elements.Add(TileViewItemElement10) ItemTemplate3.Elements.Add(TileViewItemElement10)
ItemTemplate3.Elements.Add(TileViewItemElement11)
ItemTemplate3.Name = "ChatTo" ItemTemplate3.Name = "ChatTo"
TableRowDefinition6.Length.Value = 17.0R TableRowDefinition5.Length.Value = 17.0R
TableRowDefinition7.Length.Value = 19.0R TableRowDefinition6.Length.Value = 19.0R
TableRowDefinition8.Length.Value = 54.0R TableRowDefinition7.Length.Value = 54.0R
ItemTemplate3.Rows.Add(TableRowDefinition5)
ItemTemplate3.Rows.Add(TableRowDefinition6) ItemTemplate3.Rows.Add(TableRowDefinition6)
ItemTemplate3.Rows.Add(TableRowDefinition7) ItemTemplate3.Rows.Add(TableRowDefinition7)
ItemTemplate3.Rows.Add(TableRowDefinition8) TableSpan2.ColumnSpan = 2
Me.ChatView.Templates.Add(ItemTemplate1) TableSpan3.ColumnSpan = 2
Me.ChatView.Templates.Add(ItemTemplate2) TableSpan3.RowIndex = 2
Me.ChatView.Templates.Add(ItemTemplate3) ItemTemplate3.Spans.Add(TableSpan2)
Me.ChatView.TileColumns.Add(TableColumnDefinition7) ItemTemplate3.Spans.Add(TableSpan3)
Me.ChatView.TileColumns.Add(TableColumnDefinition8) Me.ChatViewOld.Templates.Add(ItemTemplate1)
Me.ChatView.TileRows.Add(TableRowDefinition9) Me.ChatViewOld.Templates.Add(ItemTemplate2)
Me.ChatView.TileRows.Add(TableRowDefinition10) Me.ChatViewOld.Templates.Add(ItemTemplate3)
Me.ChatViewOld.TileColumns.Add(TableColumnDefinition7)
Me.ChatViewOld.TileColumns.Add(TableColumnDefinition8)
Me.ChatViewOld.TileRows.Add(TableRowDefinition8)
Me.ChatViewOld.TileRows.Add(TableRowDefinition9)
' '
'btnSendMessage 'btnSendMessage
' '
@ -386,14 +399,74 @@ Partial Class ChatControl
Me.TeilnehmerToolStripMenuItem.Alignment = System.Windows.Forms.ToolStripItemAlignment.Right Me.TeilnehmerToolStripMenuItem.Alignment = System.Windows.Forms.ToolStripItemAlignment.Right
Me.TeilnehmerToolStripMenuItem.ForeColor = System.Drawing.Color.DarkCyan Me.TeilnehmerToolStripMenuItem.ForeColor = System.Drawing.Color.DarkCyan
Me.TeilnehmerToolStripMenuItem.Name = "TeilnehmerToolStripMenuItem" Me.TeilnehmerToolStripMenuItem.Name = "TeilnehmerToolStripMenuItem"
Me.TeilnehmerToolStripMenuItem.Size = New System.Drawing.Size(78, 21) Me.TeilnehmerToolStripMenuItem.Size = New System.Drawing.Size(77, 21)
Me.TeilnehmerToolStripMenuItem.Text = "Teilnehmer" Me.TeilnehmerToolStripMenuItem.Text = "Teilnehmer"
' '
'GridChat
'
Me.GridChat.Dock = System.Windows.Forms.DockStyle.Fill
Me.GridChat.Location = New System.Drawing.Point(0, 238)
Me.GridChat.MainView = Me.ChatView
Me.GridChat.Name = "GridChat"
Me.GridChat.Size = New System.Drawing.Size(422, 247)
Me.GridChat.TabIndex = 5
Me.GridChat.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.ChatView})
'
'ChatView
'
Me.ChatView.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.columnFromUser, Me.columnToUser, Me.columnAddedWhen})
Me.ChatView.FocusRectStyle = DevExpress.XtraGrid.Views.Grid.DrawFocusRectStyle.RowFullFocus
Me.ChatView.GridControl = Me.GridChat
Me.ChatView.GroupPanelText = "Nachrichten können mit der Lupe durchsucht werden"
Me.ChatView.Name = "ChatView"
Me.ChatView.OptionsFind.SearchInPreview = True
Me.ChatView.OptionsView.AutoCalcPreviewLineCount = True
Me.ChatView.OptionsView.ShowColumnHeaders = False
Me.ChatView.OptionsView.ShowHorizontalLines = DevExpress.Utils.DefaultBoolean.[False]
Me.ChatView.OptionsView.ShowIndicator = False
Me.ChatView.OptionsView.ShowPreview = True
Me.ChatView.OptionsView.ShowPreviewRowLines = DevExpress.Utils.DefaultBoolean.[False]
Me.ChatView.OptionsView.ShowVerticalLines = DevExpress.Utils.DefaultBoolean.[False]
Me.ChatView.PreviewFieldName = "MESSAGE_TEXT"
Me.ChatView.RowHeight = 25
Me.ChatView.RowSeparatorHeight = 25
'
'columnFromUser
'
Me.columnFromUser.AppearanceCell.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.columnFromUser.AppearanceCell.Options.UseFont = True
Me.columnFromUser.FieldName = "USER_FROM"
Me.columnFromUser.Name = "columnFromUser"
Me.columnFromUser.OptionsColumn.AllowEdit = False
Me.columnFromUser.Visible = True
Me.columnFromUser.VisibleIndex = 0
'
'columnToUser
'
Me.columnToUser.AppearanceCell.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Bold)
Me.columnToUser.AppearanceCell.Options.UseFont = True
Me.columnToUser.FieldName = "TO_USER"
Me.columnToUser.Name = "columnToUser"
Me.columnToUser.OptionsColumn.AllowEdit = False
Me.columnToUser.Visible = True
Me.columnToUser.VisibleIndex = 1
'
'columnAddedWhen
'
Me.columnAddedWhen.AppearanceCell.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Bold)
Me.columnAddedWhen.AppearanceCell.Options.UseFont = True
Me.columnAddedWhen.FieldName = "ADDED_WHEN"
Me.columnAddedWhen.Name = "columnAddedWhen"
Me.columnAddedWhen.OptionsColumn.AllowEdit = False
Me.columnAddedWhen.Visible = True
Me.columnAddedWhen.VisibleIndex = 2
'
'ChatControl 'ChatControl
' '
Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 16.0!) Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 16.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.Controls.Add(Me.GridChat) Me.Controls.Add(Me.GridChat)
Me.Controls.Add(Me.GridChatOld)
Me.Controls.Add(Me.pnlMessage) Me.Controls.Add(Me.pnlMessage)
Me.Controls.Add(Me.MenuStrip1) 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.Font = New System.Drawing.Font("Tahoma", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
@ -402,18 +475,20 @@ Partial Class ChatControl
Me.Size = New System.Drawing.Size(422, 587) Me.Size = New System.Drawing.Size(422, 587)
CType(Me.RepositoryItemHypertextLabel1, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.RepositoryItemHypertextLabel1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.RepositoryItemHyperLinkEdit1, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.RepositoryItemHyperLinkEdit1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.GridChat, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.GridChatOld, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.ChatView, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.ChatViewOld, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.ChatSource, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.ChatSource, System.ComponentModel.ISupportInitialize).EndInit()
Me.pnlMessage.ResumeLayout(False) Me.pnlMessage.ResumeLayout(False)
Me.MenuStrip1.ResumeLayout(False) Me.MenuStrip1.ResumeLayout(False)
Me.MenuStrip1.PerformLayout() Me.MenuStrip1.PerformLayout()
CType(Me.GridChat, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.ChatView, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False) Me.ResumeLayout(False)
Me.PerformLayout() Me.PerformLayout()
End Sub End Sub
Friend WithEvents GridChat As DevExpress.XtraGrid.GridControl Friend WithEvents GridChatOld As DevExpress.XtraGrid.GridControl
Friend WithEvents ChatView As DevExpress.XtraGrid.Views.Tile.TileView Friend WithEvents ChatViewOld As DevExpress.XtraGrid.Views.Tile.TileView
Friend WithEvents columnMessage As DevExpress.XtraGrid.Columns.TileViewColumn Friend WithEvents columnMessage As DevExpress.XtraGrid.Columns.TileViewColumn
Friend WithEvents columnUsername As DevExpress.XtraGrid.Columns.TileViewColumn Friend WithEvents columnUsername As DevExpress.XtraGrid.Columns.TileViewColumn
Friend WithEvents columnDate As DevExpress.XtraGrid.Columns.TileViewColumn Friend WithEvents columnDate As DevExpress.XtraGrid.Columns.TileViewColumn
@ -431,4 +506,9 @@ Partial Class ChatControl
Friend WithEvents RichTextBox1 As RichTextBox Friend WithEvents RichTextBox1 As RichTextBox
Friend WithEvents columnTO_USER As DevExpress.XtraGrid.Columns.TileViewColumn Friend WithEvents columnTO_USER As DevExpress.XtraGrid.Columns.TileViewColumn
Friend WithEvents ListBoxUserMention As ListBox Friend WithEvents ListBoxUserMention As ListBox
Friend WithEvents GridChat As DevExpress.XtraGrid.GridControl
Friend WithEvents ChatView As DevExpress.XtraGrid.Views.Grid.GridView
Friend WithEvents columnFromUser As DevExpress.XtraGrid.Columns.GridColumn
Friend WithEvents columnAddedWhen As DevExpress.XtraGrid.Columns.GridColumn
Friend WithEvents columnToUser As DevExpress.XtraGrid.Columns.GridColumn
End Class End Class

114
Controls.ChatControl/ChatControl.vb
View File

@ -7,6 +7,8 @@ Public Class ChatControl
Private ReadOnly IdentificationColumn As String = "USER_FROM" Private ReadOnly IdentificationColumn As String = "USER_FROM"
Private ReadOnly MessageColumn As String = "MESSAGE_TEXT" Private ReadOnly MessageColumn As String = "MESSAGE_TEXT"
Private ReadOnly DateColumn As String = "ADDED_WHEN" Private ReadOnly DateColumn As String = "ADDED_WHEN"
Private ReadOnly ToUserColumn As String = "TO_USER"
Public Delegate Sub ConversationEnded() Public Delegate Sub ConversationEnded()
Public Event Conversation_Ended As ConversationEnded Public Event Conversation_Ended As ConversationEnded
Public Delegate Sub ConversationUsersAdded_Success() Public Delegate Sub ConversationUsersAdded_Success()
@ -158,7 +160,10 @@ Public Class ChatControl
' BuildUsernameColorDict(oDatatable) ' BuildUsernameColorDict(oDatatable)
oSQL = $"SELECT * FROM VWIDB_CONVERSATION WHERE CONVERSATION_ID = {ConversationId}" oSQL = $"SELECT * FROM VWIDB_CONVERSATION WHERE CONVERSATION_ID = {ConversationId}"
Dim oDatatable2 As DataTable = Db.GetDatatable(oSQL) Dim oDatatable2 As DataTable = Db.GetDatatable(oSQL)
GridChatOld.DataSource = ChatSource
GridChat.DataSource = ChatSource GridChat.DataSource = ChatSource
ChatSource.DataSource = oDatatable ChatSource.DataSource = oDatatable
tsmitmTitle.Text = oDatatable2.Rows(0).Item("TITLE") tsmitmTitle.Text = oDatatable2.Rows(0).Item("TITLE")
CurrentConversationID = ConversationId CurrentConversationID = ConversationId
@ -215,6 +220,7 @@ Public Class ChatControl
Dim oResult = Db.GetScalarValue(oSQL) Dim oResult = Db.GetScalarValue(oSQL)
LoadConversation(CurrentConversationID) LoadConversation(CurrentConversationID)
RichTextBox1.Text = String.Empty RichTextBox1.Text = String.Empty
ChatViewOld.MoveLast()
ChatView.MoveLast() ChatView.MoveLast()
Catch ex As Exception Catch ex As Exception
Logger.Error(ex) Logger.Error(ex)
@ -235,44 +241,38 @@ Public Class ChatControl
' End Sub) ' End Sub)
'End Sub 'End Sub
Private Sub ChatView_CustomItemTemplate(sender As Object, e As TileViewCustomItemTemplateEventArgs) Handles ChatView.CustomItemTemplate Private Sub ChatView_CustomItemTemplate(sender As Object, e As TileViewCustomItemTemplateEventArgs) Handles ChatViewOld.CustomItemTemplate
Dim oRow As DataRow = ChatView.GetDataRow(e.RowHandle) Dim oRow As DataRow = ChatViewOld.GetDataRow(e.RowHandle)
Dim oIdentification As String = oRow.Item(IdentificationColumn) Dim oIdentification As String = oRow.Item(IdentificationColumn)
Dim oToUser = oRow.Item("TO_USER") Dim oToUser = oRow.Item(ToUserColumn)
If Not IsDBNull(oToUser) Then If Not IsDBNull(oToUser) Then
e.Template = e.Templates.Item("ChatTo") e.Template = e.Templates.Item("ChatTo")
Else Else
If oIdentification = ConversationIdentification Or oIdentification = Username Then 'If oIdentification = ConversationIdentification Or oIdentification = Username Then
e.Template = e.Templates.Item("ChatRight") ' e.Template = e.Templates.Item("ChatRight")
Else 'Else
' e.Template = e.Templates.Item("ChatLeft")
'End If
e.Template = e.Templates.Item("ChatLeft") e.Template = e.Templates.Item("ChatLeft")
End If End If
End If
End Sub End Sub
Private Sub ChatView_ItemCustomize(sender As Object, e As TileViewItemCustomizeEventArgs) Handles ChatView.ItemCustomize Private Sub ChatView_ItemCustomize(sender As Object, e As TileViewItemCustomizeEventArgs) Handles ChatViewOld.ItemCustomize
Dim oRow As DataRow = ChatView.GetDataRow(e.RowHandle) Dim oRow As DataRow = ChatViewOld.GetDataRow(e.RowHandle)
Dim oUsername As String = oRow.Item(IdentificationColumn) Dim oUsername As String = oRow.Item(IdentificationColumn)
Dim oMessage As String = oRow.Item(MessageColumn) Dim oMessage As String = oRow.Item(MessageColumn)
Dim oToUser = oRow.Item(ToUserColumn)
' Dim oColor As Color = UsernameColorsDict.Item(oUsername) ' Dim oColor As Color = UsernameColorsDict.Item(oUsername)
If oUsername = ConversationIdentification Or oUsername = Username Then If oUsername = ConversationIdentification Or oUsername = Username Then
e.Item.AppearanceItem.Normal.BackColor = Color.PaleTurquoise e.Item.AppearanceItem.Normal.BackColor = Color.PaleTurquoise
e.Item.Item(IdentificationColumn).Appearance.Normal.ForeColor = Color.Purple e.Item.Item(IdentificationColumn).Appearance.Normal.ForeColor = Color.Purple
Else Else
' e.Item.AppearanceItem.Normal.BackColor = Color.whi
e.Item.Item(IdentificationColumn).Appearance.Normal.ForeColor = Color.Red e.Item.Item(IdentificationColumn).Appearance.Normal.ForeColor = Color.Red
End If End If
'e.Item.AppearanceItem.Focused.BackColor = Color.Turquoise
End Sub
Private Sub txtMessage_KeyUp(sender As Object, e As KeyEventArgs)
e.Item.ItemSize = DevExpress.XtraEditors.TileItemSize.Wide
End Sub End Sub
Private Sub SimpleButton1_Click(sender As Object, e As EventArgs) Handles btnSendMessage.Click Private Sub SimpleButton1_Click(sender As Object, e As EventArgs) Handles btnSendMessage.Click
@ -281,18 +281,6 @@ Public Class ChatControl
End If End If
End Sub End Sub
Private Sub TextBox1_KeyUp(sender As Object, e As KeyEventArgs)
End Sub
Private Sub ChatControl_Click(sender As Object, e As EventArgs) Handles MyBase.Click
End Sub
Private Sub ChatControl_Leave(sender As Object, e As EventArgs) Handles Me.Leave
End Sub
Private Sub ToolStripMenuItemConv_end_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItemConv_end.Click Private Sub ToolStripMenuItemConv_end_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItemConv_end.Click
If CurrentConversationID <> 0 Then If CurrentConversationID <> 0 Then
Dim result As MsgBoxResult Dim result As MsgBoxResult
@ -342,14 +330,9 @@ Public Class ChatControl
If e.Control And e.KeyCode = Keys.Enter And RichTextBox1.Text.Count > 0 Then If e.Control And e.KeyCode = Keys.Enter And RichTextBox1.Text.Count > 0 Then
NewMessage(RichTextBox1.Text) NewMessage(RichTextBox1.Text)
ElseIf (Keys.Alt AndAlso Keys.Control) And e.KeyCode = keys.Q Then ElseIf (Keys.Alt AndAlso Keys.Control) And e.KeyCode = keys.Q Then
With RichTextBox1 With RichTextBox1
ListBoxUserMention.Left = .GetPositionFromCharIndex( ListBoxUserMention.Left = .GetPositionFromCharIndex(.SelectionStart).X + .Left + 10
.SelectionStart).X + .Left + 10 ListBoxUserMention.Top = .GetPositionFromCharIndex(.SelectionStart).Y + .Top + 20
ListBoxUserMention.Top = .GetPositionFromCharIndex(
.SelectionStart).Y + .Top + 20
' Jetzt ListBox einblendenden, Focus auf diese setzen ' Jetzt ListBox einblendenden, Focus auf diese setzen
' und den ersten Eintrag selektieren ' und den ersten Eintrag selektieren
ListBoxUserMention.Visible = True ListBoxUserMention.Visible = True
@ -357,7 +340,6 @@ Public Class ChatControl
ListBoxUserMention.SelectedIndex = 0 ListBoxUserMention.SelectedIndex = 0
End With End With
'Dim opoint As Point = GetPoint(sender) 'Dim opoint As Point = GetPoint(sender)
'AssistListBox.PointToClient(opoint) 'AssistListBox.PointToClient(opoint)
'pnlMessage.Controls.Add(AssistListBox) 'pnlMessage.Controls.Add(AssistListBox)
@ -365,9 +347,7 @@ Public Class ChatControl
'AssistListBox.BringToFront() 'AssistListBox.BringToFront()
' '@ was pressed ' '@ was pressed
End If End If
End Sub End Sub
Sub AssistListBox_Changed() Sub AssistListBox_Changed()
Try Try
@ -444,4 +424,56 @@ Public Class ChatControl
End With End With
End If End If
End Sub End Sub
Private Sub ChatView_CustomDrawRowPreview(sender As Object, e As DevExpress.XtraGrid.Views.Base.RowObjectCustomDrawEventArgs) Handles ChatView.CustomDrawRowPreview
Dim oRow As DataRow = ChatViewOld.GetDataRow(e.RowHandle)
Dim oUsername As String = oRow.Item(IdentificationColumn)
Dim oToUser = oRow.Item(ToUserColumn)
Dim oIsOwnMessage As Boolean = oUsername = ConversationIdentification Or oUsername = Username
' Eigene Nachrichten
If oIsOwnMessage Then
e.Appearance.BackColor = Color.PaleTurquoise
End If
' Andere Nachrichten
If Not oIsOwnMessage Then
e.Appearance.BackColor = Color.White
End If
End Sub
Private Sub ChatView_CustomDrawCell(sender As Object, e As DevExpress.XtraGrid.Views.Base.RowCellCustomDrawEventArgs) Handles ChatView.CustomDrawCell
Dim oRow As DataRow = ChatViewOld.GetDataRow(e.RowHandle)
Dim oUsername As String = oRow.Item(IdentificationColumn)
Dim oToUser = oRow.Item(ToUserColumn)
Dim oIsOwnMessage As Boolean = oUsername = ConversationIdentification Or oUsername = Username
' Eigene Nachrichten
If oIsOwnMessage Then
' Benutzername
If e.Column.FieldName = IdentificationColumn Then
e.Appearance.ForeColor = Color.Purple
End If
e.Appearance.BackColor = Color.PaleTurquoise
End If
' Andere Nachrichten
If Not oIsOwnMessage Then
If e.Column.FieldName = IdentificationColumn Then
e.Appearance.ForeColor = Color.Red
End If
If Not (IsNothing(oToUser) Or IsDBNull(oToUser)) Then
If oToUser = Username Or oToUser = ConversationIdentification Then
e.Appearance.BackColor = Color.LightSalmon
Else
e.Appearance.BackColor = Color.White
End If
Else
e.Appearance.BackColor = Color.White
End If
End If
End Sub
End Class End Class