diff --git a/Controls.ChatControl/ChatControl.Designer.vb b/Controls.ChatControl/ChatControl.Designer.vb index 30d8af11..cb91bf11 100644 --- a/Controls.ChatControl/ChatControl.Designer.vb +++ b/Controls.ChatControl/ChatControl.Designer.vb @@ -23,39 +23,39 @@ Partial Class ChatControl Private Sub InitializeComponent() Me.components = New System.ComponentModel.Container() - Dim ItemTemplate1 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 TableColumnDefinition2 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 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 TableRowDefinition1 As DevExpress.XtraEditors.TableLayout.TableRowDefinition = New DevExpress.XtraEditors.TableLayout.TableRowDefinition() - Dim TableRowDefinition2 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 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 TableRowDefinition4 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 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 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 TableRowDefinition5 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 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 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 ItemTemplate4 As DevExpress.XtraGrid.Views.Tile.ItemTemplate = New DevExpress.XtraGrid.Views.Tile.ItemTemplate() + Dim TableColumnDefinition9 As DevExpress.XtraEditors.TableLayout.TableColumnDefinition = New DevExpress.XtraEditors.TableLayout.TableColumnDefinition() + Dim TableColumnDefinition10 As DevExpress.XtraEditors.TableLayout.TableColumnDefinition = New DevExpress.XtraEditors.TableLayout.TableColumnDefinition() + Dim TileViewItemElement11 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 TileViewItemElement13 As DevExpress.XtraGrid.Views.Tile.TileViewItemElement = New DevExpress.XtraGrid.Views.Tile.TileViewItemElement() + Dim TableRowDefinition10 As DevExpress.XtraEditors.TableLayout.TableRowDefinition = New DevExpress.XtraEditors.TableLayout.TableRowDefinition() + Dim TableRowDefinition11 As DevExpress.XtraEditors.TableLayout.TableRowDefinition = New DevExpress.XtraEditors.TableLayout.TableRowDefinition() + Dim TableSpan4 As DevExpress.XtraEditors.TableLayout.TableSpan = New DevExpress.XtraEditors.TableLayout.TableSpan() + Dim ItemTemplate5 As DevExpress.XtraGrid.Views.Tile.ItemTemplate = New DevExpress.XtraGrid.Views.Tile.ItemTemplate() + Dim TableColumnDefinition11 As DevExpress.XtraEditors.TableLayout.TableColumnDefinition = New DevExpress.XtraEditors.TableLayout.TableColumnDefinition() + Dim TableColumnDefinition12 As DevExpress.XtraEditors.TableLayout.TableColumnDefinition = New DevExpress.XtraEditors.TableLayout.TableColumnDefinition() + Dim TileViewItemElement14 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 TileViewItemElement16 As DevExpress.XtraGrid.Views.Tile.TileViewItemElement = New DevExpress.XtraGrid.Views.Tile.TileViewItemElement() + Dim TableRowDefinition12 As DevExpress.XtraEditors.TableLayout.TableRowDefinition = New DevExpress.XtraEditors.TableLayout.TableRowDefinition() + Dim TableRowDefinition13 As DevExpress.XtraEditors.TableLayout.TableRowDefinition = New DevExpress.XtraEditors.TableLayout.TableRowDefinition() + Dim ItemTemplate6 As DevExpress.XtraGrid.Views.Tile.ItemTemplate = New DevExpress.XtraGrid.Views.Tile.ItemTemplate() + Dim TableColumnDefinition13 As DevExpress.XtraEditors.TableLayout.TableColumnDefinition = New DevExpress.XtraEditors.TableLayout.TableColumnDefinition() + Dim TableColumnDefinition14 As DevExpress.XtraEditors.TableLayout.TableColumnDefinition = New DevExpress.XtraEditors.TableLayout.TableColumnDefinition() + Dim TileViewItemElement17 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 TileViewItemElement19 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 TableRowDefinition14 As DevExpress.XtraEditors.TableLayout.TableRowDefinition = New DevExpress.XtraEditors.TableLayout.TableRowDefinition() + Dim TableRowDefinition15 As DevExpress.XtraEditors.TableLayout.TableRowDefinition = New DevExpress.XtraEditors.TableLayout.TableRowDefinition() + Dim TableRowDefinition16 As DevExpress.XtraEditors.TableLayout.TableRowDefinition = New DevExpress.XtraEditors.TableLayout.TableRowDefinition() + Dim TableSpan5 As DevExpress.XtraEditors.TableLayout.TableSpan = New DevExpress.XtraEditors.TableLayout.TableSpan() + Dim TableSpan6 As DevExpress.XtraEditors.TableLayout.TableSpan = New DevExpress.XtraEditors.TableLayout.TableSpan() + Dim TableColumnDefinition15 As DevExpress.XtraEditors.TableLayout.TableColumnDefinition = New DevExpress.XtraEditors.TableLayout.TableColumnDefinition() + Dim TableColumnDefinition16 As DevExpress.XtraEditors.TableLayout.TableColumnDefinition = New DevExpress.XtraEditors.TableLayout.TableColumnDefinition() + Dim TableRowDefinition17 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)) Me.columnUsername = 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.Name = "GridChatOld" 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.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.RowCount = 0 Me.ChatViewOld.OptionsTiles.ScrollMode = DevExpress.XtraEditors.TileControlScrollMode.ScrollBar - TableColumnDefinition1.Length.Value = 250.0R - TableColumnDefinition2.Length.Value = 100.0R - ItemTemplate1.Columns.Add(TableColumnDefinition1) - ItemTemplate1.Columns.Add(TableColumnDefinition2) - TileViewItemElement1.Column = Me.columnUsername - TileViewItemElement1.ImageOptions.ImageAlignment = DevExpress.XtraEditors.TileItemContentAlignment.MiddleCenter - TileViewItemElement1.ImageOptions.ImageScaleMode = DevExpress.XtraEditors.TileItemImageScaleMode.ZoomInside - 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.StretchHorizontal = True - TileViewItemElement2.StretchVertical = True - TileViewItemElement2.Text = "columnMessage" - TileViewItemElement2.TextAlignment = DevExpress.XtraEditors.TileItemContentAlignment.TopLeft - TileViewItemElement2.TextLocation = New System.Drawing.Point(10, 0) - TileViewItemElement3.Column = Me.columnDate - TileViewItemElement3.ColumnIndex = 1 - TileViewItemElement3.ImageOptions.ImageAlignment = DevExpress.XtraEditors.TileItemContentAlignment.MiddleCenter - TileViewItemElement3.ImageOptions.ImageScaleMode = DevExpress.XtraEditors.TileItemImageScaleMode.ZoomInside - TileViewItemElement3.Text = "columnDate" - TileViewItemElement3.TextAlignment = DevExpress.XtraEditors.TileItemContentAlignment.MiddleRight - TileViewItemElement3.TextLocation = New System.Drawing.Point(-10, 0) - ItemTemplate1.Elements.Add(TileViewItemElement1) - ItemTemplate1.Elements.Add(TileViewItemElement2) - ItemTemplate1.Elements.Add(TileViewItemElement3) - ItemTemplate1.Name = "ChatLeft" - TableRowDefinition1.Length.Value = 19.0R - TableRowDefinition2.Length.Value = 45.0R - ItemTemplate1.Rows.Add(TableRowDefinition1) - ItemTemplate1.Rows.Add(TableRowDefinition2) - TableSpan1.ColumnSpan = 2 - TableSpan1.RowIndex = 1 - ItemTemplate1.Spans.Add(TableSpan1) - 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.ColumnIndex = 1 - TileViewItemElement5.ImageOptions.ImageAlignment = DevExpress.XtraEditors.TileItemContentAlignment.MiddleCenter - TileViewItemElement5.ImageOptions.ImageScaleMode = DevExpress.XtraEditors.TileItemImageScaleMode.ZoomInside - TileViewItemElement5.MaxWidth = 350 - TileViewItemElement5.RowIndex = 1 - TileViewItemElement5.Text = "columnMessage" - TileViewItemElement5.TextAlignment = DevExpress.XtraEditors.TileItemContentAlignment.MiddleRight - TileViewItemElement5.TextLocation = New System.Drawing.Point(-10, 0) - TileViewItemElement6.Column = Me.columnDate - 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) - ItemTemplate2.Elements.Add(TileViewItemElement5) - ItemTemplate2.Elements.Add(TileViewItemElement6) - ItemTemplate2.Name = "ChatRight" - TableRowDefinition3.Length.Value = 19.0R - TableRowDefinition4.Length.Value = 45.0R - ItemTemplate2.Rows.Add(TableRowDefinition3) - ItemTemplate2.Rows.Add(TableRowDefinition4) - TableColumnDefinition5.Length.Value = 250.0R - TableColumnDefinition6.Length.Value = 100.0R - ItemTemplate3.Columns.Add(TableColumnDefinition5) - ItemTemplate3.Columns.Add(TableColumnDefinition6) - 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.ImageScaleMode = DevExpress.XtraEditors.TileItemImageScaleMode.ZoomInside - TileViewItemElement8.RowIndex = 2 - TileViewItemElement8.StretchHorizontal = True - TileViewItemElement8.StretchVertical = True - TileViewItemElement8.Text = "columnMessage" - TileViewItemElement8.TextAlignment = DevExpress.XtraEditors.TileItemContentAlignment.TopLeft - TileViewItemElement8.TextLocation = New System.Drawing.Point(10, 0) - TileViewItemElement9.Column = Me.columnDate - TileViewItemElement9.ColumnIndex = 1 - TileViewItemElement9.ImageOptions.ImageAlignment = DevExpress.XtraEditors.TileItemContentAlignment.MiddleCenter - TileViewItemElement9.ImageOptions.ImageScaleMode = DevExpress.XtraEditors.TileItemImageScaleMode.ZoomInside - TileViewItemElement9.RowIndex = 1 - TileViewItemElement9.Text = "columnDate" - TileViewItemElement9.TextAlignment = DevExpress.XtraEditors.TileItemContentAlignment.MiddleRight - TileViewItemElement9.TextLocation = New System.Drawing.Point(-10, 0) - TileViewItemElement10.Appearance.Normal.BackColor = System.Drawing.Color.PaleGreen - TileViewItemElement10.Appearance.Normal.Options.UseBackColor = True - TileViewItemElement10.Column = Me.columnTO_USER - TileViewItemElement10.Height = 19 - TileViewItemElement10.ImageOptions.ImageAlignment = DevExpress.XtraEditors.TileItemContentAlignment.MiddleCenter - TileViewItemElement10.ImageOptions.ImageScaleMode = DevExpress.XtraEditors.TileItemImageScaleMode.ZoomInside - TileViewItemElement10.StretchHorizontal = True - TileViewItemElement10.Text = "columnTO_USER" - TileViewItemElement10.TextAlignment = DevExpress.XtraEditors.TileItemContentAlignment.MiddleLeft - TileViewItemElement10.TextLocation = New System.Drawing.Point(10, 0) - ItemTemplate3.Elements.Add(TileViewItemElement7) - ItemTemplate3.Elements.Add(TileViewItemElement8) - ItemTemplate3.Elements.Add(TileViewItemElement9) - ItemTemplate3.Elements.Add(TileViewItemElement10) - ItemTemplate3.Name = "ChatTo" - TableRowDefinition5.Length.Value = 17.0R - TableRowDefinition6.Length.Value = 19.0R - TableRowDefinition7.Length.Value = 54.0R - ItemTemplate3.Rows.Add(TableRowDefinition5) - ItemTemplate3.Rows.Add(TableRowDefinition6) - ItemTemplate3.Rows.Add(TableRowDefinition7) - TableSpan2.ColumnSpan = 2 - TableSpan3.ColumnSpan = 2 - TableSpan3.RowIndex = 2 - ItemTemplate3.Spans.Add(TableSpan2) - ItemTemplate3.Spans.Add(TableSpan3) - Me.ChatViewOld.Templates.Add(ItemTemplate1) - Me.ChatViewOld.Templates.Add(ItemTemplate2) - 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) + TableColumnDefinition9.Length.Value = 250.0R + TableColumnDefinition10.Length.Value = 100.0R + ItemTemplate4.Columns.Add(TableColumnDefinition9) + ItemTemplate4.Columns.Add(TableColumnDefinition10) + TileViewItemElement11.Column = Me.columnUsername + TileViewItemElement11.ImageOptions.ImageAlignment = DevExpress.XtraEditors.TileItemContentAlignment.MiddleCenter + TileViewItemElement11.ImageOptions.ImageScaleMode = DevExpress.XtraEditors.TileItemImageScaleMode.ZoomInside + TileViewItemElement11.Text = "columnUsername" + TileViewItemElement11.TextAlignment = DevExpress.XtraEditors.TileItemContentAlignment.MiddleLeft + TileViewItemElement11.TextLocation = New System.Drawing.Point(10, 0) + TileViewItemElement12.Column = Me.columnMessage + TileViewItemElement12.ImageOptions.ImageAlignment = DevExpress.XtraEditors.TileItemContentAlignment.MiddleCenter + TileViewItemElement12.ImageOptions.ImageScaleMode = DevExpress.XtraEditors.TileItemImageScaleMode.ZoomInside + TileViewItemElement12.RowIndex = 1 + TileViewItemElement12.StretchHorizontal = True + TileViewItemElement12.StretchVertical = True + TileViewItemElement12.Text = "columnMessage" + TileViewItemElement12.TextAlignment = DevExpress.XtraEditors.TileItemContentAlignment.TopLeft + TileViewItemElement12.TextLocation = New System.Drawing.Point(10, 0) + TileViewItemElement13.Column = Me.columnDate + TileViewItemElement13.ColumnIndex = 1 + TileViewItemElement13.ImageOptions.ImageAlignment = DevExpress.XtraEditors.TileItemContentAlignment.MiddleCenter + TileViewItemElement13.ImageOptions.ImageScaleMode = DevExpress.XtraEditors.TileItemImageScaleMode.ZoomInside + TileViewItemElement13.Text = "columnDate" + TileViewItemElement13.TextAlignment = DevExpress.XtraEditors.TileItemContentAlignment.MiddleRight + TileViewItemElement13.TextLocation = New System.Drawing.Point(-10, 0) + ItemTemplate4.Elements.Add(TileViewItemElement11) + ItemTemplate4.Elements.Add(TileViewItemElement12) + ItemTemplate4.Elements.Add(TileViewItemElement13) + ItemTemplate4.Name = "ChatLeft" + TableRowDefinition10.Length.Value = 19.0R + TableRowDefinition11.Length.Value = 45.0R + ItemTemplate4.Rows.Add(TableRowDefinition10) + ItemTemplate4.Rows.Add(TableRowDefinition11) + TableSpan4.ColumnSpan = 2 + TableSpan4.RowIndex = 1 + ItemTemplate4.Spans.Add(TableSpan4) + TableColumnDefinition11.Length.Value = 100.0R + TableColumnDefinition12.Length.Value = 250.0R + ItemTemplate5.Columns.Add(TableColumnDefinition11) + ItemTemplate5.Columns.Add(TableColumnDefinition12) + TileViewItemElement14.Column = Me.columnUsername + TileViewItemElement14.ColumnIndex = 1 + TileViewItemElement14.ImageOptions.ImageAlignment = DevExpress.XtraEditors.TileItemContentAlignment.MiddleCenter + TileViewItemElement14.ImageOptions.ImageScaleMode = DevExpress.XtraEditors.TileItemImageScaleMode.ZoomInside + TileViewItemElement14.Text = "columnUsername" + TileViewItemElement14.TextAlignment = DevExpress.XtraEditors.TileItemContentAlignment.MiddleRight + TileViewItemElement14.TextLocation = New System.Drawing.Point(-10, 0) + TileViewItemElement15.Column = Me.columnMessage + TileViewItemElement15.ColumnIndex = 1 + TileViewItemElement15.ImageOptions.ImageAlignment = DevExpress.XtraEditors.TileItemContentAlignment.MiddleCenter + TileViewItemElement15.ImageOptions.ImageScaleMode = DevExpress.XtraEditors.TileItemImageScaleMode.ZoomInside + TileViewItemElement15.MaxWidth = 350 + TileViewItemElement15.RowIndex = 1 + TileViewItemElement15.Text = "columnMessage" + TileViewItemElement15.TextAlignment = DevExpress.XtraEditors.TileItemContentAlignment.MiddleRight + TileViewItemElement15.TextLocation = New System.Drawing.Point(-10, 0) + TileViewItemElement16.Column = Me.columnDate + TileViewItemElement16.ImageOptions.ImageAlignment = DevExpress.XtraEditors.TileItemContentAlignment.MiddleCenter + TileViewItemElement16.ImageOptions.ImageScaleMode = DevExpress.XtraEditors.TileItemImageScaleMode.ZoomInside + TileViewItemElement16.Text = "columnDate" + TileViewItemElement16.TextAlignment = DevExpress.XtraEditors.TileItemContentAlignment.MiddleLeft + TileViewItemElement16.TextLocation = New System.Drawing.Point(10, 0) + ItemTemplate5.Elements.Add(TileViewItemElement14) + ItemTemplate5.Elements.Add(TileViewItemElement15) + ItemTemplate5.Elements.Add(TileViewItemElement16) + ItemTemplate5.Name = "ChatRight" + TableRowDefinition12.Length.Value = 19.0R + TableRowDefinition13.Length.Value = 45.0R + ItemTemplate5.Rows.Add(TableRowDefinition12) + ItemTemplate5.Rows.Add(TableRowDefinition13) + TableColumnDefinition13.Length.Value = 250.0R + TableColumnDefinition14.Length.Value = 100.0R + ItemTemplate6.Columns.Add(TableColumnDefinition13) + ItemTemplate6.Columns.Add(TableColumnDefinition14) + TileViewItemElement17.Column = Me.columnUsername + TileViewItemElement17.ImageOptions.ImageAlignment = DevExpress.XtraEditors.TileItemContentAlignment.MiddleCenter + TileViewItemElement17.ImageOptions.ImageScaleMode = DevExpress.XtraEditors.TileItemImageScaleMode.ZoomInside + TileViewItemElement17.RowIndex = 1 + TileViewItemElement17.Text = "columnUsername" + TileViewItemElement17.TextAlignment = DevExpress.XtraEditors.TileItemContentAlignment.MiddleLeft + TileViewItemElement17.TextLocation = New System.Drawing.Point(10, 0) + TileViewItemElement18.Column = Me.columnMessage + TileViewItemElement18.ImageOptions.ImageAlignment = DevExpress.XtraEditors.TileItemContentAlignment.MiddleCenter + TileViewItemElement18.ImageOptions.ImageScaleMode = DevExpress.XtraEditors.TileItemImageScaleMode.ZoomInside + TileViewItemElement18.RowIndex = 2 + TileViewItemElement18.StretchHorizontal = True + TileViewItemElement18.StretchVertical = True + TileViewItemElement18.Text = "columnMessage" + TileViewItemElement18.TextAlignment = DevExpress.XtraEditors.TileItemContentAlignment.TopLeft + TileViewItemElement18.TextLocation = New System.Drawing.Point(10, 0) + TileViewItemElement19.Column = Me.columnDate + TileViewItemElement19.ColumnIndex = 1 + TileViewItemElement19.ImageOptions.ImageAlignment = DevExpress.XtraEditors.TileItemContentAlignment.MiddleCenter + TileViewItemElement19.ImageOptions.ImageScaleMode = DevExpress.XtraEditors.TileItemImageScaleMode.ZoomInside + TileViewItemElement19.RowIndex = 1 + TileViewItemElement19.Text = "columnDate" + TileViewItemElement19.TextAlignment = DevExpress.XtraEditors.TileItemContentAlignment.MiddleRight + TileViewItemElement19.TextLocation = New System.Drawing.Point(-10, 0) + TileViewItemElement20.Appearance.Normal.BackColor = System.Drawing.Color.PaleGreen + TileViewItemElement20.Appearance.Normal.Options.UseBackColor = True + TileViewItemElement20.Column = Me.columnTO_USER + TileViewItemElement20.Height = 19 + TileViewItemElement20.ImageOptions.ImageAlignment = DevExpress.XtraEditors.TileItemContentAlignment.MiddleCenter + TileViewItemElement20.ImageOptions.ImageScaleMode = DevExpress.XtraEditors.TileItemImageScaleMode.ZoomInside + TileViewItemElement20.StretchHorizontal = True + TileViewItemElement20.Text = "columnTO_USER" + TileViewItemElement20.TextAlignment = DevExpress.XtraEditors.TileItemContentAlignment.MiddleLeft + TileViewItemElement20.TextLocation = New System.Drawing.Point(10, 0) + ItemTemplate6.Elements.Add(TileViewItemElement17) + ItemTemplate6.Elements.Add(TileViewItemElement18) + ItemTemplate6.Elements.Add(TileViewItemElement19) + ItemTemplate6.Elements.Add(TileViewItemElement20) + ItemTemplate6.Name = "ChatTo" + TableRowDefinition14.Length.Value = 17.0R + TableRowDefinition15.Length.Value = 19.0R + TableRowDefinition16.Length.Value = 54.0R + ItemTemplate6.Rows.Add(TableRowDefinition14) + ItemTemplate6.Rows.Add(TableRowDefinition15) + ItemTemplate6.Rows.Add(TableRowDefinition16) + TableSpan5.ColumnSpan = 2 + TableSpan6.ColumnSpan = 2 + TableSpan6.RowIndex = 2 + ItemTemplate6.Spans.Add(TableSpan5) + ItemTemplate6.Spans.Add(TableSpan6) + Me.ChatViewOld.Templates.Add(ItemTemplate4) + Me.ChatViewOld.Templates.Add(ItemTemplate5) + Me.ChatViewOld.Templates.Add(ItemTemplate6) + Me.ChatViewOld.TileColumns.Add(TableColumnDefinition15) + Me.ChatViewOld.TileColumns.Add(TableColumnDefinition16) + Me.ChatViewOld.TileRows.Add(TableRowDefinition17) + Me.ChatViewOld.TileRows.Add(TableRowDefinition18) ' 'btnSendMessage ' Me.btnSendMessage.Dock = System.Windows.Forms.DockStyle.Right Me.btnSendMessage.ImageOptions.Image = CType(resources.GetObject("btnSendMessage.ImageOptions.Image"), System.Drawing.Image) 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.Name = "btnSendMessage" Me.btnSendMessage.PaintStyle = DevExpress.XtraEditors.Controls.PaintStyles.Light @@ -323,14 +323,14 @@ Partial Class ChatControl 'pnlMessage ' 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.Controls.Add(Me.ListBoxUserMention) 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.Size = New System.Drawing.Size(421, 102) Me.pnlMessage.TabIndex = 3 ' 'ListBoxUserMention @@ -340,7 +340,7 @@ Partial Class ChatControl 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.Location = New System.Drawing.Point(176, 17) Me.ListBoxUserMention.Name = "ListBoxUserMention" Me.ListBoxUserMention.Size = New System.Drawing.Size(129, 80) Me.ListBoxUserMention.TabIndex = 4 @@ -349,10 +349,11 @@ Partial Class ChatControl 'RichTextBox1 ' 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.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.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.Location = New System.Drawing.Point(0, 0) 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.Text = "MenuStrip1" ' @@ -404,11 +405,13 @@ Partial Class ChatControl ' '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.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.Size = New System.Drawing.Size(421, 247) Me.GridChat.TabIndex = 5 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.PreviewFieldName = "MESSAGE_TEXT" Me.ChatView.RowHeight = 25 - Me.ChatView.RowSeparatorHeight = 25 + Me.ChatView.RowSeparatorHeight = 5 ' '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.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4) 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.RepositoryItemHyperLinkEdit1, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.GridChatOld, System.ComponentModel.ISupportInitialize).EndInit() diff --git a/Controls.ChatControl/ChatControl.vb b/Controls.ChatControl/ChatControl.vb index 50ce0657..c33eaa11 100644 --- a/Controls.ChatControl/ChatControl.vb +++ b/Controls.ChatControl/ChatControl.vb @@ -433,12 +433,12 @@ Public Class ChatControl ' Eigene Nachrichten If oIsOwnMessage Then - e.Appearance.BackColor = Color.PaleTurquoise + e.Appearance.BackColor = Color.White End If ' Andere Nachrichten If Not oIsOwnMessage Then - e.Appearance.BackColor = Color.White + e.Appearance.BackColor = Color.PaleTurquoise End If End Sub @@ -451,28 +451,19 @@ Public Class ChatControl ' Eigene Nachrichten If oIsOwnMessage Then - ' Benutzername - If e.Column.FieldName = IdentificationColumn Then - e.Appearance.ForeColor = Color.Purple - End If - - e.Appearance.BackColor = Color.PaleTurquoise + e.Appearance.BackColor = Color.White 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 + e.Appearance.BackColor = Color.PaleTurquoise End If Else - e.Appearance.BackColor = Color.White + e.Appearance.BackColor = Color.PaleTurquoise End If End If End Sub