edv/SDL
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Messenger Flackern, DBL Buffer

Browse Source
This commit is contained in:
Andreas Luxbauer
2024-03-07 22:14:38 +01:00
parent 0dd9d2be5a
commit 3cfddc1287
5 changed files with 275 additions and 255 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
SDL/kunden/usrCntlKundenuebersicht.vb
View File

@@ -71,6 +71,10 @@ Public Class usrCntlKundenuebersicht
Catch ex As Exception Catch ex As Exception
End Try End Try
Me.DoubleBuffered = True
SetStyle(ControlStyles.OptimizedDoubleBuffer Or ControlStyles.UserPaint Or ControlStyles.AllPaintingInWmPaint Or ControlStyles.ResizeRedraw, True)
UpdateStyles()
End Sub End Sub
@@ -83,6 +87,9 @@ Public Class usrCntlKundenuebersicht
End Try End Try
Me.DoubleBuffered = True
SetStyle(ControlStyles.OptimizedDoubleBuffer Or ControlStyles.UserPaint Or ControlStyles.AllPaintingInWmPaint Or ControlStyles.ResizeRedraw, True)
UpdateStyles()
End Sub End Sub
Private Sub initCboKd() Private Sub initCboKd()

8
SDL/kunden/usrcntlKundeBearbeitenFull.vb
View File

@@ -26,6 +26,10 @@ Public Class usrcntlKundeBearbeitenFull
' Dieser Aufruf ist für den Designer erforderlich. ' Dieser Aufruf ist für den Designer erforderlich.
InitializeComponent() InitializeComponent()
loadControls() loadControls()
Me.DoubleBuffered = True
SetStyle(ControlStyles.OptimizedDoubleBuffer Or ControlStyles.UserPaint Or ControlStyles.AllPaintingInWmPaint Or ControlStyles.ResizeRedraw, True)
UpdateStyles()
End Sub End Sub
Sub New(kdnr) Sub New(kdnr)
InitializeComponent() InitializeComponent()
@@ -34,6 +38,10 @@ Public Class usrcntlKundeBearbeitenFull
'If kdnr > 0 Then 'If kdnr > 0 Then
' init(kdnr) ' init(kdnr)
'End If 'End If
Me.DoubleBuffered = True
SetStyle(ControlStyles.OptimizedDoubleBuffer Or ControlStyles.UserPaint Or ControlStyles.AllPaintingInWmPaint Or ControlStyles.ResizeRedraw, True)
UpdateStyles()
End Sub End Sub

496
VERAG_PROG_ALLGEMEIN/Messenger/frmMessenger.Designer.vb generated
View File

