EgtCAM5 :

- Migliorie varie.

ProjectPage/OptionPanel/DrawOptionPanel/InputExpander/InputExpanderViewModel.vb

@@ -98,6 +98,7 @@ Namespace EgtCAM5
             If value <> m_IsChecked Then
                Application.Msn.NotifyColleagues(Application.SETLASTBOOLEAN, value)
                m_IsChecked = value
+               Application.Msn.NotifyColleagues(Application.SHOW, TextBox)
                OnPropertyChanged("IsChecked")
             End If
          End Set
@@ -135,6 +136,7 @@ Namespace EgtCAM5
          End Get
          Set(value As Integer)
             Application.Msn.NotifyColleagues(Application.SETLASTINTEGER, value)
+            Application.Msn.NotifyColleagues(Application.SHOW, TextBox)
             m_ComboSelectedIndex = value
             OnPropertyChanged("ComboSelectedIndex")
          End Set
@@ -281,17 +283,17 @@ Namespace EgtCAM5
          If PrepareInputBoxParam.bShowBtn Then
             ShowBtnVisibility = Visibility.Visible
          End If
-         FocusTextBox = True
          IsEnabled = True
          IsExpanded = True
+         FocusTextBox = True
       End Sub
 
 
       Private Sub ResetInputBox()
          Title = "Drawing Parameters"
-         CheckVisibility = Visibility.Hidden
-         ComboVisibility = Visibility.Hidden
-         ShowBtnVisibility = Visibility.Hidden
+         CheckVisibility = Visibility.Collapsed
+         ComboVisibility = Visibility.Collapsed
+         ShowBtnVisibility = Visibility.Collapsed
          IsExpanded = False
          IsEnabled = False
       End Sub