Imports System.Collections.ObjectModel
Imports System.IO
Imports EgtUILib
Imports EgtWPFLib5
Imports EgtBEAMWALL.Core

Public Class ProjectTypeWndVM
   Inherits VMBase

#Region "FIELDS & PROPERTIES"

   Friend Event m_CloseWindow(bDialogResult As Boolean)

   Private m_TypeList As New ObservableCollection(Of BWType)({BWType.BEAM, BWType.WALL})
   Public ReadOnly Property TypeList As ObservableCollection(Of BWType)
      Get
         Return m_TypeList
      End Get
   End Property

   Private m_nSelType As BWType
   Public Property nSelType As BWType
      Get
         Return m_nSelType
      End Get
      Set(value As BWType)
         If value <> m_nSelType Then
            m_nSelType = value
         End If
      End Set
   End Property

   ' Definizione comandi
   Private m_cmdOk As ICommand

#End Region    ' FIELDS & PROPERTIES

#Region "MESSAGES"

   Public ReadOnly Property Choose_Msg As String
      Get
         Return EgtMsg(61879)
      End Get
   End Property

#End Region    ' MESSAGES

#Region "COMMANDS"

#Region "Ok"

   Public ReadOnly Property Ok_Command As ICommand
      Get
         If m_cmdOk Is Nothing Then
            m_cmdOk = New Command(AddressOf Ok)
         End If
         Return m_cmdOk
      End Get
   End Property

   Public Sub Ok()
      Select Case nSelType
         Case BWType.BEAM, BWType.WALL
            RaiseEvent m_CloseWindow(True)
         Case Else
            MessageBox.Show(EgtMsg(61880), EgtMsg(30009))
      End Select
   End Sub

#End Region ' Ok

#End Region    ' COMMANDS 

End Class