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

ChatControl: Switch colors, less spacing, fix message box

Browse Source
This commit is contained in:
Jonathan Jenne 2020-06-29 15:51:40 +02:00
parent be2f505bde
commit 6250a5eced
2 changed files with 184 additions and 190 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -23,39 +23,39 @@ Partial Class ChatControl
<System.Diagnostics.DebuggerStepThrough()> <System.Diagnostics.DebuggerStepThrough()>
Private Sub InitializeComponent() Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container() Me.components = New System.ComponentModel.Container()
Dim ItemTemplate1 As DevExpress.XtraGrid.Views.Tile.ItemTemplate = New DevExpress.XtraGrid.Views.Tile.ItemTemplate() Dim ItemTemplate4 As DevExpress.XtraGrid.Views.Tile.ItemTemplate = New DevExpress.XtraGrid.Views.Tile.ItemTemplate()
Dim TableColumnDefinition1 As DevExpress.XtraEditors.TableLayout.TableColumnDefinition = New DevExpress.XtraEditors.TableLayout.TableColumnDefinition() Dim TableColumnDefinition9 As DevExpress.XtraEditors.TableLayout.TableColumnDefinition = New DevExpress.XtraEditors.TableLayout.TableColumnDefinition()
Dim TableColumnDefinition2 As DevExpress.XtraEditors.TableLayout.TableColumnDefinition = New DevExpress.XtraEditors.TableLayout.TableColumnDefinition() Dim TableColumnDefinition10 As DevExpress.XtraEditors.TableLayout.TableColumnDefinition = New DevExpress.XtraEditors.TableLayout.TableColumnDefinition()
Dim TileViewItemElement1 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 TileViewItemElement2 As DevExpress.XtraGrid.Views.Tile.TileViewItemElement = New DevExpress.XtraGrid.Views.Tile.TileViewItemElement() Dim TileViewItemElement12 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 TileViewItemElement13 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 TableRowDefinition10 As DevExpress.XtraEditors.TableLayout.TableRowDefinition = New DevExpress.XtraEditors.TableLayout.TableRowDefinition()
Dim TableRowDefinition2 As DevExpress.XtraEditors.TableLayout.TableRowDefinition = New DevExpress.XtraEditors.TableLayout.TableRowDefinition() Dim TableRowDefinition11 As DevExpress.XtraEditors.TableLayout.TableRowDefinition = New DevExpress.XtraEditors.TableLayout.TableRowDefinition()
Dim TableSpan1 As DevExpress.XtraEditors.TableLayout.TableSpan = New DevExpress.XtraEditors.TableLayout.TableSpan() Dim TableSpan4 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 ItemTemplate5 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 TableColumnDefinition11 As DevExpress.XtraEditors.TableLayout.TableColumnDefinition = New DevExpress.XtraEditors.TableLayout.TableColumnDefinition()
Dim TableColumnDefinition4 As DevExpress.XtraEditors.TableLayout.TableColumnDefinition = New DevExpress.XtraEditors.TableLayout.TableColumnDefinition() Dim TableColumnDefinition12 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 TileViewItemElement14 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 TileViewItemElement15 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 TileViewItemElement16 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 TableRowDefinition12 As DevExpress.XtraEditors.TableLayout.TableRowDefinition = New DevExpress.XtraEditors.TableLayout.TableRowDefinition()
Dim TableRowDefinition4 As DevExpress.XtraEditors.TableLayout.TableRowDefinition = New DevExpress.XtraEditors.TableLayout.TableRowDefinition() Dim TableRowDefinition13 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 ItemTemplate6 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 TableColumnDefinition13 As DevExpress.XtraEditors.TableLayout.TableColumnDefinition = New DevExpress.XtraEditors.TableLayout.TableColumnDefinition()
Dim TableColumnDefinition6 As DevExpress.XtraEditors.TableLayout.TableColumnDefinition = New DevExpress.XtraEditors.TableLayout.TableColumnDefinition() Dim TableColumnDefinition14 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 TileViewItemElement17 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 TileViewItemElement18 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 TileViewItemElement19 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 TileViewItemElement20 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 TableRowDefinition14 As DevExpress.XtraEditors.TableLayout.TableRowDefinition = New DevExpress.XtraEditors.TableLayout.TableRowDefinition()
Dim TableRowDefinition6 As DevExpress.XtraEditors.TableLayout.TableRowDefinition = New DevExpress.XtraEditors.TableLayout.TableRowDefinition() Dim TableRowDefinition15 As DevExpress.XtraEditors.TableLayout.TableRowDefinition = New DevExpress.XtraEditors.TableLayout.TableRowDefinition()
Dim TableRowDefinition7 As DevExpress.XtraEditors.TableLayout.TableRowDefinition = New DevExpress.XtraEditors.TableLayout.TableRowDefinition() Dim TableRowDefinition16 As DevExpress.XtraEditors.TableLayout.TableRowDefinition = New DevExpress.XtraEditors.TableLayout.TableRowDefinition()
Dim TableSpan2 As DevExpress.XtraEditors.TableLayout.TableSpan = New DevExpress.XtraEditors.TableLayout.TableSpan() Dim TableSpan5 As DevExpress.XtraEditors.TableLayout.TableSpan = New DevExpress.XtraEditors.TableLayout.TableSpan()
Dim TableSpan3 As DevExpress.XtraEditors.TableLayout.TableSpan = New DevExpress.XtraEditors.TableLayout.TableSpan() Dim TableSpan6 As DevExpress.XtraEditors.TableLayout.TableSpan = New DevExpress.XtraEditors.TableLayout.TableSpan()
Dim TableColumnDefinition7 As DevExpress.XtraEditors.TableLayout.TableColumnDefinition = New DevExpress.XtraEditors.TableLayout.TableColumnDefinition() Dim TableColumnDefinition15 As DevExpress.XtraEditors.TableLayout.TableColumnDefinition = New DevExpress.XtraEditors.TableLayout.TableColumnDefinition()
Dim TableColumnDefinition8 As DevExpress.XtraEditors.TableLayout.TableColumnDefinition = New DevExpress.XtraEditors.TableLayout.TableColumnDefinition() Dim TableColumnDefinition16 As DevExpress.XtraEditors.TableLayout.TableColumnDefinition = New DevExpress.XtraEditors.TableLayout.TableColumnDefinition()
Dim TableRowDefinition8 As DevExpress.XtraEditors.TableLayout.TableRowDefinition = New DevExpress.XtraEditors.TableLayout.TableRowDefinition() Dim TableRowDefinition17 As DevExpress.XtraEditors.TableLayout.TableRowDefinition = New DevExpress.XtraEditors.TableLayout.TableRowDefinition()
Dim TableRowDefinition9 As DevExpress.XtraEditors.TableLayout.TableRowDefinition = New DevExpress.XtraEditors.TableLayout.TableRowDefinition() Dim TableRowDefinition18 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()
@ -151,7 +151,7 @@ Partial Class ChatControl
Me.GridChatOld.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4) Me.GridChatOld.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
Me.GridChatOld.Name = "GridChatOld" Me.GridChatOld.Name = "GridChatOld"
Me.GridChatOld.RepositoryItems.AddRange(New DevExpress.XtraEditors.Repository.RepositoryItem() {Me.RepositoryItemHyperLinkEdit1, Me.RepositoryItemHypertextLabel1}) Me.GridChatOld.RepositoryItems.AddRange(New DevExpress.XtraEditors.Repository.RepositoryItem() {Me.RepositoryItemHyperLinkEdit1, Me.RepositoryItemHypertextLabel1})
Me.GridChatOld.Size = New System.Drawing.Size(422, 213) Me.GridChatOld.Size = New System.Drawing.Size(421, 213)
Me.GridChatOld.TabIndex = 0 Me.GridChatOld.TabIndex = 0
Me.GridChatOld.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.ChatViewOld}) Me.GridChatOld.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.ChatViewOld})
' '
@ -174,145 +174,145 @@ Partial Class ChatControl
Me.ChatViewOld.OptionsTiles.Padding = New System.Windows.Forms.Padding(5) Me.ChatViewOld.OptionsTiles.Padding = New System.Windows.Forms.Padding(5)
Me.ChatViewOld.OptionsTiles.RowCount = 0 Me.ChatViewOld.OptionsTiles.RowCount = 0
Me.ChatViewOld.OptionsTiles.ScrollMode = DevExpress.XtraEditors.TileControlScrollMode.ScrollBar Me.ChatViewOld.OptionsTiles.ScrollMode = DevExpress.XtraEditors.TileControlScrollMode.ScrollBar
TableColumnDefinition1.Length.Value = 250.0R TableColumnDefinition9.Length.Value = 250.0R
TableColumnDefinition2.Length.Value = 100.0R TableColumnDefinition10.Length.Value = 100.0R
ItemTemplate1.Columns.Add(TableColumnDefinition1) ItemTemplate4.Columns.Add(TableColumnDefinition9)
ItemTemplate1.Columns.Add(TableColumnDefinition2) ItemTemplate4.Columns.Add(TableColumnDefinition10)
TileViewItemElement1.Column = Me.columnUsername TileViewItemElement11.Column = Me.columnUsername
TileViewItemElement1.ImageOptions.ImageAlignment = DevExpress.XtraEditors.TileItemContentAlignment.MiddleCenter TileViewItemElement11.ImageOptions.ImageAlignment = DevExpress.XtraEditors.TileItemContentAlignment.MiddleCenter
TileViewItemElement1.ImageOptions.ImageScaleMode = DevExpress.XtraEditors.TileItemImageScaleMode.ZoomInside TileViewItemElement11.ImageOptions.ImageScaleMode = DevExpress.XtraEditors.TileItemImageScaleMode.ZoomInside
TileViewItemElement1.Text = "columnUsername" TileViewItemElement11.Text = "columnUsername"
TileViewItemElement1.TextAlignment = DevExpress.XtraEditors.TileItemContentAlignment.MiddleLeft TileViewItemElement11.TextAlignment = DevExpress.XtraEditors.TileItemContentAlignment.MiddleLeft
TileViewItemElement1.TextLocation = New System.Drawing.Point(10, 0) TileViewItemElement11.TextLocation = New System.Drawing.Point(10, 0)
TileViewItemElement2.Column = Me.columnMessage TileViewItemElement12.Column = Me.columnMessage
TileViewItemElement2.ImageOptions.ImageAlignment = DevExpress.XtraEditors.TileItemContentAlignment.MiddleCenter TileViewItemElement12.ImageOptions.ImageAlignment = DevExpress.XtraEditors.TileItemContentAlignment.MiddleCenter
TileViewItemElement2.ImageOptions.ImageScaleMode = DevExpress.XtraEditors.TileItemImageScaleMode.ZoomInside TileViewItemElement12.ImageOptions.ImageScaleMode = DevExpress.XtraEditors.TileItemImageScaleMode.ZoomInside
TileViewItemElement2.RowIndex = 1 TileViewItemElement12.RowIndex = 1
TileViewItemElement2.StretchHorizontal = True TileViewItemElement12.StretchHorizontal = True
TileViewItemElement2.StretchVertical = True TileViewItemElement12.StretchVertical = True
TileViewItemElement2.Text = "columnMessage" TileViewItemElement12.Text = "columnMessage"
TileViewItemElement2.TextAlignment = DevExpress.XtraEditors.TileItemContentAlignment.TopLeft TileViewItemElement12.TextAlignment = DevExpress.XtraEditors.TileItemContentAlignment.TopLeft
TileViewItemElement2.TextLocation = New System.Drawing.Point(10, 0) TileViewItemElement12.TextLocation = New System.Drawing.Point(10, 0)
TileViewItemElement3.Column = Me.columnDate TileViewItemElement13.Column = Me.columnDate
TileViewItemElement3.ColumnIndex = 1 TileViewItemElement13.ColumnIndex = 1
TileViewItemElement3.ImageOptions.ImageAlignment = DevExpress.XtraEditors.TileItemContentAlignment.MiddleCenter TileViewItemElement13.ImageOptions.ImageAlignment = DevExpress.XtraEditors.TileItemContentAlignment.MiddleCenter
TileViewItemElement3.ImageOptions.ImageScaleMode = DevExpress.XtraEditors.TileItemImageScaleMode.ZoomInside TileViewItemElement13.ImageOptions.ImageScaleMode = DevExpress.XtraEditors.TileItemImageScaleMode.ZoomInside
TileViewItemElement3.Text = "columnDate" TileViewItemElement13.Text = "columnDate"
TileViewItemElement3.TextAlignment = DevExpress.XtraEditors.TileItemContentAlignment.MiddleRight TileViewItemElement13.TextAlignment = DevExpress.XtraEditors.TileItemContentAlignment.MiddleRight
TileViewItemElement3.TextLocation = New System.Drawing.Point(-10, 0) TileViewItemElement13.TextLocation = New System.Drawing.Point(-10, 0)
ItemTemplate1.Elements.Add(TileViewItemElement1) ItemTemplate4.Elements.Add(TileViewItemElement11)
ItemTemplate1.Elements.Add(TileViewItemElement2) ItemTemplate4.Elements.Add(TileViewItemElement12)
ItemTemplate1.Elements.Add(TileViewItemElement3) ItemTemplate4.Elements.Add(TileViewItemElement13)
ItemTemplate1.Name = "ChatLeft" ItemTemplate4.Name = "ChatLeft"
TableRowDefinition1.Length.Value = 19.0R TableRowDefinition10.Length.Value = 19.0R
TableRowDefinition2.Length.Value = 45.0R TableRowDefinition11.Length.Value = 45.0R
ItemTemplate1.Rows.Add(TableRowDefinition1) ItemTemplate4.Rows.Add(TableRowDefinition10)
ItemTemplate1.Rows.Add(TableRowDefinition2) ItemTemplate4.Rows.Add(TableRowDefinition11)
TableSpan1.ColumnSpan = 2 TableSpan4.ColumnSpan = 2
TableSpan1.RowIndex = 1 TableSpan4.RowIndex = 1
ItemTemplate1.Spans.Add(TableSpan1) ItemTemplate4.Spans.Add(TableSpan4)
TableColumnDefinition3.Length.Value = 100.0R TableColumnDefinition11.Length.Value = 100.0R
TableColumnDefinition4.Length.Value = 250.0R TableColumnDefinition12.Length.Value = 250.0R
ItemTemplate2.Columns.Add(TableColumnDefinition3) ItemTemplate5.Columns.Add(TableColumnDefinition11)
ItemTemplate2.Columns.Add(TableColumnDefinition4) ItemTemplate5.Columns.Add(TableColumnDefinition12)
TileViewItemElement4.Column = Me.columnUsername TileViewItemElement14.Column = Me.columnUsername
TileViewItemElement4.ColumnIndex = 1 TileViewItemElement14.ColumnIndex = 1
TileViewItemElement4.ImageOptions.ImageAlignment = DevExpress.XtraEditors.TileItemContentAlignment.MiddleCenter TileViewItemElement14.ImageOptions.ImageAlignment = DevExpress.XtraEditors.TileItemContentAlignment.MiddleCenter
TileViewItemElement4.ImageOptions.ImageScaleMode = DevExpress.XtraEditors.TileItemImageScaleMode.ZoomInside TileViewItemElement14.ImageOptions.ImageScaleMode = DevExpress.XtraEditors.TileItemImageScaleMode.ZoomInside
TileViewItemElement4.Text = "columnUsername" TileViewItemElement14.Text = "columnUsername"
TileViewItemElement4.TextAlignment = DevExpress.XtraEditors.TileItemContentAlignment.MiddleRight TileViewItemElement14.TextAlignment = DevExpress.XtraEditors.TileItemContentAlignment.MiddleRight
TileViewItemElement4.TextLocation = New System.Drawing.Point(-10, 0) TileViewItemElement14.TextLocation = New System.Drawing.Point(-10, 0)
TileViewItemElement5.Column = Me.columnMessage TileViewItemElement15.Column = Me.columnMessage
TileViewItemElement5.ColumnIndex = 1 TileViewItemElement15.ColumnIndex = 1
TileViewItemElement5.ImageOptions.ImageAlignment = DevExpress.XtraEditors.TileItemContentAlignment.MiddleCenter TileViewItemElement15.ImageOptions.ImageAlignment = DevExpress.XtraEditors.TileItemContentAlignment.MiddleCenter
TileViewItemElement5.ImageOptions.ImageScaleMode = DevExpress.XtraEditors.TileItemImageScaleMode.ZoomInside TileViewItemElement15.ImageOptions.ImageScaleMode = DevExpress.XtraEditors.TileItemImageScaleMode.ZoomInside
TileViewItemElement5.MaxWidth = 350 TileViewItemElement15.MaxWidth = 350
TileViewItemElement5.RowIndex = 1 TileViewItemElement15.RowIndex = 1
TileViewItemElement5.Text = "columnMessage" TileViewItemElement15.Text = "columnMessage"
TileViewItemElement5.TextAlignment = DevExpress.XtraEditors.TileItemContentAlignment.MiddleRight TileViewItemElement15.TextAlignment = DevExpress.XtraEditors.TileItemContentAlignment.MiddleRight
TileViewItemElement5.TextLocation = New System.Drawing.Point(-10, 0) TileViewItemElement15.TextLocation = New System.Drawing.Point(-10, 0)
TileViewItemElement6.Column = Me.columnDate TileViewItemElement16.Column = Me.columnDate
TileViewItemElement6.ImageOptions.ImageAlignment = DevExpress.XtraEditors.TileItemContentAlignment.MiddleCenter TileViewItemElement16.ImageOptions.ImageAlignment = DevExpress.XtraEditors.TileItemContentAlignment.MiddleCenter
TileViewItemElement6.ImageOptions.ImageScaleMode = DevExpress.XtraEditors.TileItemImageScaleMode.ZoomInside TileViewItemElement16.ImageOptions.ImageScaleMode = DevExpress.XtraEditors.TileItemImageScaleMode.ZoomInside
TileViewItemElement6.Text = "columnDate" TileViewItemElement16.Text = "columnDate"
TileViewItemElement6.TextAlignment = DevExpress.XtraEditors.TileItemContentAlignment.MiddleLeft TileViewItemElement16.TextAlignment = DevExpress.XtraEditors.TileItemContentAlignment.MiddleLeft
TileViewItemElement6.TextLocation = New System.Drawing.Point(10, 0) TileViewItemElement16.TextLocation = New System.Drawing.Point(10, 0)
ItemTemplate2.Elements.Add(TileViewItemElement4) ItemTemplate5.Elements.Add(TileViewItemElement14)
ItemTemplate2.Elements.Add(TileViewItemElement5) ItemTemplate5.Elements.Add(TileViewItemElement15)
ItemTemplate2.Elements.Add(TileViewItemElement6) ItemTemplate5.Elements.Add(TileViewItemElement16)
ItemTemplate2.Name = "ChatRight" ItemTemplate5.Name = "ChatRight"
TableRowDefinition3.Length.Value = 19.0R TableRowDefinition12.Length.Value = 19.0R
TableRowDefinition4.Length.Value = 45.0R TableRowDefinition13.Length.Value = 45.0R
ItemTemplate2.Rows.Add(TableRowDefinition3) ItemTemplate5.Rows.Add(TableRowDefinition12)
ItemTemplate2.Rows.Add(TableRowDefinition4) ItemTemplate5.Rows.Add(TableRowDefinition13)
TableColumnDefinition5.Length.Value = 250.0R TableColumnDefinition13.Length.Value = 250.0R
TableColumnDefinition6.Length.Value = 100.0R TableColumnDefinition14.Length.Value = 100.0R
ItemTemplate3.Columns.Add(TableColumnDefinition5) ItemTemplate6.Columns.Add(TableColumnDefinition13)
ItemTemplate3.Columns.Add(TableColumnDefinition6) ItemTemplate6.Columns.Add(TableColumnDefinition14)
TileViewItemElement7.Column = Me.columnUsername TileViewItemElement17.Column = Me.columnUsername
TileViewItemElement7.ImageOptions.ImageAlignment = DevExpress.XtraEditors.TileItemContentAlignment.MiddleCenter TileViewItemElement17.ImageOptions.ImageAlignment = DevExpress.XtraEditors.TileItemContentAlignment.MiddleCenter
TileViewItemElement7.ImageOptions.ImageScaleMode = DevExpress.XtraEditors.TileItemImageScaleMode.ZoomInside TileViewItemElement17.ImageOptions.ImageScaleMode = DevExpress.XtraEditors.TileItemImageScaleMode.ZoomInside
TileViewItemElement7.RowIndex = 1 TileViewItemElement17.RowIndex = 1
TileViewItemElement7.Text = "columnUsername" TileViewItemElement17.Text = "columnUsername"
TileViewItemElement7.TextAlignment = DevExpress.XtraEditors.TileItemContentAlignment.MiddleLeft TileViewItemElement17.TextAlignment = DevExpress.XtraEditors.TileItemContentAlignment.MiddleLeft
TileViewItemElement7.TextLocation = New System.Drawing.Point(10, 0) TileViewItemElement17.TextLocation = New System.Drawing.Point(10, 0)
TileViewItemElement8.Column = Me.columnMessage TileViewItemElement18.Column = Me.columnMessage
TileViewItemElement8.ImageOptions.ImageAlignment = DevExpress.XtraEditors.TileItemContentAlignment.MiddleCenter TileViewItemElement18.ImageOptions.ImageAlignment = DevExpress.XtraEditors.TileItemContentAlignment.MiddleCenter
TileViewItemElement8.ImageOptions.ImageScaleMode = DevExpress.XtraEditors.TileItemImageScaleMode.ZoomInside TileViewItemElement18.ImageOptions.ImageScaleMode = DevExpress.XtraEditors.TileItemImageScaleMode.ZoomInside
TileViewItemElement8.RowIndex = 2 TileViewItemElement18.RowIndex = 2
TileViewItemElement8.StretchHorizontal = True TileViewItemElement18.StretchHorizontal = True
TileViewItemElement8.StretchVertical = True TileViewItemElement18.StretchVertical = True
TileViewItemElement8.Text = "columnMessage" TileViewItemElement18.Text = "columnMessage"
TileViewItemElement8.TextAlignment = DevExpress.XtraEditors.TileItemContentAlignment.TopLeft TileViewItemElement18.TextAlignment = DevExpress.XtraEditors.TileItemContentAlignment.TopLeft
TileViewItemElement8.TextLocation = New System.Drawing.Point(10, 0) TileViewItemElement18.TextLocation = New System.Drawing.Point(10, 0)
TileViewItemElement9.Column = Me.columnDate TileViewItemElement19.Column = Me.columnDate
TileViewItemElement9.ColumnIndex = 1 TileViewItemElement19.ColumnIndex = 1
TileViewItemElement9.ImageOptions.ImageAlignment = DevExpress.XtraEditors.TileItemContentAlignment.MiddleCenter TileViewItemElement19.ImageOptions.ImageAlignment = DevExpress.XtraEditors.TileItemContentAlignment.MiddleCenter
TileViewItemElement9.ImageOptions.ImageScaleMode = DevExpress.XtraEditors.TileItemImageScaleMode.ZoomInside TileViewItemElement19.ImageOptions.ImageScaleMode = DevExpress.XtraEditors.TileItemImageScaleMode.ZoomInside
TileViewItemElement9.RowIndex = 1 TileViewItemElement19.RowIndex = 1
TileViewItemElement9.Text = "columnDate" TileViewItemElement19.Text = "columnDate"
TileViewItemElement9.TextAlignment = DevExpress.XtraEditors.TileItemContentAlignment.MiddleRight TileViewItemElement19.TextAlignment = DevExpress.XtraEditors.TileItemContentAlignment.MiddleRight
TileViewItemElement9.TextLocation = New System.Drawing.Point(-10, 0) TileViewItemElement19.TextLocation = New System.Drawing.Point(-10, 0)
TileViewItemElement10.Appearance.Normal.BackColor = System.Drawing.Color.PaleGreen TileViewItemElement20.Appearance.Normal.BackColor = System.Drawing.Color.PaleGreen
TileViewItemElement10.Appearance.Normal.Options.UseBackColor = True TileViewItemElement20.Appearance.Normal.Options.UseBackColor = True
TileViewItemElement10.Column = Me.columnTO_USER TileViewItemElement20.Column = Me.columnTO_USER
TileViewItemElement10.Height = 19 TileViewItemElement20.Height = 19
TileViewItemElement10.ImageOptions.ImageAlignment = DevExpress.XtraEditors.TileItemContentAlignment.MiddleCenter TileViewItemElement20.ImageOptions.ImageAlignment = DevExpress.XtraEditors.TileItemContentAlignment.MiddleCenter
TileViewItemElement10.ImageOptions.ImageScaleMode = DevExpress.XtraEditors.TileItemImageScaleMode.ZoomInside TileViewItemElement20.ImageOptions.ImageScaleMode = DevExpress.XtraEditors.TileItemImageScaleMode.ZoomInside
TileViewItemElement10.StretchHorizontal = True TileViewItemElement20.StretchHorizontal = True
TileViewItemElement10.Text = "columnTO_USER" TileViewItemElement20.Text = "columnTO_USER"
TileViewItemElement10.TextAlignment = DevExpress.XtraEditors.TileItemContentAlignment.MiddleLeft TileViewItemElement20.TextAlignment = DevExpress.XtraEditors.TileItemContentAlignment.MiddleLeft
TileViewItemElement10.TextLocation = New System.Drawing.Point(10, 0) TileViewItemElement20.TextLocation = New System.Drawing.Point(10, 0)
ItemTemplate3.Elements.Add(TileViewItemElement7) ItemTemplate6.Elements.Add(TileViewItemElement17)
ItemTemplate3.Elements.Add(TileViewItemElement8) ItemTemplate6.Elements.Add(TileViewItemElement18)
ItemTemplate3.Elements.Add(TileViewItemElement9) ItemTemplate6.Elements.Add(TileViewItemElement19)
ItemTemplate3.Elements.Add(TileViewItemElement10) ItemTemplate6.Elements.Add(TileViewItemElement20)
ItemTemplate3.Name = "ChatTo" ItemTemplate6.Name = "ChatTo"
TableRowDefinition5.Length.Value = 17.0R TableRowDefinition14.Length.Value = 17.0R
TableRowDefinition6.Length.Value = 19.0R TableRowDefinition15.Length.Value = 19.0R
TableRowDefinition7.Length.Value = 54.0R TableRowDefinition16.Length.Value = 54.0R
ItemTemplate3.Rows.Add(TableRowDefinition5) ItemTemplate6.Rows.Add(TableRowDefinition14)
ItemTemplate3.Rows.Add(TableRowDefinition6) ItemTemplate6.Rows.Add(TableRowDefinition15)
ItemTemplate3.Rows.Add(TableRowDefinition7) ItemTemplate6.Rows.Add(TableRowDefinition16)
TableSpan2.ColumnSpan = 2 TableSpan5.ColumnSpan = 2
TableSpan3.ColumnSpan = 2 TableSpan6.ColumnSpan = 2
TableSpan3.RowIndex = 2 TableSpan6.RowIndex = 2
ItemTemplate3.Spans.Add(TableSpan2) ItemTemplate6.Spans.Add(TableSpan5)
ItemTemplate3.Spans.Add(TableSpan3) ItemTemplate6.Spans.Add(TableSpan6)
Me.ChatViewOld.Templates.Add(ItemTemplate1) Me.ChatViewOld.Templates.Add(ItemTemplate4)
Me.ChatViewOld.Templates.Add(ItemTemplate2) Me.ChatViewOld.Templates.Add(ItemTemplate5)
Me.ChatViewOld.Templates.Add(ItemTemplate3) Me.ChatViewOld.Templates.Add(ItemTemplate6)
Me.ChatViewOld.TileColumns.Add(TableColumnDefinition7) Me.ChatViewOld.TileColumns.Add(TableColumnDefinition15)
Me.ChatViewOld.TileColumns.Add(TableColumnDefinition8) Me.ChatViewOld.TileColumns.Add(TableColumnDefinition16)
Me.ChatViewOld.TileRows.Add(TableRowDefinition8) Me.ChatViewOld.TileRows.Add(TableRowDefinition17)
Me.ChatViewOld.TileRows.Add(TableRowDefinition9) Me.ChatViewOld.TileRows.Add(TableRowDefinition18)
' '
'btnSendMessage 'btnSendMessage
' '
Me.btnSendMessage.Dock = System.Windows.Forms.DockStyle.Right Me.btnSendMessage.Dock = System.Windows.Forms.DockStyle.Right
Me.btnSendMessage.ImageOptions.Image = CType(resources.GetObject("btnSendMessage.ImageOptions.Image"), System.Drawing.Image) Me.btnSendMessage.ImageOptions.Image = CType(resources.GetObject("btnSendMessage.ImageOptions.Image"), System.Drawing.Image)
Me.btnSendMessage.ImageOptions.Location = DevExpress.XtraEditors.ImageLocation.MiddleCenter Me.btnSendMessage.ImageOptions.Location = DevExpress.XtraEditors.ImageLocation.MiddleCenter
Me.btnSendMessage.Location = New System.Drawing.Point(373, 0) Me.btnSendMessage.Location = New System.Drawing.Point(372, 0)
Me.btnSendMessage.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4) Me.btnSendMessage.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
Me.btnSendMessage.Name = "btnSendMessage" Me.btnSendMessage.Name = "btnSendMessage"
Me.btnSendMessage.PaintStyle = DevExpress.XtraEditors.Controls.PaintStyles.Light Me.btnSendMessage.PaintStyle = DevExpress.XtraEditors.Controls.PaintStyles.Light
@ -323,14 +323,14 @@ Partial Class ChatControl
'pnlMessage 'pnlMessage
' '
Me.pnlMessage.BackColor = System.Drawing.Color.DimGray Me.pnlMessage.BackColor = System.Drawing.Color.DimGray
Me.pnlMessage.Controls.Add(Me.ListBoxUserMention)
Me.pnlMessage.Controls.Add(Me.RichTextBox1) Me.pnlMessage.Controls.Add(Me.RichTextBox1)
Me.pnlMessage.Controls.Add(Me.btnSendMessage) Me.pnlMessage.Controls.Add(Me.btnSendMessage)
Me.pnlMessage.Controls.Add(Me.ListBoxUserMention)
Me.pnlMessage.Dock = System.Windows.Forms.DockStyle.Bottom Me.pnlMessage.Dock = System.Windows.Forms.DockStyle.Bottom
Me.pnlMessage.Location = New System.Drawing.Point(0, 485) Me.pnlMessage.Location = New System.Drawing.Point(0, 485)
Me.pnlMessage.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4) Me.pnlMessage.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
Me.pnlMessage.Name = "pnlMessage" Me.pnlMessage.Name = "pnlMessage"
Me.pnlMessage.Size = New System.Drawing.Size(422, 102) Me.pnlMessage.Size = New System.Drawing.Size(421, 102)
Me.pnlMessage.TabIndex = 3 Me.pnlMessage.TabIndex = 3
' '
'ListBoxUserMention 'ListBoxUserMention
@ -340,7 +340,7 @@ Partial Class ChatControl
Me.ListBoxUserMention.ForeColor = System.Drawing.Color.Blue Me.ListBoxUserMention.ForeColor = System.Drawing.Color.Blue
Me.ListBoxUserMention.FormattingEnabled = True Me.ListBoxUserMention.FormattingEnabled = True
Me.ListBoxUserMention.ItemHeight = 16 Me.ListBoxUserMention.ItemHeight = 16
Me.ListBoxUserMention.Location = New System.Drawing.Point(191, 22) Me.ListBoxUserMention.Location = New System.Drawing.Point(176, 17)
Me.ListBoxUserMention.Name = "ListBoxUserMention" Me.ListBoxUserMention.Name = "ListBoxUserMention"
Me.ListBoxUserMention.Size = New System.Drawing.Size(129, 80) Me.ListBoxUserMention.Size = New System.Drawing.Size(129, 80)
Me.ListBoxUserMention.TabIndex = 4 Me.ListBoxUserMention.TabIndex = 4
@ -349,10 +349,11 @@ Partial Class ChatControl
'RichTextBox1 'RichTextBox1
' '
Me.RichTextBox1.AutoWordSelection = True Me.RichTextBox1.AutoWordSelection = True
Me.RichTextBox1.Location = New System.Drawing.Point(10, 6) Me.RichTextBox1.Dock = System.Windows.Forms.DockStyle.Fill
Me.RichTextBox1.Location = New System.Drawing.Point(0, 0)
Me.RichTextBox1.Name = "RichTextBox1" Me.RichTextBox1.Name = "RichTextBox1"
Me.RichTextBox1.ShowSelectionMargin = True Me.RichTextBox1.ShowSelectionMargin = True
Me.RichTextBox1.Size = New System.Drawing.Size(353, 91) Me.RichTextBox1.Size = New System.Drawing.Size(372, 102)
Me.RichTextBox1.TabIndex = 3 Me.RichTextBox1.TabIndex = 3
Me.RichTextBox1.Text = "" Me.RichTextBox1.Text = ""
' '
@ -361,7 +362,7 @@ Partial Class ChatControl
Me.MenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.tsmitmTitle, Me.tsmenitmHamburger, Me.TeilnehmerToolStripMenuItem}) 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.Location = New System.Drawing.Point(0, 0)
Me.MenuStrip1.Name = "MenuStrip1" Me.MenuStrip1.Name = "MenuStrip1"
Me.MenuStrip1.Size = New System.Drawing.Size(422, 25) Me.MenuStrip1.Size = New System.Drawing.Size(421, 25)
Me.MenuStrip1.TabIndex = 4 Me.MenuStrip1.TabIndex = 4
Me.MenuStrip1.Text = "MenuStrip1" Me.MenuStrip1.Text = "MenuStrip1"
' '
@ -404,11 +405,13 @@ Partial Class ChatControl
' '
'GridChat 'GridChat
' '
Me.GridChat.BackgroundImage = Global.DigitalData.Controls.ChatControl.My.Resources.Resources.crop_php
Me.GridChat.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Center
Me.GridChat.Dock = System.Windows.Forms.DockStyle.Fill Me.GridChat.Dock = System.Windows.Forms.DockStyle.Fill
Me.GridChat.Location = New System.Drawing.Point(0, 238) Me.GridChat.Location = New System.Drawing.Point(0, 238)
Me.GridChat.MainView = Me.ChatView Me.GridChat.MainView = Me.ChatView
Me.GridChat.Name = "GridChat" Me.GridChat.Name = "GridChat"
Me.GridChat.Size = New System.Drawing.Size(422, 247) Me.GridChat.Size = New System.Drawing.Size(421, 247)
Me.GridChat.TabIndex = 5 Me.GridChat.TabIndex = 5
Me.GridChat.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.ChatView}) Me.GridChat.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.ChatView})
' '
@ -429,7 +432,7 @@ Partial Class ChatControl
Me.ChatView.OptionsView.ShowVerticalLines = DevExpress.Utils.DefaultBoolean.[False] Me.ChatView.OptionsView.ShowVerticalLines = DevExpress.Utils.DefaultBoolean.[False]
Me.ChatView.PreviewFieldName = "MESSAGE_TEXT" Me.ChatView.PreviewFieldName = "MESSAGE_TEXT"
Me.ChatView.RowHeight = 25 Me.ChatView.RowHeight = 25
Me.ChatView.RowSeparatorHeight = 25 Me.ChatView.RowSeparatorHeight = 5
' '
'columnFromUser 'columnFromUser
' '
@ -472,7 +475,7 @@ Partial Class ChatControl
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))
Me.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4) Me.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
Me.Name = "ChatControl" Me.Name = "ChatControl"
Me.Size = New System.Drawing.Size(422, 587) Me.Size = New System.Drawing.Size(421, 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.GridChatOld, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.GridChatOld, System.ComponentModel.ISupportInitialize).EndInit()

