flpnl

Aviso/frmSendungsdetailsNEU.vb

@@ -1219,11 +1219,57 @@ Public Class frmSendungsdetailsNEU
         '  Me.ResumeLayout(False)
 
         changeSelectedButton()
+
+
+        ' Layout beenden, Größe an Inhalte anpassen und Parent-Panels synchronisieren
+        'AdjustFlowPanelHeight()
+
+        ' MsgBox(FlowLayoutPanel.DisplayRectangle.Height)
         FlowLayoutPanel.ResumeLayout(True)
         '   Panel3.Height = FlowLayoutPanel.Height
 
     End Sub
 
+    ' Passt FlowLayoutPanel sowie Panel2 / Panel1 an die beinhalteten Controls an.
+    Private Sub AdjustFlowPanelHeight()
+        Try
+            ' Sicherer Layout-Block
+            FlowLayoutPanel.SuspendLayout()
+
+            FlowLayoutPanel.MaximumSize = New Size(500, 55)
+            ' Ermittle benötigte Höhe (PreferredSize berücksichtigt WrapContents)
+            FlowLayoutPanel.AutoSize = True
+            FlowLayoutPanel.WrapContents = True
+            FlowLayoutPanel.PerformLayout()
+            Application.DoEvents()
+            Dim neededHeight As Integer = FlowLayoutPanel.PreferredSize.Height
+            MsgBox(FlowLayoutPanel.Controls.Count & " _ " & FlowLayoutPanel.PreferredSize.Height)
+            ' Behalte minimale Höhe (1) um Nullhöhe zu vermeiden
+            If neededHeight < 1 Then neededHeight = 1
+
+            ' Deaktiviere AutoSize wieder und setze die ermittelte Höhe
+            FlowLayoutPanel.AutoSize = False
+            FlowLayoutPanel.Height = neededHeight
+
+            ' Panel2 und Panel1 oberhalb anpassen, falls vorhanden
+            If Panel2 IsNot Nothing Then
+                Panel2.Height = neededHeight
+                Panel2.MinimumSize = New Size(0, neededHeight)
+            End If
+            If Panel1 IsNot Nothing Then
+                Panel1.Height = neededHeight
+                Panel1.MinimumSize = New Size(0, neededHeight)
+            End If
+
+            ' Falls Form-Layout betroffen ist, erzwinge Neuberechnung
+            Me.PerformLayout()
+            Application.DoEvents()
+        Catch ex As Exception
+            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
+        Finally
+            FlowLayoutPanel.ResumeLayout()
+        End Try
+    End Sub
 
     Public Sub ADD_SND(Optional initAfter = True)
         If AVISO.Abgeschlossen Then Exit Sub
@@ -1793,11 +1839,32 @@ Public Class frmSendungsdetailsNEU
                     If cntlAuftr_Abf IsNot Nothing Then cntlAuftr_Abf.lbl.Text = "X"
                 End If
             End If
+            'panel2.Controls. Remove(   Panel1 )
             '-------------------------
+            'FlowLayoutPanel.AutoSize = True
+            'FlowLayoutPanel.AutoSizeMode = AutoSizeMode.GrowAndShrink
+            'FlowLayoutPanel.WrapContents = True   ' oder False je nach Layout
 
-            Panel2.MinimumSize = New Size(0, FlowLayoutPanel.Height) '+ pnlheader.Height) ' damit das S***** Flowlayoutpanel nicht abgeschnitten wird...
-
+            'Panel2.AutoSize = True
+            'Panel2.AutoSizeMode = AutoSizeMode.GrowAndShrink
+            'Panel1.AutoSize = True
+            'Panel1.AutoSizeMode = AutoSizeMode.GrowAndShrink
+            'FlowLayoutPanel.Dock = DockStyle.Fill
+            'Panel2.MinimumSize = New Size(0, FlowLayoutPanel.Height) '+ pnlheader.Height) ' damit das S***** Flowlayoutpanel nicht abgeschnitten wird...
+            'Panel1.MinimumSize = New Size(0, FlowLayoutPanel.Height) '+ pnlheader.Height) ' damit das S***** Flowlayoutpanel nicht abgeschnitten wird...
+            'FlowLayoutPanel.WrapContents = True
+            'FlowLayoutPanel.AutoScroll = False
+            'FlowLayoutPanel.Dock = DockStyle.Top
+            'FlowLayoutPanel.AutoSize = True
+            'FlowLayoutPanel.AutoSizeMode = AutoSizeMode.GrowAndShrink
 
+            'FlowLayoutPanel.AutoSize = True
+            'MsgBox(FlowLayoutPanel.PreferredSize.Height)
+            'FlowLayoutPanel.Height = FlowLayoutPanel.PreferredSize.Height
+            'Panel2.Height = FlowLayoutPanel.PreferredSize.Height
+            'Panel1.Height = FlowLayoutPanel.PreferredSize.Height
+            'Panel2.MinimumSize = New Size(0, FlowLayoutPanel.Height) '+ pnlheader.Height) ' damit das S***** Flowlayoutpanel nicht abgeschnitten wird...
+            'Panel1.MinimumSize = New Size(0, FlowLayoutPanel.Height) '+ pnlheader.Height) ' damit das S***** Flowlayoutpanel nicht abgeschnitten wird...
 
             'SAVE_ME ??????!!!!!!!
         Catch ex As Exception
@@ -1907,15 +1974,15 @@ Public Class frmSendungsdetailsNEU
 
 
         If SENDUNG_LIST(CURRENT_INDEX).tblSnd_SpeditionsbuchEingetragen Then
-            btnStatusAbklaerungTR.BackgroundImage = My.Resources.speditionsbuchAktiv
-            setTooltioBtn(btnStatusAbklaerungTR, "Status 'Speditionsbuch Eingetragen' entfernen")
+            btnSpeditionsbuchEintragen.BackgroundImage = My.Resources.speditionsbuchAktiv
+            setTooltioBtn(btnSpeditionsbuchEintragen, "Status 'Speditionsbuch Eingetragen' entfernen")
         End If
 
 
 
         If SENDUNG_LIST(CURRENT_INDEX).tblSnd_Fakturiert Then
-            btnStatusAbklaerungTR.BackgroundImage = My.Resources.fakturiertAktiv
-            setTooltioBtn(btnStatusAbklaerungTR, "Status 'Fakturiert' entfernen")
+            btnSendungFakturiert.BackgroundImage = My.Resources.fakturiertAktiv
+            setTooltioBtn(btnSendungFakturiert, "Status 'Fakturiert' entfernen")
         End If