envelope options

EnvelopeGenerator.Form/frmEnvelopeMainData.vb

@@ -22,6 +22,8 @@ Public Class frmEnvelopeMainData
             cmbContractType.ReadOnly = True
         End If
 
+        groupAllOptions.Expanded = False
+
         Dim contractTypeList = [Enum].GetValues(GetType(ContractType)).Cast(Of ContractType)()
         Dim oTranslatedList = contractTypeList.Select(AddressOf TranslateContractType).ToList()
 
@@ -49,4 +51,19 @@ Public Class frmEnvelopeMainData
         EnvelopeTitle = txtTitle.EditValue
         EnvelopeContractType = cmbContractType.SelectedIndex + 1
     End Sub
+
+    Private Sub frmEnvelopeMainData_Shown(sender As Object, e As EventArgs) Handles Me.Shown
+        SetFormHeight()
+    End Sub
+
+    Private Sub SetFormHeight()
+        ClientSize = New Size(ClientSize.Width, LayoutControl1.Root.MinSize.Height)
+    End Sub
+
+    Private Sub LayoutControl1_GroupExpandChanged(sender As Object, e As DevExpress.XtraLayout.Utils.LayoutGroupEventArgs) Handles LayoutControl1.GroupExpandChanged
+        If e.Group.Name = groupAllOptions.Name Then
+            SetFormHeight()
+        End If
+
+    End Sub
 End Class