_ Partial Class ChatControl Inherits System.Windows.Forms.UserControl 'UserControl1 überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen. _ Protected Overrides Sub Dispose(ByVal disposing As Boolean) Try If disposing AndAlso components IsNot Nothing Then components.Dispose() End If Finally MyBase.Dispose(disposing) End Try End Sub 'Wird vom Windows Form-Designer benötigt. Private components As System.ComponentModel.IContainer 'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich. 'Das Bearbeiten ist mit dem Windows Form-Designer möglich. 'Das Bearbeiten mit dem Code-Editor ist nicht möglich. _ Private Sub InitializeComponent() Me.components = New System.ComponentModel.Container() Dim ItemTemplate3 As DevExpress.XtraGrid.Views.Tile.ItemTemplate = New DevExpress.XtraGrid.Views.Tile.ItemTemplate() 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 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 TableRowDefinition7 As DevExpress.XtraEditors.TableLayout.TableRowDefinition = New DevExpress.XtraEditors.TableLayout.TableRowDefinition() Dim TableRowDefinition8 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 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 TileViewItemElement12 As DevExpress.XtraGrid.Views.Tile.TileViewItemElement = New DevExpress.XtraGrid.Views.Tile.TileViewItemElement() 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 TableColumnDefinition11 As DevExpress.XtraEditors.TableLayout.TableColumnDefinition = New DevExpress.XtraEditors.TableLayout.TableColumnDefinition() Dim TableColumnDefinition12 As DevExpress.XtraEditors.TableLayout.TableColumnDefinition = New DevExpress.XtraEditors.TableLayout.TableColumnDefinition() Dim TableRowDefinition11 As DevExpress.XtraEditors.TableLayout.TableRowDefinition = New DevExpress.XtraEditors.TableLayout.TableRowDefinition() Dim TableRowDefinition12 As DevExpress.XtraEditors.TableLayout.TableRowDefinition = New DevExpress.XtraEditors.TableLayout.TableRowDefinition() Dim EditorButtonImageOptions2 As DevExpress.XtraEditors.Controls.EditorButtonImageOptions = New DevExpress.XtraEditors.Controls.EditorButtonImageOptions() Dim SerializableAppearanceObject5 As DevExpress.Utils.SerializableAppearanceObject = New DevExpress.Utils.SerializableAppearanceObject() Dim SerializableAppearanceObject6 As DevExpress.Utils.SerializableAppearanceObject = New DevExpress.Utils.SerializableAppearanceObject() Dim SerializableAppearanceObject7 As DevExpress.Utils.SerializableAppearanceObject = New DevExpress.Utils.SerializableAppearanceObject() Dim SerializableAppearanceObject8 As DevExpress.Utils.SerializableAppearanceObject = New DevExpress.Utils.SerializableAppearanceObject() Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(ChatControl)) Me.columnUsername = New DevExpress.XtraGrid.Columns.TileViewColumn() Me.columnMessage = New DevExpress.XtraGrid.Columns.TileViewColumn() Me.columnDate = New DevExpress.XtraGrid.Columns.TileViewColumn() Me.RepositoryItemHypertextLabel1 = New DevExpress.XtraEditors.Repository.RepositoryItemHypertextLabel() Me.RepositoryItemHyperLinkEdit1 = New DevExpress.XtraEditors.Repository.RepositoryItemHyperLinkEdit() Me.SplitContainerControl1 = New DevExpress.XtraEditors.SplitContainerControl() Me.GridChat = New DevExpress.XtraGrid.GridControl() Me.ChatView = New DevExpress.XtraGrid.Views.Tile.TileView() Me.lookupConversations = New DigitalData.Controls.LookupGrid.LookupControl2() Me.LookupControl21View = New DevExpress.XtraGrid.Views.Grid.GridView() Me.txtMessage = New DevExpress.XtraEditors.MemoEdit() Me.btnSendMessage = New DevExpress.XtraEditors.SimpleButton() Me.ChatSource = New System.Windows.Forms.BindingSource(Me.components) CType(Me.RepositoryItemHypertextLabel1, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.RepositoryItemHyperLinkEdit1, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.SplitContainerControl1, System.ComponentModel.ISupportInitialize).BeginInit() Me.SplitContainerControl1.SuspendLayout() CType(Me.GridChat, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.ChatView, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.lookupConversations.Properties, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.LookupControl21View, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.txtMessage.Properties, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.ChatSource, System.ComponentModel.ISupportInitialize).BeginInit() Me.SuspendLayout() ' 'columnUsername ' Me.columnUsername.FieldName = "USER_FROM" Me.columnUsername.Name = "columnUsername" Me.columnUsername.Visible = True Me.columnUsername.VisibleIndex = 1 ' 'columnMessage ' Me.columnMessage.FieldName = "MESSAGE_TEXT" Me.columnMessage.Name = "columnMessage" Me.columnMessage.Visible = True Me.columnMessage.VisibleIndex = 0 ' 'columnDate ' Me.columnDate.FieldName = "ADDED_WHEN" Me.columnDate.Name = "columnDate" Me.columnDate.Visible = True Me.columnDate.VisibleIndex = 2 ' 'RepositoryItemHypertextLabel1 ' Me.RepositoryItemHypertextLabel1.Name = "RepositoryItemHypertextLabel1" ' 'RepositoryItemHyperLinkEdit1 ' Me.RepositoryItemHyperLinkEdit1.AutoHeight = False Me.RepositoryItemHyperLinkEdit1.Name = "RepositoryItemHyperLinkEdit1" ' 'SplitContainerControl1 ' Me.SplitContainerControl1.Dock = System.Windows.Forms.DockStyle.Fill Me.SplitContainerControl1.FixedPanel = DevExpress.XtraEditors.SplitFixedPanel.Panel2 Me.SplitContainerControl1.Horizontal = False Me.SplitContainerControl1.IsSplitterFixed = True Me.SplitContainerControl1.Location = New System.Drawing.Point(0, 0) Me.SplitContainerControl1.Name = "SplitContainerControl1" Me.SplitContainerControl1.Panel1.Controls.Add(Me.GridChat) Me.SplitContainerControl1.Panel1.Controls.Add(Me.lookupConversations) Me.SplitContainerControl1.Panel1.Text = "Panel1" Me.SplitContainerControl1.Panel2.Controls.Add(Me.txtMessage) Me.SplitContainerControl1.Panel2.Controls.Add(Me.btnSendMessage) Me.SplitContainerControl1.Panel2.Text = "Panel2" Me.SplitContainerControl1.Size = New System.Drawing.Size(317, 314) Me.SplitContainerControl1.SplitterPosition = 50 Me.SplitContainerControl1.TabIndex = 0 ' 'GridChat ' Me.GridChat.Dock = System.Windows.Forms.DockStyle.Fill Me.GridChat.Font = New System.Drawing.Font("Segoe UI", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.GridChat.Location = New System.Drawing.Point(0, 20) Me.GridChat.MainView = Me.ChatView Me.GridChat.Name = "GridChat" Me.GridChat.RepositoryItems.AddRange(New DevExpress.XtraEditors.Repository.RepositoryItem() {Me.RepositoryItemHyperLinkEdit1, Me.RepositoryItemHypertextLabel1}) Me.GridChat.Size = New System.Drawing.Size(317, 234) Me.GridChat.TabIndex = 0 Me.GridChat.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.ChatView}) ' 'ChatView ' Me.ChatView.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.columnMessage, Me.columnUsername, Me.columnDate}) Me.ChatView.ContextButtonOptions.HoverStateOpacity = 0.75! Me.ChatView.ContextButtonOptions.TopPanelColor = System.Drawing.Color.White Me.ChatView.GridControl = Me.GridChat Me.ChatView.Name = "ChatView" Me.ChatView.OptionsTiles.ColumnCount = 1 Me.ChatView.OptionsTiles.GroupTextPadding = New System.Windows.Forms.Padding(0, 8, 12, 8) Me.ChatView.OptionsTiles.IndentBetweenGroups = 0 Me.ChatView.OptionsTiles.IndentBetweenItems = 10 Me.ChatView.OptionsTiles.ItemPadding = New System.Windows.Forms.Padding(0) Me.ChatView.OptionsTiles.ItemSize = New System.Drawing.Size(374, 64) Me.ChatView.OptionsTiles.LayoutMode = DevExpress.XtraGrid.Views.Tile.TileViewLayoutMode.Kanban Me.ChatView.OptionsTiles.Orientation = System.Windows.Forms.Orientation.Vertical Me.ChatView.OptionsTiles.Padding = New System.Windows.Forms.Padding(5) Me.ChatView.OptionsTiles.RowCount = 0 Me.ChatView.OptionsTiles.ScrollMode = DevExpress.XtraEditors.TileControlScrollMode.ScrollBar TableColumnDefinition7.Length.Value = 250.0R TableColumnDefinition8.Length.Value = 100.0R ItemTemplate3.Columns.Add(TableColumnDefinition7) ItemTemplate3.Columns.Add(TableColumnDefinition8) TileViewItemElement7.Column = Me.columnUsername TileViewItemElement7.ImageOptions.ImageAlignment = DevExpress.XtraEditors.TileItemContentAlignment.MiddleCenter TileViewItemElement7.ImageOptions.ImageScaleMode = DevExpress.XtraEditors.TileItemImageScaleMode.ZoomInside 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 = 1 TileViewItemElement8.Text = "columnMessage" TileViewItemElement8.TextAlignment = DevExpress.XtraEditors.TileItemContentAlignment.MiddleLeft 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.Text = "columnDate" TileViewItemElement9.TextAlignment = DevExpress.XtraEditors.TileItemContentAlignment.MiddleRight TileViewItemElement9.TextLocation = New System.Drawing.Point(-10, 0) ItemTemplate3.Elements.Add(TileViewItemElement7) ItemTemplate3.Elements.Add(TileViewItemElement8) ItemTemplate3.Elements.Add(TileViewItemElement9) ItemTemplate3.Name = "ChatLeft" TableRowDefinition7.Length.Value = 24.0R TableRowDefinition8.Length.Value = 24.0R ItemTemplate3.Rows.Add(TableRowDefinition7) ItemTemplate3.Rows.Add(TableRowDefinition8) TableColumnDefinition9.Length.Value = 100.0R TableColumnDefinition10.Length.Value = 250.0R ItemTemplate4.Columns.Add(TableColumnDefinition9) ItemTemplate4.Columns.Add(TableColumnDefinition10) TileViewItemElement10.Column = Me.columnUsername TileViewItemElement10.ColumnIndex = 1 TileViewItemElement10.ImageOptions.ImageAlignment = DevExpress.XtraEditors.TileItemContentAlignment.MiddleCenter TileViewItemElement10.ImageOptions.ImageScaleMode = DevExpress.XtraEditors.TileItemImageScaleMode.ZoomInside TileViewItemElement10.Text = "columnUsername" TileViewItemElement10.TextAlignment = DevExpress.XtraEditors.TileItemContentAlignment.MiddleRight TileViewItemElement10.TextLocation = New System.Drawing.Point(-10, 0) TileViewItemElement11.Column = Me.columnMessage TileViewItemElement11.ColumnIndex = 1 TileViewItemElement11.ImageOptions.ImageAlignment = DevExpress.XtraEditors.TileItemContentAlignment.MiddleCenter TileViewItemElement11.ImageOptions.ImageScaleMode = DevExpress.XtraEditors.TileItemImageScaleMode.ZoomInside TileViewItemElement11.RowIndex = 1 TileViewItemElement11.Text = "columnMessage" TileViewItemElement11.TextAlignment = DevExpress.XtraEditors.TileItemContentAlignment.MiddleRight TileViewItemElement11.TextLocation = New System.Drawing.Point(-10, 0) TileViewItemElement12.Column = Me.columnDate TileViewItemElement12.ImageOptions.ImageAlignment = DevExpress.XtraEditors.TileItemContentAlignment.MiddleCenter TileViewItemElement12.ImageOptions.ImageScaleMode = DevExpress.XtraEditors.TileItemImageScaleMode.ZoomInside TileViewItemElement12.Text = "columnDate" TileViewItemElement12.TextAlignment = DevExpress.XtraEditors.TileItemContentAlignment.MiddleLeft TileViewItemElement12.TextLocation = New System.Drawing.Point(10, 0) ItemTemplate4.Elements.Add(TileViewItemElement10) ItemTemplate4.Elements.Add(TileViewItemElement11) ItemTemplate4.Elements.Add(TileViewItemElement12) ItemTemplate4.Name = "ChatRight" TableRowDefinition9.Length.Value = 24.0R TableRowDefinition10.Length.Value = 24.0R ItemTemplate4.Rows.Add(TableRowDefinition9) ItemTemplate4.Rows.Add(TableRowDefinition10) Me.ChatView.Templates.Add(ItemTemplate3) Me.ChatView.Templates.Add(ItemTemplate4) Me.ChatView.TileColumns.Add(TableColumnDefinition11) Me.ChatView.TileColumns.Add(TableColumnDefinition12) Me.ChatView.TileRows.Add(TableRowDefinition11) Me.ChatView.TileRows.Add(TableRowDefinition12) ' 'lookupConversations ' Me.lookupConversations.AllowAddNewValues = False Me.lookupConversations.DataSource = Nothing Me.lookupConversations.Dock = System.Windows.Forms.DockStyle.Top Me.lookupConversations.Location = New System.Drawing.Point(0, 0) Me.lookupConversations.MultiSelect = False Me.lookupConversations.Name = "lookupConversations" Me.lookupConversations.PreventDuplicates = False Me.lookupConversations.Properties.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Ellipsis, "", -1, True, True, False, EditorButtonImageOptions2, New DevExpress.Utils.KeyShortcut(System.Windows.Forms.Keys.None), SerializableAppearanceObject5, SerializableAppearanceObject6, SerializableAppearanceObject7, SerializableAppearanceObject8, "", "openLookupForm", Nothing, DevExpress.Utils.ToolTipAnchor.[Default])}) Me.lookupConversations.Properties.NullText = "" Me.lookupConversations.Properties.PopupView = Me.LookupControl21View Me.lookupConversations.SelectedValues = CType(resources.GetObject("lookupConversations.SelectedValues"), System.Collections.Generic.List(Of String)) Me.lookupConversations.Size = New System.Drawing.Size(317, 20) Me.lookupConversations.TabIndex = 1 ' 'LookupControl21View ' Me.LookupControl21View.FocusRectStyle = DevExpress.XtraGrid.Views.Grid.DrawFocusRectStyle.RowFocus Me.LookupControl21View.Name = "LookupControl21View" Me.LookupControl21View.OptionsSelection.EnableAppearanceFocusedCell = False Me.LookupControl21View.OptionsView.ShowGroupPanel = False ' 'txtMessage ' Me.txtMessage.Dock = System.Windows.Forms.DockStyle.Fill Me.txtMessage.Location = New System.Drawing.Point(0, 0) Me.txtMessage.Name = "txtMessage" Me.txtMessage.Properties.Appearance.Font = New System.Drawing.Font("Segoe UI", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.txtMessage.Properties.Appearance.Options.UseFont = True Me.txtMessage.Size = New System.Drawing.Size(275, 50) Me.txtMessage.TabIndex = 1 ' 'btnSendMessage ' Me.btnSendMessage.Dock = System.Windows.Forms.DockStyle.Right Me.btnSendMessage.ImageOptions.Location = DevExpress.XtraEditors.ImageLocation.MiddleCenter Me.btnSendMessage.ImageOptions.SvgImage = CType(resources.GetObject("btnSendMessage.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) Me.btnSendMessage.Location = New System.Drawing.Point(275, 0) Me.btnSendMessage.Name = "btnSendMessage" Me.btnSendMessage.PaintStyle = DevExpress.XtraEditors.Controls.PaintStyles.Light Me.btnSendMessage.Size = New System.Drawing.Size(42, 50) Me.btnSendMessage.TabIndex = 2 ' 'ChatControl ' Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font Me.Controls.Add(Me.SplitContainerControl1) Me.Name = "ChatControl" Me.Size = New System.Drawing.Size(317, 314) CType(Me.RepositoryItemHypertextLabel1, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.RepositoryItemHyperLinkEdit1, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.SplitContainerControl1, System.ComponentModel.ISupportInitialize).EndInit() Me.SplitContainerControl1.ResumeLayout(False) CType(Me.GridChat, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.ChatView, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.lookupConversations.Properties, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.LookupControl21View, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.txtMessage.Properties, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.ChatSource, System.ComponentModel.ISupportInitialize).EndInit() Me.ResumeLayout(False) End Sub Friend WithEvents SplitContainerControl1 As DevExpress.XtraEditors.SplitContainerControl Friend WithEvents GridChat As DevExpress.XtraGrid.GridControl Friend WithEvents ChatView As DevExpress.XtraGrid.Views.Tile.TileView Friend WithEvents txtMessage As DevExpress.XtraEditors.MemoEdit Friend WithEvents columnMessage As DevExpress.XtraGrid.Columns.TileViewColumn Friend WithEvents columnUsername As DevExpress.XtraGrid.Columns.TileViewColumn Friend WithEvents columnDate As DevExpress.XtraGrid.Columns.TileViewColumn Friend WithEvents ChatSource As BindingSource Friend WithEvents lookupConversations As LookupGrid.LookupControl2 Friend WithEvents LookupControl21View As DevExpress.XtraGrid.Views.Grid.GridView Friend WithEvents btnSendMessage As DevExpress.XtraEditors.SimpleButton Friend WithEvents RepositoryItemHyperLinkEdit1 As DevExpress.XtraEditors.Repository.RepositoryItemHyperLinkEdit Friend WithEvents RepositoryItemHypertextLabel1 As DevExpress.XtraEditors.Repository.RepositoryItemHypertextLabel End Class