@@ -25,6 +25,9 @@ Partial Class frmMessenger
<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 DataGridViewCellStyle9 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle10 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle11 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle2 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Dim DataGridViewCellStyle2 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle3 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Dim DataGridViewCellStyle3 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
@@ -33,20 +36,14 @@ Partial Class frmMessenger
Dim DataGridViewCellStyle6 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Dim DataGridViewCellStyle6 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle7 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Dim DataGridViewCellStyle7 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle8 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Dim DataGridViewCellStyle8 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle9 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle10 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle11 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmMessenger)) Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmMessenger))
Me.SplitContainer = New System.Windows.Forms.SplitContainer() Me.SplitContainer = New System.Windows.Forms.SplitContainer()
Me.SplitContainer2 = New System.Windows.Forms.SplitContainer() Me.SplitContainer2 = New System.Windows.Forms.SplitContainer()
Me.dgvChats = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
Me.Panel6 = New System.Windows.Forms.Panel() Me.Panel6 = New System.Windows.Forms.Panel()
Me.Label3 = New System.Windows.Forms.Label() Me.Label3 = New System.Windows.Forms.Label()
Me.lblLKWChat_MsgCntInaktiv = New System.Windows.Forms.Label() Me.lblLKWChat_MsgCntInaktiv = New System.Windows.Forms.Label()
Me.cbxInaktiveChats = New System.Windows.Forms.CheckBox() Me.cbxInaktiveChats = New System.Windows.Forms.CheckBox()
Me.DGVSonstige = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
Me.Panel5 = New System.Windows.Forms.Panel() Me.Panel5 = New System.Windows.Forms.Panel()
Me.MyTextBox2 = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.PictureBox2 = New System.Windows.Forms.PictureBox() Me.PictureBox2 = New System.Windows.Forms.PictureBox()
Me.Label1 = New System.Windows.Forms.Label() Me.Label1 = New System.Windows.Forms.Label()
Me.Button8 = New System.Windows.Forms.Button() Me.Button8 = New System.Windows.Forms.Button()
@@ -56,17 +53,11 @@ Partial Class frmMessenger
Me.cbxInaktiveChatsSpecial = New System.Windows.Forms.CheckBox() Me.cbxInaktiveChatsSpecial = New System.Windows.Forms.CheckBox()
Me.Panel1 = New System.Windows.Forms.Panel() Me.Panel1 = New System.Windows.Forms.Panel()
Me.FlowLayoutPanel1 = New System.Windows.Forms.FlowLayoutPanel() Me.FlowLayoutPanel1 = New System.Windows.Forms.FlowLayoutPanel()
Me.UsrCntlChat_Art_Btn_MACHAT = New VERAG_PROG_ALLGEMEIN.usrCntlChat_Art_Btn()
Me.UsrCntlChat_Art_Btn_LKWCHAT = New VERAG_PROG_ALLGEMEIN.usrCntlChat_Art_Btn()
Me.UsrCntlChat_Art_Btn_SNDCHAT = New VERAG_PROG_ALLGEMEIN.usrCntlChat_Art_Btn()
Me.MyTextBox1 = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.PictureBox1 = New System.Windows.Forms.PictureBox() Me.PictureBox1 = New System.Windows.Forms.PictureBox()
Me.lbl = New System.Windows.Forms.Label() Me.lbl = New System.Windows.Forms.Label()
Me.btnNeu = New System.Windows.Forms.Button() Me.btnNeu = New System.Windows.Forms.Button()
Me.Button1 = New System.Windows.Forms.Button() Me.Button1 = New System.Windows.Forms.Button()
Me.SplitContainer1 = New System.Windows.Forms.SplitContainer() Me.SplitContainer1 = New System.Windows.Forms.SplitContainer()
Me.MyFlowLayoutPanel1 = New VERAG_PROG_ALLGEMEIN.MyFlowLayoutPanel(Me.components)
Me.UsrCntlMessenger_ChatElement1 = New VERAG_PROG_ALLGEMEIN.usrCntlMessenger_ChatElement()
Me.Panel3 = New System.Windows.Forms.Panel() Me.Panel3 = New System.Windows.Forms.Panel()
Me.btnTeilnehmer = New System.Windows.Forms.Button() Me.btnTeilnehmer = New System.Windows.Forms.Button()
Me.Panel4 = New System.Windows.Forms.Panel() Me.Panel4 = New System.Windows.Forms.Panel()
@@ -78,10 +69,6 @@ Partial Class frmMessenger
Me.pnlTeilnehmer = New System.Windows.Forms.Panel() Me.pnlTeilnehmer = New System.Windows.Forms.Panel()
Me.Label4 = New System.Windows.Forms.Label() Me.Label4 = New System.Windows.Forms.Label()
Me.dgvChatMembers = New System.Windows.Forms.DataGridView() Me.dgvChatMembers = New System.Windows.Forms.DataGridView()
Me.clmnMaId = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.clmnName = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.clmnFirma = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.clmnStatus = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.Panel8 = New System.Windows.Forms.Panel() Me.Panel8 = New System.Windows.Forms.Panel()
Me.Label2 = New System.Windows.Forms.Label() Me.Label2 = New System.Windows.Forms.Label()
Me.Panel9 = New System.Windows.Forms.Panel() Me.Panel9 = New System.Windows.Forms.Panel()
@@ -102,6 +89,19 @@ Partial Class frmMessenger
Me.DataGridViewTextBoxColumn2 = New System.Windows.Forms.DataGridViewTextBoxColumn() Me.DataGridViewTextBoxColumn2 = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.DataGridViewTextBoxColumn3 = New System.Windows.Forms.DataGridViewTextBoxColumn() Me.DataGridViewTextBoxColumn3 = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.DataGridViewTextBoxColumn4 = New System.Windows.Forms.DataGridViewTextBoxColumn() Me.DataGridViewTextBoxColumn4 = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.dgvChats = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
Me.DGVSonstige = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
Me.MyTextBox2 = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.UsrCntlChat_Art_Btn_MACHAT = New VERAG_PROG_ALLGEMEIN.usrCntlChat_Art_Btn()
Me.UsrCntlChat_Art_Btn_LKWCHAT = New VERAG_PROG_ALLGEMEIN.usrCntlChat_Art_Btn()
Me.UsrCntlChat_Art_Btn_SNDCHAT = New VERAG_PROG_ALLGEMEIN.usrCntlChat_Art_Btn()
Me.MyTextBox1 = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.MyFlowLayoutPanel1 = New VERAG_PROG_ALLGEMEIN.MyFlowLayoutPanel(Me.components)
Me.UsrCntlMessenger_ChatElement1 = New VERAG_PROG_ALLGEMEIN.usrCntlMessenger_ChatElement()
Me.clmnMaId = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.clmnName = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.clmnFirma = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.clmnStatus = New System.Windows.Forms.DataGridViewTextBoxColumn()
CType(Me.SplitContainer, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.SplitContainer, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SplitContainer.Panel1.SuspendLayout() Me.SplitContainer.Panel1.SuspendLayout()
Me.SplitContainer.Panel2.SuspendLayout() Me.SplitContainer.Panel2.SuspendLayout()
@@ -110,9 +110,7 @@ Partial Class frmMessenger
Me.SplitContainer2.Panel1.SuspendLayout() Me.SplitContainer2.Panel1.SuspendLayout()
Me.SplitContainer2.Panel2.SuspendLayout() Me.SplitContainer2.Panel2.SuspendLayout()
Me.SplitContainer2.SuspendLayout() Me.SplitContainer2.SuspendLayout()
CType(Me.dgvChats, System.ComponentModel.ISupportInitialize).BeginInit()
Me.Panel6.SuspendLayout() Me.Panel6.SuspendLayout()
CType(Me.DGVSonstige, System.ComponentModel.ISupportInitialize).BeginInit()
Me.Panel5.SuspendLayout() Me.Panel5.SuspendLayout()
CType(Me.PictureBox2, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.PictureBox2, System.ComponentModel.ISupportInitialize).BeginInit()
Me.Panel2.SuspendLayout() Me.Panel2.SuspendLayout()
@@ -123,7 +121,6 @@ Partial Class frmMessenger
Me.SplitContainer1.Panel1.SuspendLayout() Me.SplitContainer1.Panel1.SuspendLayout()
Me.SplitContainer1.Panel2.SuspendLayout() Me.SplitContainer1.Panel2.SuspendLayout()
Me.SplitContainer1.SuspendLayout() Me.SplitContainer1.SuspendLayout()
Me.MyFlowLayoutPanel1.SuspendLayout()
Me.Panel3.SuspendLayout() Me.Panel3.SuspendLayout()
Me.pnl.SuspendLayout() Me.pnl.SuspendLayout()
CType(Me.SplitContainer3, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.SplitContainer3, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -136,6 +133,9 @@ Partial Class frmMessenger
Me.Panel9.SuspendLayout() Me.Panel9.SuspendLayout()
CType(Me.pic, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.pic, System.ComponentModel.ISupportInitialize).BeginInit()
Me.cntxt.SuspendLayout() Me.cntxt.SuspendLayout()
CType(Me.dgvChats, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.DGVSonstige, System.ComponentModel.ISupportInitialize).BeginInit()
Me.MyFlowLayoutPanel1.SuspendLayout()
Me.SuspendLayout() Me.SuspendLayout()
' '
'SplitContainer 'SplitContainer
@@ -182,53 +182,6 @@ Partial Class frmMessenger
Me.SplitContainer2.SplitterWidth = 3 Me.SplitContainer2.SplitterWidth = 3
Me.SplitContainer2.TabIndex = 8 Me.SplitContainer2.TabIndex = 8
' '
'dgvChats
'
Me.dgvChats.AKTUALISIERUNGS_INTERVALL = -1
Me.dgvChats.AllowUserToAddRows = False
Me.dgvChats.AllowUserToDeleteRows = False
Me.dgvChats.AllowUserToResizeColumns = False
Me.dgvChats.AllowUserToResizeRows = False
Me.dgvChats.BackgroundColor = System.Drawing.Color.White
DataGridViewCellStyle1.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle1.BackColor = System.Drawing.SystemColors.Control
DataGridViewCellStyle1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle1.ForeColor = System.Drawing.SystemColors.WindowText
DataGridViewCellStyle1.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle1.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle1.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
Me.dgvChats.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle1
Me.dgvChats.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
Me.dgvChats.ColumnHeadersVisible = False
DataGridViewCellStyle2.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle2.BackColor = System.Drawing.SystemColors.Window
DataGridViewCellStyle2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle2.ForeColor = System.Drawing.SystemColors.ControlText
DataGridViewCellStyle2.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle2.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle2.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
Me.dgvChats.DefaultCellStyle = DataGridViewCellStyle2
Me.dgvChats.Dock = System.Windows.Forms.DockStyle.Fill
Me.dgvChats.Location = New System.Drawing.Point(0, 0)
Me.dgvChats.Name = "dgvChats"
Me.dgvChats.ReadOnly = True
DataGridViewCellStyle3.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle3.BackColor = System.Drawing.SystemColors.Control
DataGridViewCellStyle3.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle3.ForeColor = System.Drawing.SystemColors.WindowText
DataGridViewCellStyle3.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle3.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle3.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
Me.dgvChats.RowHeadersDefaultCellStyle = DataGridViewCellStyle3
Me.dgvChats.RowHeadersVisible = False
Me.dgvChats.RowHeadersWidth = 62
DataGridViewCellStyle4.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.dgvChats.RowsDefaultCellStyle = DataGridViewCellStyle4
Me.dgvChats.RowTemplate.Height = 30
Me.dgvChats.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
Me.dgvChats.Size = New System.Drawing.Size(275, 739)
Me.dgvChats.TabIndex = 0
'
'Panel6 'Panel6
' '
Me.Panel6.Controls.Add(Me.Label3) Me.Panel6.Controls.Add(Me.Label3)
@@ -273,53 +226,6 @@ Partial Class frmMessenger
Me.cbxInaktiveChats.Text = "inaktive Chats" Me.cbxInaktiveChats.Text = "inaktive Chats"
Me.cbxInaktiveChats.UseVisualStyleBackColor = True Me.cbxInaktiveChats.UseVisualStyleBackColor = True
' '
'DGVSonstige
'
Me.DGVSonstige.AKTUALISIERUNGS_INTERVALL = -1
Me.DGVSonstige.AllowUserToAddRows = False
Me.DGVSonstige.AllowUserToDeleteRows = False
Me.DGVSonstige.AllowUserToResizeColumns = False
Me.DGVSonstige.AllowUserToResizeRows = False
Me.DGVSonstige.BackgroundColor = System.Drawing.Color.White
DataGridViewCellStyle5.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle5.BackColor = System.Drawing.SystemColors.Control
DataGridViewCellStyle5.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle5.ForeColor = System.Drawing.SystemColors.WindowText
DataGridViewCellStyle5.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle5.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle5.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
Me.DGVSonstige.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle5
Me.DGVSonstige.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
Me.DGVSonstige.ColumnHeadersVisible = False
DataGridViewCellStyle6.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle6.BackColor = System.Drawing.SystemColors.Window
DataGridViewCellStyle6.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle6.ForeColor = System.Drawing.SystemColors.ControlText
DataGridViewCellStyle6.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle6.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle6.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
Me.DGVSonstige.DefaultCellStyle = DataGridViewCellStyle6
Me.DGVSonstige.Dock = System.Windows.Forms.DockStyle.Fill
Me.DGVSonstige.Location = New System.Drawing.Point(0, 63)
Me.DGVSonstige.Name = "DGVSonstige"
Me.DGVSonstige.ReadOnly = True
DataGridViewCellStyle7.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle7.BackColor = System.Drawing.SystemColors.Control
DataGridViewCellStyle7.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle7.ForeColor = System.Drawing.SystemColors.WindowText
DataGridViewCellStyle7.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle7.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle7.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
Me.DGVSonstige.RowHeadersDefaultCellStyle = DataGridViewCellStyle7
Me.DGVSonstige.RowHeadersVisible = False
Me.DGVSonstige.RowHeadersWidth = 62
DataGridViewCellStyle8.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.DGVSonstige.RowsDefaultCellStyle = DataGridViewCellStyle8
Me.DGVSonstige.RowTemplate.Height = 30
Me.DGVSonstige.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
Me.DGVSonstige.Size = New System.Drawing.Size(150, 0)
Me.DGVSonstige.TabIndex = 1
'
'Panel5 'Panel5
' '
Me.Panel5.BackColor = System.Drawing.Color.White Me.Panel5.BackColor = System.Drawing.Color.White
@@ -334,30 +240,6 @@ Partial Class frmMessenger
Me.Panel5.Size = New System.Drawing.Size(150, 63) Me.Panel5.Size = New System.Drawing.Size(150, 63)
Me.Panel5.TabIndex = 2 Me.Panel5.TabIndex = 2
' '
'MyTextBox2
'
Me.MyTextBox2._DateTimeOnly = False
Me.MyTextBox2._numbersOnly = False
Me.MyTextBox2._numbersOnlyKommastellen = ""
Me.MyTextBox2._numbersOnlyTrennzeichen = True
Me.MyTextBox2._Prozent = False
Me.MyTextBox2._ShortDateNew = False
Me.MyTextBox2._ShortDateOnly = False
Me.MyTextBox2._TimeOnly = False
Me.MyTextBox2._TimeOnly_Seconds = False
Me.MyTextBox2._value = ""
Me.MyTextBox2._Waehrung = False
Me.MyTextBox2._WaehrungZeichen = True
Me.MyTextBox2.ForeColor = System.Drawing.Color.Black
Me.MyTextBox2.Location = New System.Drawing.Point(20, 40)
Me.MyTextBox2.Margin = New System.Windows.Forms.Padding(2)
Me.MyTextBox2.MaxLineLength = -1
Me.MyTextBox2.MaxLines_Warning = ""
Me.MyTextBox2.MaxLines_Warning_Label = Nothing
Me.MyTextBox2.Name = "MyTextBox2"
Me.MyTextBox2.Size = New System.Drawing.Size(250, 20)
Me.MyTextBox2.TabIndex = 4
'
'PictureBox2 'PictureBox2
' '
Me.PictureBox2.BackgroundImage = Global.VERAG_PROG_ALLGEMEIN.My.Resources.Resources.search Me.PictureBox2.BackgroundImage = Global.VERAG_PROG_ALLGEMEIN.My.Resources.Resources.search
@@ -463,60 +345,6 @@ Partial Class frmMessenger
Me.FlowLayoutPanel1.Size = New System.Drawing.Size(275, 30) Me.FlowLayoutPanel1.Size = New System.Drawing.Size(275, 30)
Me.FlowLayoutPanel1.TabIndex = 10 Me.FlowLayoutPanel1.TabIndex = 10
' '
'UsrCntlChat_Art_Btn_MACHAT
'
Me.UsrCntlChat_Art_Btn_MACHAT._aktiv = True
Me.UsrCntlChat_Art_Btn_MACHAT._name = "Allgemein"
Me.UsrCntlChat_Art_Btn_MACHAT.Location = New System.Drawing.Point(0, 0)
Me.UsrCntlChat_Art_Btn_MACHAT.Margin = New System.Windows.Forms.Padding(0)
Me.UsrCntlChat_Art_Btn_MACHAT.Name = "UsrCntlChat_Art_Btn_MACHAT"
Me.UsrCntlChat_Art_Btn_MACHAT.Size = New System.Drawing.Size(90, 29)
Me.UsrCntlChat_Art_Btn_MACHAT.TabIndex = 8
'
'UsrCntlChat_Art_Btn_LKWCHAT
'
Me.UsrCntlChat_Art_Btn_LKWCHAT._aktiv = False
Me.UsrCntlChat_Art_Btn_LKWCHAT._name = "LKW"
Me.UsrCntlChat_Art_Btn_LKWCHAT.Location = New System.Drawing.Point(90, 0)
Me.UsrCntlChat_Art_Btn_LKWCHAT.Margin = New System.Windows.Forms.Padding(0)
Me.UsrCntlChat_Art_Btn_LKWCHAT.Name = "UsrCntlChat_Art_Btn_LKWCHAT"
Me.UsrCntlChat_Art_Btn_LKWCHAT.Size = New System.Drawing.Size(90, 29)
Me.UsrCntlChat_Art_Btn_LKWCHAT.TabIndex = 9
'
'UsrCntlChat_Art_Btn_SNDCHAT
'
Me.UsrCntlChat_Art_Btn_SNDCHAT._aktiv = False
Me.UsrCntlChat_Art_Btn_SNDCHAT._name = "Sendung"
Me.UsrCntlChat_Art_Btn_SNDCHAT.Location = New System.Drawing.Point(180, 0)
Me.UsrCntlChat_Art_Btn_SNDCHAT.Margin = New System.Windows.Forms.Padding(0)
Me.UsrCntlChat_Art_Btn_SNDCHAT.Name = "UsrCntlChat_Art_Btn_SNDCHAT"
Me.UsrCntlChat_Art_Btn_SNDCHAT.Size = New System.Drawing.Size(90, 29)
Me.UsrCntlChat_Art_Btn_SNDCHAT.TabIndex = 10
'
'MyTextBox1
'
Me.MyTextBox1._DateTimeOnly = False
Me.MyTextBox1._numbersOnly = False
Me.MyTextBox1._numbersOnlyKommastellen = ""
Me.MyTextBox1._numbersOnlyTrennzeichen = True
Me.MyTextBox1._Prozent = False
Me.MyTextBox1._ShortDateNew = False
Me.MyTextBox1._ShortDateOnly = False
Me.MyTextBox1._TimeOnly = False
Me.MyTextBox1._TimeOnly_Seconds = False
Me.MyTextBox1._value = ""
Me.MyTextBox1._Waehrung = False
Me.MyTextBox1._WaehrungZeichen = True
Me.MyTextBox1.ForeColor = System.Drawing.Color.Black
Me.MyTextBox1.Location = New System.Drawing.Point(20, 40)
Me.MyTextBox1.Margin = New System.Windows.Forms.Padding(2)
Me.MyTextBox1.MaxLineLength = -1
Me.MyTextBox1.MaxLines_Warning = ""
Me.MyTextBox1.MaxLines_Warning_Label = Nothing
Me.MyTextBox1.Name = "MyTextBox1"
Me.MyTextBox1.Size = New System.Drawing.Size(250, 20)
Me.MyTextBox1.TabIndex = 4
'
'PictureBox1 'PictureBox1
' '
Me.PictureBox1.BackgroundImage = Global.VERAG_PROG_ALLGEMEIN.My.Resources.Resources.search Me.PictureBox1.BackgroundImage = Global.VERAG_PROG_ALLGEMEIN.My.Resources.Resources.search
@@ -582,28 +410,6 @@ Partial Class frmMessenger
Me.SplitContainer1.SplitterDistance = 600 Me.SplitContainer1.SplitterDistance = 600
Me.SplitContainer1.TabIndex = 0 Me.SplitContainer1.TabIndex = 0
' '
'MyFlowLayoutPanel1
'
Me.MyFlowLayoutPanel1.AutoScroll = True
Me.MyFlowLayoutPanel1.BackColor = System.Drawing.Color.White
Me.MyFlowLayoutPanel1.Controls.Add(Me.UsrCntlMessenger_ChatElement1)
Me.MyFlowLayoutPanel1.Dock = System.Windows.Forms.DockStyle.Fill
Me.MyFlowLayoutPanel1.Location = New System.Drawing.Point(0, 44)
Me.MyFlowLayoutPanel1.Name = "MyFlowLayoutPanel1"
Me.MyFlowLayoutPanel1.Size = New System.Drawing.Size(633, 556)
Me.MyFlowLayoutPanel1.TabIndex = 0
'
'UsrCntlMessenger_ChatElement1
'
Me.UsrCntlMessenger_ChatElement1.BackColor = System.Drawing.Color.White
Me.UsrCntlMessenger_ChatElement1.CHAT_MSG = Nothing
Me.UsrCntlMessenger_ChatElement1.Location = New System.Drawing.Point(4, 5)
Me.UsrCntlMessenger_ChatElement1.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5)
Me.UsrCntlMessenger_ChatElement1.Name = "UsrCntlMessenger_ChatElement1"
Me.UsrCntlMessenger_ChatElement1.Size = New System.Drawing.Size(378, 48)
Me.UsrCntlMessenger_ChatElement1.TabIndex = 4
Me.UsrCntlMessenger_ChatElement1.Visible = False
'
'Panel3 'Panel3
' '
Me.Panel3.BackColor = System.Drawing.Color.White Me.Panel3.BackColor = System.Drawing.Color.White
@@ -785,38 +591,6 @@ Partial Class frmMessenger
Me.dgvChatMembers.Size = New System.Drawing.Size(220, 146) Me.dgvChatMembers.Size = New System.Drawing.Size(220, 146)
Me.dgvChatMembers.TabIndex = 8 Me.dgvChatMembers.TabIndex = 8
' '
'clmnMaId
'
Me.clmnMaId.HeaderText = "Column1"
Me.clmnMaId.MinimumWidth = 8
Me.clmnMaId.Name = "clmnMaId"
Me.clmnMaId.ReadOnly = True
Me.clmnMaId.Visible = False
Me.clmnMaId.Width = 150
'
'clmnName
'
Me.clmnName.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.Fill
Me.clmnName.HeaderText = "Name"
Me.clmnName.MinimumWidth = 8
Me.clmnName.Name = "clmnName"
Me.clmnName.ReadOnly = True
'
'clmnFirma
'
Me.clmnFirma.HeaderText = "Firma"
Me.clmnFirma.MinimumWidth = 8
Me.clmnFirma.Name = "clmnFirma"
Me.clmnFirma.ReadOnly = True
Me.clmnFirma.Width = 85
'
'clmnStatus
'
Me.clmnStatus.HeaderText = ""
Me.clmnStatus.Name = "clmnStatus"
Me.clmnStatus.ReadOnly = True
Me.clmnStatus.Width = 20
'
'Panel8 'Panel8
' '
Me.Panel8.BackColor = System.Drawing.SystemColors.Control Me.Panel8.BackColor = System.Drawing.SystemColors.Control
@@ -1006,6 +780,232 @@ Partial Class frmMessenger
Me.DataGridViewTextBoxColumn4.ReadOnly = True Me.DataGridViewTextBoxColumn4.ReadOnly = True
Me.DataGridViewTextBoxColumn4.Width = 20 Me.DataGridViewTextBoxColumn4.Width = 20
' '
'dgvChats
'
Me.dgvChats.AKTUALISIERUNGS_INTERVALL = -1
Me.dgvChats.AllowUserToAddRows = False
Me.dgvChats.AllowUserToDeleteRows = False
Me.dgvChats.AllowUserToResizeColumns = False
Me.dgvChats.AllowUserToResizeRows = False
Me.dgvChats.BackgroundColor = System.Drawing.Color.White
DataGridViewCellStyle1.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle1.BackColor = System.Drawing.SystemColors.Control
DataGridViewCellStyle1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle1.ForeColor = System.Drawing.SystemColors.WindowText
DataGridViewCellStyle1.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle1.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle1.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
Me.dgvChats.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle1
Me.dgvChats.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
Me.dgvChats.ColumnHeadersVisible = False
DataGridViewCellStyle2.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle2.BackColor = System.Drawing.SystemColors.Window
DataGridViewCellStyle2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle2.ForeColor = System.Drawing.SystemColors.ControlText
DataGridViewCellStyle2.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle2.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle2.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
Me.dgvChats.DefaultCellStyle = DataGridViewCellStyle2
Me.dgvChats.Dock = System.Windows.Forms.DockStyle.Fill
Me.dgvChats.Location = New System.Drawing.Point(0, 0)
Me.dgvChats.Name = "dgvChats"
Me.dgvChats.ReadOnly = True
DataGridViewCellStyle3.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle3.BackColor = System.Drawing.SystemColors.Control
DataGridViewCellStyle3.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle3.ForeColor = System.Drawing.SystemColors.WindowText
DataGridViewCellStyle3.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle3.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle3.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
Me.dgvChats.RowHeadersDefaultCellStyle = DataGridViewCellStyle3
Me.dgvChats.RowHeadersVisible = False
Me.dgvChats.RowHeadersWidth = 62
DataGridViewCellStyle4.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.dgvChats.RowsDefaultCellStyle = DataGridViewCellStyle4
Me.dgvChats.RowTemplate.Height = 30
Me.dgvChats.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
Me.dgvChats.Size = New System.Drawing.Size(275, 739)
Me.dgvChats.TabIndex = 0
'
'DGVSonstige
'
Me.DGVSonstige.AKTUALISIERUNGS_INTERVALL = -1
Me.DGVSonstige.AllowUserToAddRows = False
Me.DGVSonstige.AllowUserToDeleteRows = False
Me.DGVSonstige.AllowUserToResizeColumns = False
Me.DGVSonstige.AllowUserToResizeRows = False
Me.DGVSonstige.BackgroundColor = System.Drawing.Color.White
DataGridViewCellStyle5.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle5.BackColor = System.Drawing.SystemColors.Control
DataGridViewCellStyle5.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle5.ForeColor = System.Drawing.SystemColors.WindowText
DataGridViewCellStyle5.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle5.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle5.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
Me.DGVSonstige.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle5
Me.DGVSonstige.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
Me.DGVSonstige.ColumnHeadersVisible = False
DataGridViewCellStyle6.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle6.BackColor = System.Drawing.SystemColors.Window
DataGridViewCellStyle6.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle6.ForeColor = System.Drawing.SystemColors.ControlText
DataGridViewCellStyle6.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle6.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle6.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
Me.DGVSonstige.DefaultCellStyle = DataGridViewCellStyle6
Me.DGVSonstige.Dock = System.Windows.Forms.DockStyle.Fill
Me.DGVSonstige.Location = New System.Drawing.Point(0, 63)
Me.DGVSonstige.Name = "DGVSonstige"
Me.DGVSonstige.ReadOnly = True
DataGridViewCellStyle7.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle7.BackColor = System.Drawing.SystemColors.Control
DataGridViewCellStyle7.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle7.ForeColor = System.Drawing.SystemColors.WindowText
DataGridViewCellStyle7.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle7.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle7.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
Me.DGVSonstige.RowHeadersDefaultCellStyle = DataGridViewCellStyle7
Me.DGVSonstige.RowHeadersVisible = False
Me.DGVSonstige.RowHeadersWidth = 62
DataGridViewCellStyle8.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.DGVSonstige.RowsDefaultCellStyle = DataGridViewCellStyle8
Me.DGVSonstige.RowTemplate.Height = 30
Me.DGVSonstige.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
Me.DGVSonstige.Size = New System.Drawing.Size(150, 0)
Me.DGVSonstige.TabIndex = 1
'
'MyTextBox2
'
Me.MyTextBox2._DateTimeOnly = False
Me.MyTextBox2._numbersOnly = False
Me.MyTextBox2._numbersOnlyKommastellen = ""
Me.MyTextBox2._numbersOnlyTrennzeichen = True
Me.MyTextBox2._Prozent = False
Me.MyTextBox2._ShortDateNew = False
Me.MyTextBox2._ShortDateOnly = False
Me.MyTextBox2._TimeOnly = False
Me.MyTextBox2._TimeOnly_Seconds = False
Me.MyTextBox2._value = ""
Me.MyTextBox2._Waehrung = False
Me.MyTextBox2._WaehrungZeichen = True
Me.MyTextBox2.ForeColor = System.Drawing.Color.Black
Me.MyTextBox2.Location = New System.Drawing.Point(20, 40)
Me.MyTextBox2.Margin = New System.Windows.Forms.Padding(2)
Me.MyTextBox2.MaxLineLength = -1
Me.MyTextBox2.MaxLines_Warning = ""
Me.MyTextBox2.MaxLines_Warning_Label = Nothing
Me.MyTextBox2.Name = "MyTextBox2"
Me.MyTextBox2.Size = New System.Drawing.Size(250, 20)
Me.MyTextBox2.TabIndex = 4
'
'UsrCntlChat_Art_Btn_MACHAT
'
Me.UsrCntlChat_Art_Btn_MACHAT._aktiv = True
Me.UsrCntlChat_Art_Btn_MACHAT._name = "Allgemein"
Me.UsrCntlChat_Art_Btn_MACHAT.Location = New System.Drawing.Point(0, 0)
Me.UsrCntlChat_Art_Btn_MACHAT.Margin = New System.Windows.Forms.Padding(0)
Me.UsrCntlChat_Art_Btn_MACHAT.Name = "UsrCntlChat_Art_Btn_MACHAT"
Me.UsrCntlChat_Art_Btn_MACHAT.Size = New System.Drawing.Size(90, 29)
Me.UsrCntlChat_Art_Btn_MACHAT.TabIndex = 8
'
'UsrCntlChat_Art_Btn_LKWCHAT
'
Me.UsrCntlChat_Art_Btn_LKWCHAT._aktiv = False
Me.UsrCntlChat_Art_Btn_LKWCHAT._name = "LKW"
Me.UsrCntlChat_Art_Btn_LKWCHAT.Location = New System.Drawing.Point(90, 0)
Me.UsrCntlChat_Art_Btn_LKWCHAT.Margin = New System.Windows.Forms.Padding(0)
Me.UsrCntlChat_Art_Btn_LKWCHAT.Name = "UsrCntlChat_Art_Btn_LKWCHAT"
Me.UsrCntlChat_Art_Btn_LKWCHAT.Size = New System.Drawing.Size(90, 29)
Me.UsrCntlChat_Art_Btn_LKWCHAT.TabIndex = 9
'
'UsrCntlChat_Art_Btn_SNDCHAT
'
Me.UsrCntlChat_Art_Btn_SNDCHAT._aktiv = False
Me.UsrCntlChat_Art_Btn_SNDCHAT._name = "Sendung"
Me.UsrCntlChat_Art_Btn_SNDCHAT.Location = New System.Drawing.Point(180, 0)
Me.UsrCntlChat_Art_Btn_SNDCHAT.Margin = New System.Windows.Forms.Padding(0)
Me.UsrCntlChat_Art_Btn_SNDCHAT.Name = "UsrCntlChat_Art_Btn_SNDCHAT"
Me.UsrCntlChat_Art_Btn_SNDCHAT.Size = New System.Drawing.Size(90, 29)
Me.UsrCntlChat_Art_Btn_SNDCHAT.TabIndex = 10
'
'MyTextBox1
'
Me.MyTextBox1._DateTimeOnly = False
Me.MyTextBox1._numbersOnly = False
Me.MyTextBox1._numbersOnlyKommastellen = ""
Me.MyTextBox1._numbersOnlyTrennzeichen = True
Me.MyTextBox1._Prozent = False
Me.MyTextBox1._ShortDateNew = False
Me.MyTextBox1._ShortDateOnly = False
Me.MyTextBox1._TimeOnly = False
Me.MyTextBox1._TimeOnly_Seconds = False
Me.MyTextBox1._value = ""
Me.MyTextBox1._Waehrung = False
Me.MyTextBox1._WaehrungZeichen = True
Me.MyTextBox1.ForeColor = System.Drawing.Color.Black
Me.MyTextBox1.Location = New System.Drawing.Point(20, 40)
Me.MyTextBox1.Margin = New System.Windows.Forms.Padding(2)
Me.MyTextBox1.MaxLineLength = -1
Me.MyTextBox1.MaxLines_Warning = ""
Me.MyTextBox1.MaxLines_Warning_Label = Nothing
Me.MyTextBox1.Name = "MyTextBox1"
Me.MyTextBox1.Size = New System.Drawing.Size(250, 20)
Me.MyTextBox1.TabIndex = 4
'
'MyFlowLayoutPanel1
'
Me.MyFlowLayoutPanel1.AutoScroll = True
Me.MyFlowLayoutPanel1.BackColor = System.Drawing.Color.White
Me.MyFlowLayoutPanel1.Controls.Add(Me.UsrCntlMessenger_ChatElement1)
Me.MyFlowLayoutPanel1.Dock = System.Windows.Forms.DockStyle.Fill
Me.MyFlowLayoutPanel1.Location = New System.Drawing.Point(0, 44)
Me.MyFlowLayoutPanel1.Name = "MyFlowLayoutPanel1"
Me.MyFlowLayoutPanel1.Size = New System.Drawing.Size(633, 556)
Me.MyFlowLayoutPanel1.TabIndex = 0
'
'UsrCntlMessenger_ChatElement1
'
Me.UsrCntlMessenger_ChatElement1.BackColor = System.Drawing.Color.White
Me.UsrCntlMessenger_ChatElement1.CHAT_MSG = Nothing
Me.UsrCntlMessenger_ChatElement1.Location = New System.Drawing.Point(4, 5)
Me.UsrCntlMessenger_ChatElement1.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5)
Me.UsrCntlMessenger_ChatElement1.Name = "UsrCntlMessenger_ChatElement1"
Me.UsrCntlMessenger_ChatElement1.Size = New System.Drawing.Size(378, 48)
Me.UsrCntlMessenger_ChatElement1.TabIndex = 4
Me.UsrCntlMessenger_ChatElement1.Visible = False
'
'clmnMaId
'
Me.clmnMaId.HeaderText = "Column1"
Me.clmnMaId.MinimumWidth = 8
Me.clmnMaId.Name = "clmnMaId"
Me.clmnMaId.ReadOnly = True
Me.clmnMaId.Visible = False
Me.clmnMaId.Width = 150
'
'clmnName
'
Me.clmnName.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.Fill
Me.clmnName.HeaderText = "Name"
Me.clmnName.MinimumWidth = 8
Me.clmnName.Name = "clmnName"
Me.clmnName.ReadOnly = True
'
'clmnFirma
'
Me.clmnFirma.HeaderText = "Firma"
Me.clmnFirma.MinimumWidth = 8
Me.clmnFirma.Name = "clmnFirma"
Me.clmnFirma.ReadOnly = True
Me.clmnFirma.Width = 85
'
'clmnStatus
'
Me.clmnStatus.HeaderText = ""
Me.clmnStatus.Name = "clmnStatus"
Me.clmnStatus.ReadOnly = True
Me.clmnStatus.Width = 20
'
'frmMessenger 'frmMessenger
' '
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@@ -1025,10 +1025,8 @@ Partial Class frmMessenger
Me.SplitContainer2.Panel2.ResumeLayout(False) Me.SplitContainer2.Panel2.ResumeLayout(False)
CType(Me.SplitContainer2, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.SplitContainer2, System.ComponentModel.ISupportInitialize).EndInit()
Me.SplitContainer2.ResumeLayout(False) Me.SplitContainer2.ResumeLayout(False)
CType(Me.dgvChats, System.ComponentModel.ISupportInitialize).EndInit()
Me.Panel6.ResumeLayout(False) Me.Panel6.ResumeLayout(False)
Me.Panel6.PerformLayout() Me.Panel6.PerformLayout()
CType(Me.DGVSonstige, System.ComponentModel.ISupportInitialize).EndInit()
Me.Panel5.ResumeLayout(False) Me.Panel5.ResumeLayout(False)
Me.Panel5.PerformLayout() Me.Panel5.PerformLayout()
CType(Me.PictureBox2, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.PictureBox2, System.ComponentModel.ISupportInitialize).EndInit()
@@ -1042,7 +1040,6 @@ Partial Class frmMessenger
Me.SplitContainer1.Panel2.ResumeLayout(False) Me.SplitContainer1.Panel2.ResumeLayout(False)
CType(Me.SplitContainer1, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.SplitContainer1, System.ComponentModel.ISupportInitialize).EndInit()
Me.SplitContainer1.ResumeLayout(False) Me.SplitContainer1.ResumeLayout(False)
Me.MyFlowLayoutPanel1.ResumeLayout(False)
Me.Panel3.ResumeLayout(False) Me.Panel3.ResumeLayout(False)
Me.Panel3.PerformLayout() Me.Panel3.PerformLayout()
Me.pnl.ResumeLayout(False) Me.pnl.ResumeLayout(False)
@@ -1057,6 +1054,9 @@ Partial Class frmMessenger
Me.Panel9.ResumeLayout(False) Me.Panel9.ResumeLayout(False)
CType(Me.pic, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.pic, System.ComponentModel.ISupportInitialize).EndInit()
Me.cntxt.ResumeLayout(False) Me.cntxt.ResumeLayout(False)
CType(Me.dgvChats, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.DGVSonstige, System.ComponentModel.ISupportInitialize).EndInit()
Me.MyFlowLayoutPanel1.ResumeLayout(False)
Me.ResumeLayout(False) Me.ResumeLayout(False)
End Sub End Sub

