neu2

2020-03-23 23:10:05 +01:00
parent a8840a7dcd
commit ffde29023a
6 changed files with 62 additions and 26 deletions
--- a/VERAG_PROG_ALLGEMEIN/Messenger/usrCntlMessenger_ChatAnhang.Designer.vb
+++ b/VERAG_PROG_ALLGEMEIN/Messenger/usrCntlMessenger_ChatAnhang.Designer.vb
@@ -25,17 +25,19 @@ Partial Class usrCntlMessenger_ChatAnhang
    <System.Diagnostics.DebuggerStepThrough()>
    Private Sub InitializeComponent()
        Me.pnl = New System.Windows.Forms.Panel()
-        Me.txtChatmessage = New VERAG_PROG_ALLGEMEIN.MyRichTextBox()
        Me.pic = New System.Windows.Forms.PictureBox()
        Me.lblDateTime = New System.Windows.Forms.Label()
        Me.lblNewMsg = New System.Windows.Forms.Label()
        Me.lblName = New System.Windows.Forms.Label()
+        Me.Panel1 = New System.Windows.Forms.Panel()
+        Me.txtChatmessage = New VERAG_PROG_ALLGEMEIN.MyRichTextBox()
        Me.pnl.SuspendLayout()
        CType(Me.pic, System.ComponentModel.ISupportInitialize).BeginInit()
        Me.SuspendLayout()
        '
        'pnl
        '
+        Me.pnl.Controls.Add(Me.Panel1)
        Me.pnl.Controls.Add(Me.txtChatmessage)
        Me.pnl.Controls.Add(Me.pic)
        Me.pnl.Dock = System.Windows.Forms.DockStyle.Fill
@@ -44,28 +46,8 @@ Partial Class usrCntlMessenger_ChatAnhang
        Me.pnl.Size = New System.Drawing.Size(378, 72)
        Me.pnl.TabIndex = 0
        '
-        'txtChatmessage
-        '
-        Me.txtChatmessage.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
-            Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
-        Me.txtChatmessage.BackColor = System.Drawing.Color.White
-        Me.txtChatmessage.BorderStyle = System.Windows.Forms.BorderStyle.None
-        Me.txtChatmessage.Cursor = System.Windows.Forms.Cursors.Hand
-        Me.txtChatmessage.Font = New System.Drawing.Font("Comic Sans MS", 12.0!)
-        Me.txtChatmessage.Location = New System.Drawing.Point(113, 17)
-        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(260, 37)
-        Me.txtChatmessage.TabIndex = 1
-        Me.txtChatmessage.Text = "Anhangdokument.pdf"
-        '
        'pic
        '
-        Me.pic.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
-            Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
        Me.pic.BackgroundImage = Global.VERAG_PROG_ALLGEMEIN.My.Resources.Resources.docAllgemein
        Me.pic.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
        Me.pic.Cursor = System.Windows.Forms.Cursors.Hand
@@ -113,6 +95,34 @@ Partial Class usrCntlMessenger_ChatAnhang
        Me.lblName.TabIndex = 4
        Me.lblName.Text = "Max Mustermann (VERAG)"
        '