19
Controls.ChatControl/ChatControl.vb
View File

@ -433,12 +433,12 @@ Public Class ChatControl
' Eigene Nachrichten ' Eigene Nachrichten
If oIsOwnMessage Then If oIsOwnMessage Then
e.Appearance.BackColor = Color.PaleTurquoise e.Appearance.BackColor = Color.White
End If End If
' Andere Nachrichten ' Andere Nachrichten
If Not oIsOwnMessage Then If Not oIsOwnMessage Then
e.Appearance.BackColor = Color.White e.Appearance.BackColor = Color.PaleTurquoise
End If End If
End Sub End Sub
@ -451,28 +451,19 @@ Public Class ChatControl
' Eigene Nachrichten ' Eigene Nachrichten
If oIsOwnMessage Then If oIsOwnMessage Then
' Benutzername e.Appearance.BackColor = Color.White
If e.Column.FieldName = IdentificationColumn Then
e.Appearance.ForeColor = Color.Purple
End If
e.Appearance.BackColor = Color.PaleTurquoise
End If End If
' Andere Nachrichten ' Andere Nachrichten
If Not oIsOwnMessage Then 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 Not (IsNothing(oToUser) Or IsDBNull(oToUser)) Then
If oToUser = Username Or oToUser = ConversationIdentification Then If oToUser = Username Or oToUser = ConversationIdentification Then
e.Appearance.BackColor = Color.LightSalmon e.Appearance.BackColor = Color.LightSalmon
Else Else
e.Appearance.BackColor = Color.White e.Appearance.BackColor = Color.PaleTurquoise
End If End If
Else Else
e.Appearance.BackColor = Color.White e.Appearance.BackColor = Color.PaleTurquoise
End If End If
End If End If
End Sub End Sub