EgtCAM5 :

-Miglioramenti vari.
2016-09-06 13:50:26 +00:00
parent ac93327ea9
commit 2aeaccf30a
15 changed files with 133 additions and 25 deletions
@@ -98,7 +98,6 @@ 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
@@ -136,7 +135,6 @@ 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
@@ -208,7 +206,7 @@ Namespace EgtCAM5
      ''' Returns always true.
      ''' </summary>
      Private Function CanShow(ByVal param As Object) As Boolean
-         Return True
+         Return If(m_ShowBtnVisibility = Visibility.Visible, True, False)
      End Function

 #End Region ' ShowCommand