+        'Panel1
+        '
+        Me.Panel1.Anchor = CType(((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.Location = New System.Drawing.Point(2, 55)
+        Me.Panel1.Name = "Panel1"
+        Me.Panel1.Size = New System.Drawing.Size(375, 3)
+        Me.Panel1.TabIndex = 4
+        '
+        'txtChatmessage
+        '
+        Me.txtChatmessage.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
+            Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+        Me.txtChatmessage.BackColor = System.Drawing.Color.White
+        Me.txtChatmessage.BorderStyle = System.Windows.Forms.BorderStyle.None
+        Me.txtChatmessage.Cursor = System.Windows.Forms.Cursors.Hand
+        Me.txtChatmessage.Font = New System.Drawing.Font("Comic Sans MS", 12.0!)
+        Me.txtChatmessage.Location = New System.Drawing.Point(113, 17)
+        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(260, 37)
+        Me.txtChatmessage.TabIndex = 1
+        Me.txtChatmessage.Text = "Anhangdokument.pdf"
+        '
        'usrCntlMessenger_ChatAnhang
        '
        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@@ -137,4 +147,5 @@ Partial Class usrCntlMessenger_ChatAnhang
    Friend WithEvents lblDateTime As Label
    Friend WithEvents lblNewMsg As Label
    Friend WithEvents lblName As Label
+    Friend WithEvents Panel1 As Panel
 End Class
--- a/VERAG_PROG_ALLGEMEIN/Messenger/usrCntlMessenger_ChatAnhang.vb
+++ b/VERAG_PROG_ALLGEMEIN/Messenger/usrCntlMessenger_ChatAnhang.vb
@@ -26,7 +26,7 @@ Public Class usrCntlMessenger_ChatAnhang
    Sub setBgCOLOR(BG_COLOR)
        ' Me.BG_COLOR = BG_COLOR
        ' txtChatmessage.BackColor = BG_COLOR
-        'Panel1.BackColor = BG_COLOR
+        Panel1.BackColor = BG_COLOR
    End Sub

    Private Sub usrCntlMessenger_ChatAnhang_Load(sender As Object, e As EventArgs) Handles Me.Load
--- a/VERAG_PROG_ALLGEMEIN/Messenger/usrCntlMessenger_ChatEmoji.Designer.vb
+++ b/VERAG_PROG_ALLGEMEIN/Messenger/usrCntlMessenger_ChatEmoji.Designer.vb
@@ -29,12 +29,14 @@ Partial Class usrCntlMessenger_ChatEmoji
        Me.lblDateTime = New System.Windows.Forms.Label()
        Me.lblNewMsg = New System.Windows.Forms.Label()
        Me.lblName = New System.Windows.Forms.Label()
+        Me.Panel1 = New System.Windows.Forms.Panel()
        Me.pnl.SuspendLayout()
        CType(Me.pic, System.ComponentModel.ISupportInitialize).BeginInit()
        Me.SuspendLayout()
        '
        'pnl
        '
+        Me.pnl.Controls.Add(Me.Panel1)
        Me.pnl.Controls.Add(Me.pic)
        Me.pnl.Dock = System.Windows.Forms.DockStyle.Fill
        Me.pnl.Location = New System.Drawing.Point(0, 0)
@@ -49,7 +51,7 @@ Partial Class usrCntlMessenger_ChatEmoji
        Me.pic.BackgroundImage = Global.VERAG_PROG_ALLGEMEIN.My.Resources.Resources.docAllgemein
        Me.pic.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
        Me.pic.Cursor = System.Windows.Forms.Cursors.Hand
-        Me.pic.Location = New System.Drawing.Point(258, 5)
+        Me.pic.Location = New System.Drawing.Point(145, 5)
        Me.pic.Name = "pic"
        Me.pic.Size = New System.Drawing.Size(100, 50)
        Me.pic.TabIndex = 2
@@ -93,6 +95,16 @@ Partial Class usrCntlMessenger_ChatEmoji
        Me.lblName.TabIndex = 4
        Me.lblName.Text = "Max Mustermann (VERAG)"
        '
+        'Panel1
+        '
+        Me.Panel1.Anchor = CType(((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.Location = New System.Drawing.Point(2, 55)
+        Me.Panel1.Name = "Panel1"
+        Me.Panel1.Size = New System.Drawing.Size(375, 3)
+        Me.Panel1.TabIndex = 3
+        '
        'usrCntlMessenger_ChatEmoji
        '
        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@@ -116,4 +128,5 @@ Partial Class usrCntlMessenger_ChatEmoji
    Friend WithEvents lblDateTime As Label
    Friend WithEvents lblNewMsg As Label
    Friend WithEvents lblName As Label
+    Friend WithEvents Panel1 As Panel
 End Class
--- a/VERAG_PROG_ALLGEMEIN/Messenger/usrCntlMessenger_ChatEmoji.vb
+++ b/VERAG_PROG_ALLGEMEIN/Messenger/usrCntlMessenger_ChatEmoji.vb
@@ -26,7 +26,7 @@ Public Class usrCntlMessenger_ChatEmoji
    Sub setBgCOLOR(BG_COLOR)
        ' Me.BG_COLOR = BG_COLOR
        ' txtChatmessage.BackColor = BG_COLOR
-        'Panel1.BackColor = BG_COLOR
+        Panel1.BackColor = BG_COLOR
    End Sub

    Private Sub usrCntlMessenger_ChatAnhang_Load(sender As Object, e As EventArgs) Handles Me.Load