EgtCAM5 :

- modifiche varie.
2016-07-06 18:33:16 +00:00
parent d868196708
commit 550057bf06
16 changed files with 675 additions and 317 deletions
@@ -1,6 +1,4 @@
-Imports System.Collections.ObjectModel
-
-Namespace EgtCAM5
+Namespace EgtCAM5

   Public Class DrawOptionPanelViewModel
      Inherits ViewModelBase
@@ -39,112 +37,6 @@ Namespace EgtCAM5
         End Get
      End Property

-      Private m_Title As String
-      Public Property Title As String
-         Get
-            Return m_Title
-         End Get
-         Set(value As String)
-            m_Title = value
-            OnPropertyChanged("Title")
-         End Set
-      End Property
-
-      Private m_TextBlock As String
-      Public Property TextBlock As String
-         Get
-            Return m_TextBlock
-         End Get
-         Set(value As String)
-            m_TextBlock = value
-            OnPropertyChanged("TextBlock")
-         End Set
-      End Property
-
-      Private m_TextBox As String
-      Public Property TextBox As String
-         Get
-            Return m_TextBox
-         End Get
-         Set(value As String)
-            m_TextBox = value
-            OnPropertyChanged("TextBox")
-         End Set
-      End Property
-
-      Private m_CheckBoxText As String
-      Public Property CheckBoxText As String
-         Get
-            Return m_CheckBoxText
-         End Get
-         Set(value As String)
-            m_CheckBoxText = value
-            OnPropertyChanged("CheckBoxText")
-         End Set
-      End Property
-
-      Private m_ComboItemsList As ObservableCollection(Of String)
-      Public Property ComboItemsList As ObservableCollection(Of String)
-         Get
-            Return m_ComboItemsList
-         End Get
-         Set(value As ObservableCollection(Of String))
-            m_ComboItemsList = value
-            OnPropertyChanged("ComboItemsList")
-         End Set
-      End Property
-
-      Private m_ComboSelectedItem As String
-      Public Property ComboSelectedItem As String
-         Get
-            Return m_ComboSelectedItem
-         End Get
-         Set(value As String)
-            m_ComboSelectedItem = value
-            OnPropertyChanged("ComboSelectedItem")
-         End Set
-      End Property
-
-      Private m_ShowVisibility As Boolean
-      Public Property ShowVisibility As Boolean
-         Get
-            Return m_ShowVisibility
-         End Get
-         Set(value As Boolean)
-            m_ShowVisibility = value
-            OnPropertyChanged("ShowVisibility")
-         End Set
-      End Property
-
-      Sub New()
-         Application.Msn.NotifyColleagues(Application.NOTIFYINPUTTEXT, TextBox)
-      End Sub
-
-      Private Sub PrepareInputBox(ByRef sTitle As String, ByRef sLabel As String, ByRef sCheckLabel As String,
-                            ByVal bShowCombo As Boolean, ByVal bShowBtn As Boolean)
-         Title = sTitle
-         TextBlock = sLabel
-         TextBox = ""
-         If sCheckLabel <> "" Then
-            CheckBoxText = sCheckLabel
-         End If
-         If bShowCombo Then
-            ComboItemsList.Clear()
-         End If
-         If bShowBtn Then
-            ShowVisibility = True
-         End If
-         'InputText.Focus()
-      End Sub
-
-      Private Sub ResetInputBox()
-         'InputBox.Hide()
-         'InputCheck.Hide()
-         'InputCombo.Hide()
-         'btnShow.Hide()
-         'Scene1.Focus()
-      End Sub
-
   End Class

 End Namespace