diff --git a/EgtCAM5.vbproj b/EgtCAM5.vbproj
index 702ae01..50d8fed 100644
--- a/EgtCAM5.vbproj
+++ b/EgtCAM5.vbproj
@@ -68,7 +68,7 @@
pdbonly
- x64
+ x86MinimumRecommendedRules.ruleset
diff --git a/EgtCAM5Resources.xaml b/EgtCAM5Resources.xaml
index 8908d44..2473816 100644
--- a/EgtCAM5Resources.xaml
+++ b/EgtCAM5Resources.xaml
@@ -113,8 +113,8 @@
-
-
+
+
+ Visibility="{Binding CheckVisibility}" Margin="5,0,5,5"/>
+ Visibility="{Binding ComboVisibility}" Margin="5,0,5,5"/>
-
-
+
+
diff --git a/ProjectPage/OptionPanel/DrawOptionPanel/InputExpander/InputExpanderViewModel.vb b/ProjectPage/OptionPanel/DrawOptionPanel/InputExpander/InputExpanderViewModel.vb
index 1308f2e..054116d 100644
--- a/ProjectPage/OptionPanel/DrawOptionPanel/InputExpander/InputExpanderViewModel.vb
+++ b/ProjectPage/OptionPanel/DrawOptionPanel/InputExpander/InputExpanderViewModel.vb
@@ -61,6 +61,7 @@ Namespace EgtCAM5
End Get
Set(value As String)
m_TextBox = value
+ Application.Msn.NotifyColleagues(Application.NOTIFYINPUTTEXT, value)
OnPropertyChanged("TextBox")
End Set
End Property
@@ -95,7 +96,7 @@ Namespace EgtCAM5
End Get
Set(value As Boolean)
If value <> m_IsChecked Then
- Application.Msn.NotifyColleagues(Application.SETLASTBOOLEAN, IsChecked)
+ Application.Msn.NotifyColleagues(Application.SETLASTBOOLEAN, value)
m_IsChecked = value
OnPropertyChanged("IsChecked")
End If
@@ -116,7 +117,7 @@ Namespace EgtCAM5
End Property
' ComboBox fields
- Private m_ComboItemsList As ObservableCollection(Of String)
+ Private m_ComboItemsList As New ObservableCollection(Of String)
Public Property ComboItemsList As ObservableCollection(Of String)
Get
Return m_ComboItemsList
@@ -134,7 +135,7 @@ Namespace EgtCAM5
End Get
Set(value As Integer)
If value <> m_ComboSelectedIndex Then
- Application.Msn.NotifyColleagues(Application.SETLASTINTEGER, ComboSelectedIndex)
+ Application.Msn.NotifyColleagues(Application.SETLASTINTEGER, value)
m_ComboSelectedIndex = value
OnPropertyChanged("ComboSelectedIndex")
End If
@@ -175,7 +176,6 @@ Namespace EgtCAM5
#Region "CONSTRUCTOR"
Sub New()
- Application.Msn.NotifyColleagues(Application.NOTIFYINPUTTEXT, TextBox)
RegisterMethodsCall()
End Sub
@@ -231,7 +231,7 @@ Namespace EgtCAM5
''' Execute the Point. This method is invoked by the PointCommand.
'''
Public Sub Done(ByVal param As Object)
- Application.Msn.NotifyColleagues(Application.DONE, TextBox)
+ Application.Msn.NotifyColleagues(Application.DONE, m_TextBox)
End Sub
'''
@@ -284,6 +284,8 @@ Namespace EgtCAM5
ShowBtnVisibility = Visibility.Visible
End If
FocusTextBox = True
+ IsEnabled = True
+ IsExpanded = True
End Sub