From ac51434fa1b99b947c818a4c5921a76de6876f78 Mon Sep 17 00:00:00 2001
From: Andreas Luxbauer <al@verag.ag>
Date: Tue, 17 Oct 2023 10:31:59 +0200
Subject: [PATCH] =?UTF-8?q?Fenstergr=C3=B6=C3=9Fe?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 Aviso/My Project/AssemblyInfo.vb  |  4 ++--
 Aviso/frmHauptfenster.Designer.vb | 10 +++++++++-
 Aviso/frmHauptfenster.vb          | 11 +++++++++++
 3 files changed, 22 insertions(+), 3 deletions(-)

diff --git a/Aviso/My Project/AssemblyInfo.vb b/Aviso/My Project/AssemblyInfo.vb
index bf1466f..d788b69 100644
--- a/Aviso/My Project/AssemblyInfo.vb	
+++ b/Aviso/My Project/AssemblyInfo.vb	
@@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
 ' übernehmen, indem Sie "*" eingeben:
 ' <Assembly: AssemblyVersion("1.0.*")> 
 
-<Assembly: AssemblyVersion("3.9.3.0")>
-<Assembly: AssemblyFileVersion("3.9.3.0")>
+<Assembly: AssemblyVersion("3.9.3.1")>
+<Assembly: AssemblyFileVersion("3.9.3.1")>
diff --git a/Aviso/frmHauptfenster.Designer.vb b/Aviso/frmHauptfenster.Designer.vb
index ec81e26..d45f935 100644
--- a/Aviso/frmHauptfenster.Designer.vb
+++ b/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
diff --git a/Aviso/frmHauptfenster.vb b/Aviso/frmHauptfenster.vb
index 3b7214a..81dd462 100644
--- a/Aviso/frmHauptfenster.vb
+++ b/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