Revert "commit"

This commit is contained in:
2024-10-02 08:59:41 +00:00
parent 298156bc8d
commit a39d888c67
2987 changed files with 174 additions and 13775 deletions

View File

@@ -0,0 +1,163 @@
Imports System.Windows.Forms
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
Partial Class usrCntlMessenger_ChatElement
Inherits System.Windows.Forms.UserControl
'UserControl überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
<System.Diagnostics.DebuggerNonUserCode()> _
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.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container()
Me.pnl = New System.Windows.Forms.Panel()
Me.Panel1 = New System.Windows.Forms.Panel()
Me.lblDel = New System.Windows.Forms.Label()
Me.lblDateTime = New System.Windows.Forms.Label()
Me.lblName = New System.Windows.Forms.Label()
Me.lblNewMsg = New System.Windows.Forms.Label()
Me.Timer1 = New System.Windows.Forms.Timer(Me.components)
Me.txtChatmessage = New VERAG_PROG_ALLGEMEIN.MyRichTextBox()
Me.pnl.SuspendLayout()
Me.Panel1.SuspendLayout()
Me.SuspendLayout()
'
'pnl
'
Me.pnl.Controls.Add(Me.Panel1)
Me.pnl.Controls.Add(Me.lblDateTime)
Me.pnl.Controls.Add(Me.lblName)
Me.pnl.Controls.Add(Me.lblNewMsg)
Me.pnl.Dock = System.Windows.Forms.DockStyle.Fill
Me.pnl.Location = New System.Drawing.Point(0, 0)
Me.pnl.Name = "pnl"
Me.pnl.Size = New System.Drawing.Size(378, 48)
Me.pnl.TabIndex = 0
'
'Panel1
'
Me.Panel1.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.Panel1.BackColor = System.Drawing.Color.Azure
Me.Panel1.Controls.Add(Me.lblDel)
Me.Panel1.Controls.Add(Me.txtChatmessage)
Me.Panel1.Location = New System.Drawing.Point(3, 3)
Me.Panel1.Name = "Panel1"
Me.Panel1.Size = New System.Drawing.Size(375, 32)
Me.Panel1.TabIndex = 2
'
'lblDel
'
Me.lblDel.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.lblDel.AutoSize = True
Me.lblDel.BackColor = System.Drawing.Color.Red
Me.lblDel.Font = New System.Drawing.Font("Arial Black", 7.0!, System.Drawing.FontStyle.Bold)
Me.lblDel.ForeColor = System.Drawing.Color.White
Me.lblDel.Location = New System.Drawing.Point(357, 0)
Me.lblDel.Name = "lblDel"
Me.lblDel.Size = New System.Drawing.Size(15, 14)
Me.lblDel.TabIndex = 5
Me.lblDel.Text = "X"
Me.lblDel.Visible = False
'
'lblDateTime
'
Me.lblDateTime.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.lblDateTime.Font = New System.Drawing.Font("Microsoft Sans Serif", 7.0!)
Me.lblDateTime.ForeColor = System.Drawing.Color.Black
Me.lblDateTime.Location = New System.Drawing.Point(226, 34)
Me.lblDateTime.Name = "lblDateTime"
Me.lblDateTime.Size = New System.Drawing.Size(132, 13)
Me.lblDateTime.TabIndex = 1
Me.lblDateTime.Text = "01.01.2020 10:12:00"
Me.lblDateTime.TextAlign = System.Drawing.ContentAlignment.TopRight
'
'lblName
'
Me.lblName.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
Me.lblName.AutoSize = True
Me.lblName.Font = New System.Drawing.Font("Microsoft Sans Serif", 7.0!, System.Drawing.FontStyle.Bold)
Me.lblName.ForeColor = System.Drawing.Color.FromArgb(CType(CType(64, Byte), Integer), CType(CType(64, Byte), Integer), CType(CType(64, Byte), Integer))
Me.lblName.Location = New System.Drawing.Point(4, 34)
Me.lblName.Name = "lblName"
Me.lblName.Size = New System.Drawing.Size(155, 13)
Me.lblName.TabIndex = 0
Me.lblName.Text = "Max Mustermann (VERAG)"
'
'lblNewMsg
'
Me.lblNewMsg.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
Me.lblNewMsg.AutoSize = True
Me.lblNewMsg.BackColor = System.Drawing.Color.Red
Me.lblNewMsg.Font = New System.Drawing.Font("Arial Black", 7.0!, System.Drawing.FontStyle.Bold)
Me.lblNewMsg.ForeColor = System.Drawing.Color.White
Me.lblNewMsg.Location = New System.Drawing.Point(364, 34)
Me.lblNewMsg.Name = "lblNewMsg"
Me.lblNewMsg.Size = New System.Drawing.Size(11, 14)
Me.lblNewMsg.TabIndex = 3
Me.lblNewMsg.Text = "!"
Me.lblNewMsg.Visible = False
'
'Timer1
'
Me.Timer1.Interval = 2000
'
'txtChatmessage
'
Me.txtChatmessage.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.txtChatmessage.BackColor = System.Drawing.Color.Azure
Me.txtChatmessage.BorderStyle = System.Windows.Forms.BorderStyle.None
Me.txtChatmessage.Font = New System.Drawing.Font("Comic Sans MS", 12.0!)
Me.txtChatmessage.Location = New System.Drawing.Point(4, 4)
Me.txtChatmessage.MaxLineLength = -1
Me.txtChatmessage.MaxLines_Warning = ""
Me.txtChatmessage.MaxLines_Warning_Label = Nothing
Me.txtChatmessage.Name = "txtChatmessage"
Me.txtChatmessage.ReadOnly = True
Me.txtChatmessage.Size = New System.Drawing.Size(368, 25)
Me.txtChatmessage.TabIndex = 0
Me.txtChatmessage.Text = "Hallo, wie gehts?"
'
'usrCntlMessenger_ChatElement
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.BackColor = System.Drawing.Color.White
Me.Controls.Add(Me.pnl)
Me.Name = "usrCntlMessenger_ChatElement"
Me.Size = New System.Drawing.Size(378, 48)
Me.pnl.ResumeLayout(False)
Me.pnl.PerformLayout()
Me.Panel1.ResumeLayout(False)
Me.Panel1.PerformLayout()
Me.ResumeLayout(False)
End Sub
Friend WithEvents pnl As Panel
Friend WithEvents lblDateTime As Label
Friend WithEvents lblName As Label
Friend WithEvents Panel1 As Panel
Friend WithEvents txtChatmessage As VERAG_PROG_ALLGEMEIN.MyRichTextBox
Friend WithEvents lblNewMsg As Label
Friend WithEvents lblDel As Label
Friend WithEvents Timer1 As Timer
End Class