EgtCAM5/OptionPanel/DrawOptionPanel/InputExpander/InputExpanderVM.vb

Imports System.Collections.ObjectModel
Imports EgtUILib

Public Class InputExpanderVM
   Inherits ViewModelBase

#Region "FIELDS & PROPERTIES"

   ' Expander fields
   Private m_IsExpanded As Boolean
   Public Property IsExpanded As Boolean
      Get
         Return m_IsExpanded
      End Get
      Set(value As Boolean)
         m_IsExpanded = value
         OnPropertyChanged("IsExpanded")
      End Set
   End Property

   Private m_IsEnabled As Boolean
   Public Property IsEnabled As Boolean
      Get
         Return m_IsEnabled
      End Get
      Set(value As Boolean)
         m_IsEnabled = value
         OnPropertyChanged("IsEnabled")
      End Set
   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

   ' TextBlock fields
   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

   ' TextBox fields
   Private m_TextBox As String
   Public Property TextBox As String
      Get
         Return m_TextBox
      End Get
      Set(value As String)
         m_TextBox = value
         Application.Msn.NotifyColleagues(Application.NOTIFYINPUTTEXT, value)
         OnPropertyChanged("TextBox")
      End Set
   End Property

   Private m_FocusTextBox As Boolean
   Public Property FocusTextBox As Boolean
      Get
         Return m_FocusTextBox
      End Get
      Set(value As Boolean)
         m_FocusTextBox = value
         OnPropertyChanged("FocusTextBox")
      End Set
   End Property

   'CheckBox fields
   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_IsChecked As Boolean
   Public Property IsChecked As Boolean
      Get
         Return m_IsChecked
      End Get
      Set(value As Boolean)
         If value <> m_IsChecked Then
            Application.Msn.NotifyColleagues(Application.SETLASTBOOLEAN, value)
            m_IsChecked = value
            OnPropertyChanged("IsChecked")
         End If
      End Set
   End Property

   Private m_CheckVisibility As Visibility
   Public Property CheckVisibility As Visibility
      Get
         Return m_CheckVisibility
      End Get
      Set(value As Visibility)
         If value <> m_CheckVisibility Then
            m_CheckVisibility = value
            OnPropertyChanged("CheckVisibility")
         End If
      End Set
   End Property

   ' ComboBox fields
   Private m_ComboItemsList As New 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_ComboSelectedIndex As Integer
   Public Property ComboSelectedIndex As Integer
      Get
         Return m_ComboSelectedIndex
      End Get
      Set(value As Integer)
         Application.Msn.NotifyColleagues(Application.SETLASTINTEGER, value)
         m_ComboSelectedIndex = value
         OnPropertyChanged("ComboSelectedIndex")
      End Set
   End Property

   Private m_ComboVisibility As Visibility
   Public Property ComboVisibility As Visibility
      Get
         Return m_ComboVisibility
      End Get
      Set(value As Visibility)
         If value <> m_ComboVisibility Then
            m_ComboVisibility = value
            OnPropertyChanged("ComboVisibility")
         End If
      End Set
   End Property

   ' Buttons fields
   Private m_ShowBtnVisibility As Visibility
   Public Property ShowBtnVisibility As Visibility
      Get
         Return m_ShowBtnVisibility
      End Get
      Set(value As Visibility)
         m_ShowBtnVisibility = value
         OnPropertyChanged("ShowBtnVisibility")
      End Set
   End Property

   ' Commands definition
   Private m_cmdShow As ICommand
   Private m_cmdDone As ICommand

#Region "Messages"

   Public ReadOnly Property ShowMsg As String
      Get
         Return EgtMsg(MSG_DRAWOPTION + 14)
      End Get
   End Property
   Public ReadOnly Property OkMsg As String
      Get
         Return EgtMsg(MSG_DRAWOPTION + 15)
      End Get
   End Property

#End Region

#End Region    ' Fields & Properties

#Region "CONSTRUCTOR"

   Sub New()
      RegisterMethodsCall()
   End Sub

#End Region    ' Constructor

#Region "COMMANDS"