14
VERAG_PROG_ALLGEMEIN/Messenger/frmMessenger.vb
View File

@@ -31,14 +31,10 @@ Public Class frmMessenger
Me.DoubleBuffered = True Me.DoubleBuffered = True
SetStyle(ControlStyles.OptimizedDoubleBuffer Or ControlStyles.UserPaint Or ControlStyles.AllPaintingInWmPaint Or ControlStyles.ResizeRedraw, True) SetStyle(ControlStyles.OptimizedDoubleBuffer Or ControlStyles.UserPaint Or ControlStyles.AllPaintingInWmPaint Or ControlStyles.ResizeRedraw, True)
UpdateStyles() UpdateStyles()
VERAG_PROG_ALLGEMEIN.cProgramFunctions.SetDoubleBuffered(MyFlowLayoutPanel1)
End Sub End Sub
Public Sub SetDoubleBuffered([Control] As Control)
[Control].GetType().InvokeMember("DoubleBuffered", BindingFlags.SetProperty Or
BindingFlags.Instance Or BindingFlags.NonPublic, Nothing, [Control], New Object() {True})
End Sub
Sub initEMOJI_PATH() Sub initEMOJI_PATH()
@@ -90,7 +86,7 @@ BindingFlags.Instance Or BindingFlags.NonPublic, Nothing, [Control], New Object(
Private Sub frmMessenger_Load(sender As Object, e As EventArgs) Handles Me.Load Private Sub frmMessenger_Load(sender As Object, e As EventArgs) Handles Me.Load
initEMOJI_PATH() initEMOJI_PATH()
SetDoubleBuffered(MyFlowLayoutPanel1) VERAG_PROG_ALLGEMEIN.cProgramFunctions.SetDoubleBuffered(MyFlowLayoutPanel1)
rtbChatMessage.AllowDrop = True rtbChatMessage.AllowDrop = True
MSG_LISTENDER.START() MSG_LISTENDER.START()
TimerNEW_MESSAGE.Enabled = True TimerNEW_MESSAGE.Enabled = True
@@ -461,6 +457,7 @@ BindingFlags.Instance Or BindingFlags.NonPublic, Nothing, [Control], New Object(
Try Try
lblChatName.Text = "-" lblChatName.Text = "-"
' Dim scrollMax = (MyFlowLayoutPanel1.VerticalScroll.Value = MyFlowLayoutPanel1.VerticalScroll.Maximum) ' Dim scrollMax = (MyFlowLayoutPanel1.VerticalScroll.Value = MyFlowLayoutPanel1.VerticalScroll.Maximum)
MyFlowLayoutPanel1.SuspendLayout()
MyFlowLayoutPanel1.Controls.Clear() MyFlowLayoutPanel1.Controls.Clear()
If CHAT IsNot Nothing Then If CHAT IsNot Nothing Then
CHAT.READ_ALL_MESSAGES() CHAT.READ_ALL_MESSAGES()
@@ -472,8 +469,11 @@ BindingFlags.Instance Or BindingFlags.NonPublic, Nothing, [Control], New Object(
'MyFlowLayoutPanel1.AutoScrollPosition = New Point(MyFlowLayoutPanel1.Width, MyFlowLayoutPanel1.Height) 'MyFlowLayoutPanel1.AutoScrollPosition = New Point(MyFlowLayoutPanel1.Width, MyFlowLayoutPanel1.Height)
' If MyFlowLayoutPanel1.Controls.Count > 0 Then MyFlowLayoutPanel1.ScrollControlIntoView(MyFlowLayoutPanel1.Controls(MyFlowLayoutPanel1.Controls.Count - 1)) ' If MyFlowLayoutPanel1.Controls.Count > 0 Then MyFlowLayoutPanel1.ScrollControlIntoView(MyFlowLayoutPanel1.Controls(MyFlowLayoutPanel1.Controls.Count - 1))
MyFlowLayoutPanel1.ResumeLayout()
' If scrollMax Then ' If scrollMax Then
MyFlowLayoutPanel1.VerticalScroll.Value = MyFlowLayoutPanel1.VerticalScroll.Maximum MyFlowLayoutPanel1.VerticalScroll.Value = MyFlowLayoutPanel1.VerticalScroll.Maximum - 1
If CHAT.chat_name <> "" Then 'GRUPPENCHAT If CHAT.chat_name <> "" Then 'GRUPPENCHAT
lblChatName.Text = CHAT.chat_name lblChatName.Text = CHAT.chat_name

5
VERAG_PROG_ALLGEMEIN/cProgramFunktions.vb
View File

@@ -1,6 +1,7 @@
Imports System.Drawing Imports System.Drawing
Imports System.IO Imports System.IO
Imports System.Net.Mail Imports System.Net.Mail
Imports System.Reflection
Imports System.Text Imports System.Text
Imports System.Windows.Forms Imports System.Windows.Forms
Imports ClosedXML.Excel Imports ClosedXML.Excel
@@ -94,7 +95,11 @@ Public Class cProgramFunctions
End Function End Function
Public Shared Sub SetDoubleBuffered([Control] As Control)
[Control].GetType().InvokeMember("DoubleBuffered", BindingFlags.SetProperty Or
BindingFlags.Instance Or BindingFlags.NonPublic, Nothing, [Control], New Object() {True})
End Sub
Public Shared Function fktEuroKurs(varVonWährung As Object, Rechnungsdatum As Date) As Object 'Funktioniert nciht mit datum!!!!!!!!!!!!!!!!!!! Public Shared Function fktEuroKurs(varVonWährung As Object, Rechnungsdatum As Date) As Object 'Funktioniert nciht mit datum!!!!!!!!!!!!!!!!!!!
'(FixeTaxe, "ATS", RECHNUNG.Währungscode) '(FixeTaxe, "ATS", RECHNUNG.Währungscode)
'Dim varVonWährung As Object 'Dim varVonWährung As Object