Merge branch 'master' of https://verag.visualstudio.com/AVISO/_git/AVISO

Aviso/frmHauptfenster.Designer.vb

@@ -381,6 +381,7 @@ Partial Class frmHauptfenster
         Me.UsrCntlTestsystem1 = New VERAG_PROG_ALLGEMEIN.usrCntlTestsystem()
         Me.Panel3 = New System.Windows.Forms.Panel()
         Me.Panel4 = New System.Windows.Forms.Panel()
+        Me.FenstergrößeVariabelToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
         Me.conMenuAviso.SuspendLayout()
         Me.MenuStrip1.SuspendLayout()
         Me.pnlDetailsRechts.SuspendLayout()
@@ -547,7 +548,7 @@ Partial Class frmHauptfenster
         '
         'OptionenToolStripMenuItem
         '
-        Me.OptionenToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ZeilenInFarbeEinausToolStripMenuItem, Me.BerechtigungenNeuLadenToolStripMenuItem})
+        Me.OptionenToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ZeilenInFarbeEinausToolStripMenuItem, Me.BerechtigungenNeuLadenToolStripMenuItem, Me.FenstergrößeVariabelToolStripMenuItem})
         Me.OptionenToolStripMenuItem.Name = "OptionenToolStripMenuItem"
         Me.OptionenToolStripMenuItem.Size = New System.Drawing.Size(213, 22)
         Me.OptionenToolStripMenuItem.Text = "Optionen"
@@ -3648,6 +3649,12 @@ Partial Class frmHauptfenster
         Me.Panel4.Size = New System.Drawing.Size(170, 25)
         Me.Panel4.TabIndex = 4
         '
+        'FenstergrößeVariabelToolStripMenuItem
+        '
+        Me.FenstergrößeVariabelToolStripMenuItem.Name = "FenstergrößeVariabelToolStripMenuItem"
+        Me.FenstergrößeVariabelToolStripMenuItem.Size = New System.Drawing.Size(213, 22)
+        Me.FenstergrößeVariabelToolStripMenuItem.Text = "Fenstergröße variabel"
+        '
         'frmHauptfenster
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@@ -4068,4 +4075,5 @@ Partial Class frmHauptfenster
     Friend WithEvents APIToolStripMenuItem As ToolStripMenuItem
     Friend WithEvents lblAbsender As Label
     Friend WithEvents txtAbsender As TextBox
+    Friend WithEvents FenstergrößeVariabelToolStripMenuItem As ToolStripMenuItem
 End Class

Aviso/frmHauptfenster.vb

@@ -4520,6 +4520,17 @@ Public Class frmHauptfenster
         Dim f As New frmNorsware()
         f.ShowDialog(Me)
     End Sub
+
+    Private Sub FenstergrößeVariabelToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles FenstergrößeVariabelToolStripMenuItem.Click
+        If Me.FormBorderStyle = FormBorderStyle.None Then
+            Me.FormBorderStyle = FormBorderStyle.Sizable
+            Panel4.Visible = False
+        Else
+            Me.FormBorderStyle = FormBorderStyle.None
+            Panel4.Visible = True
+        End If
+
+    End Sub
 End Class
 
 Public Class AvisoStatusFunctions