#Region "ShowCommand"

   ''' <summary>
   ''' Returns a command that do Point.
   ''' </summary>
   Public ReadOnly Property ShowCommand As ICommand
      Get
         If m_cmdShow Is Nothing Then
            m_cmdShow = New RelayCommand(AddressOf Show, AddressOf CanShow)
         End If
         Return m_cmdShow
      End Get
   End Property

   ''' <summary>
   ''' Execute the Point.  This method is invoked by the PointCommand.
   ''' </summary>
   Public Sub Show(ByVal param As Object)
      Application.Msn.NotifyColleagues(Application.SHOW, TextBox)
   End Sub

   ''' <summary>
   ''' Returns always true.
   ''' </summary>
   Private Function CanShow(ByVal param As Object) As Boolean
      Return If(m_ShowBtnVisibility = Visibility.Visible, True, False)
   End Function

#End Region ' ShowCommand

#Region "DoneCommand"

   ''' <summary>
   ''' Returns a command that do Point.
   ''' </summary>
   Public ReadOnly Property DoneCommand As ICommand
      Get
         If m_cmdDone Is Nothing Then
            m_cmdDone = New RelayCommand(AddressOf Done, AddressOf CanDone)
         End If
         Return m_cmdDone
      End Get
   End Property

   ''' <summary>
   ''' Execute the Point.  This method is invoked by the PointCommand.
   ''' </summary>
   Public Sub Done(ByVal param As Object)
      Application.Msn.NotifyColleagues(Application.DONE, m_TextBox)
   End Sub

   ''' <summary>
   ''' Returns always true.
   ''' </summary>
   Private Function CanDone(ByVal param As Object) As Boolean
      Return True
   End Function

#End Region ' DoneCommand

#End Region

#Region "METHODS"

   Sub RegisterMethodsCall()
      Application.Msn.Register(Application.PREPAREINPUTBOX, Sub(PrepareInputBoxParam As PrepareInputBoxParam)
                                                               PrepareInputBox(PrepareInputBoxParam)
                                                            End Sub)
      Application.Msn.Register(Application.SETINPUTBOXTEXT, Sub(sString As String)
                                                               SetInputBoxText(sString)
                                                            End Sub)
      Application.Msn.Register(Application.SETINPUTBOXCHECK, Sub(bBoolean As Boolean)
                                                                SetInputBoxCheck(bBoolean)
                                                             End Sub)
      Application.Msn.Register(Application.CHANGEINPUTBOXCHECK, Sub()
                                                                   ChangeInputBoxCheck()
                                                                End Sub)
      Application.Msn.Register(Application.ADDINPUTBOXCOMBO, Sub(AddInputBoxComboParam As AddInputBoxComboParam)
                                                                AddInputBoxCombo(AddInputBoxComboParam.sText, AddInputBoxComboParam.bSelected)
                                                             End Sub)
      Application.Msn.Register(Application.RESETINPUTBOX, Sub()
                                                             ResetInputBox()
                                                          End Sub)
   End Sub

   Private Sub PrepareInputBox(PrepareInputBoxParam As PrepareInputBoxParam)
      Title = PrepareInputBoxParam.sTitle
      TextBlock = PrepareInputBoxParam.sLabel
      TextBox = ""
      If PrepareInputBoxParam.sCheckLabel <> "" Then
         CheckBoxText = PrepareInputBoxParam.sCheckLabel
         CheckVisibility = Visibility.Visible
      End If
      If PrepareInputBoxParam.bShowCombo Then
         ComboItemsList.Clear()
         ComboVisibility = Visibility.Visible
      End If
      If PrepareInputBoxParam.bShowBtn Then
         ShowBtnVisibility = Visibility.Visible
      End If
      IsEnabled = True
      IsExpanded = True
      FocusTextBox = True
   End Sub

   Private Sub ResetInputBox()
      Title = EgtMsg(MSG_DRAWOPTION + 5)
      CheckVisibility = Visibility.Collapsed
      ComboVisibility = Visibility.Collapsed
      ShowBtnVisibility = Visibility.Collapsed
      IsExpanded = False
      IsEnabled = False
   End Sub

   Private Function SetInputBoxText(ByVal sVal As String) As Boolean
      TextBox = sVal
      FocusTextBox = True
      Return True
   End Function

   Private Function ChangeInputBoxCheck() As Boolean
      IsChecked = Not m_IsChecked
      Return True
   End Function

   Private Function SetInputBoxCheck(ByVal bCheck As Boolean) As Boolean
      IsChecked = bCheck
      Application.Msn.NotifyColleagues(Application.SETLASTBOOLEAN, IsChecked)
      Return True
   End Function

   Private Function AddInputBoxCombo(ByVal sText As String, ByVal bSelected As Boolean) As Boolean
      ComboItemsList.Add(sText)
      If bSelected Then
         ComboSelectedIndex = ComboItemsList.Count - 1
      End If
      Return True
   End Function

#End Region    ' Methods

End Class