omagoffice/OptionPanel/OptionPanelVM.vb

Imports EgtUILib

Public Class OptionPanelVM
   Inherits VMBase

#Region "FIELDS & PROPERTIES"

   Friend Enum Tabs As Integer
      RAWPART = 0
      NESTING = 1
      MACHINING = 2
      SIMUL = 3
   End Enum

   Private m_RawTabIsEnabled As Boolean = True
   Public Property RawTabIsEnabled As Boolean
      Get
         Return m_RawTabIsEnabled
      End Get
      Set(value As Boolean)
         m_RawTabIsEnabled = value
         NotifyPropertyChanged("RawTabIsEnabled")
      End Set
   End Property

   Private m_NestTabIsEnabled As Boolean = True
   Public Property NestTabIsEnabled As Boolean
      Get
         Return m_NestTabIsEnabled
      End Get
      Set(value As Boolean)
         m_NestTabIsEnabled = value
         NotifyPropertyChanged("NestTabIsEnabled")
      End Set
   End Property

   Private m_MachTabIsEnabled As Boolean = True
   Public Property MachTabIsEnabled As Boolean
      Get
         Return m_MachTabIsEnabled
      End Get
      Set(value As Boolean)
         m_MachTabIsEnabled = value
         NotifyPropertyChanged("MachTabIsEnabled")
      End Set
   End Property

   Private m_SimulTabIsEnabled As Boolean = True
   Public Property SimulTabIsEnabled As Boolean
      Get
         Return m_SimulTabIsEnabled
      End Get
      Set(value As Boolean)
         m_SimulTabIsEnabled = value
         NotifyPropertyChanged("SimulTabIsEnabled")
      End Set
   End Property

   Private m_RawPart_Background As Brush = OmagOFFICEDictionary.TabControl_Header_Background
   Public Property RawPart_Background As Brush
      Get
         Return m_RawPart_Background
      End Get
      Set(value As Brush)
         m_RawPart_Background = value
         NotifyPropertyChanged("RawPart_Background")
      End Set
   End Property

   Private m_SelItem As Integer = -1
   Public Property SelItem As Integer
      Get
         Return m_SelItem
      End Get
      Set(value As Integer)
         ' Esco dallo stato corrente
         Select Case m_SelItem
            Case Tabs.RAWPART
               OmagOFFICEMap.refRawPartTabVM.ExitRawPart()
            Case Tabs.NESTING
               OmagOFFICEMap.refNestingTabVM.ExitNesting( value <> m_SelItem)
            Case Tabs.MACHINING
               OmagOFFICEMap.refMachiningTabVM.ExitMachining()
            Case Tabs.SIMUL
               OmagOFFICEMap.refSimulTabVM.ExitSimulation()
         End Select
         ' Entro nel nuovo stato
         m_SelItem = value
         Select Case m_SelItem
            Case Tabs.RAWPART
               OmagOFFICEMap.refMachGroupPanelVM.SetMachGroupState(False)
               OmagOFFICEMap.refRawPartTabVM.InitRawPart()
               OmagOFFICEMap.refTopCommandBarVM.IsEnabled = False
            Case Tabs.NESTING
               OmagOFFICEMap.refMachGroupPanelVM.SetMachGroupState(True)
               OmagOFFICEMap.refNestingTabVM.InitNesting()
               OmagOFFICEMap.refTopCommandBarVM.IsEnabled = True
            Case Tabs.MACHINING
               OmagOFFICEMap.refMachGroupPanelVM.SetMachGroupState(False)
               OmagOFFICEMap.refMachiningTabVM.InitMachining()
               OmagOFFICEMap.refTopCommandBarVM.IsEnabled = False
            Case Tabs.SIMUL
               OmagOFFICEMap.refMachGroupPanelVM.SetMachGroupState(False)
               OmagOFFICEMap.refSimulTabVM.InitSimulation()
               OmagOFFICEMap.refTopCommandBarVM.IsEnabled = False
         End Select
         NotifyPropertyChanged("SelItem")
      End Set
   End Property

#Region "Messages"

   Public ReadOnly Property RawPartTabMsg As String
      Get
         Return EgtMsg(MSG_OPTIONPANEL + 1)
      End Get
   End Property
   Public ReadOnly Property NestingTabMsg As String
      Get
         Return EgtMsg(MSG_OPTIONPANEL + 2)
      End Get
   End Property
   Public ReadOnly Property MachiningTabMsg As String
      Get
         Return EgtMsg(MSG_OPTIONPANEL + 3)
      End Get
   End Property
   Public ReadOnly Property SimulTabMsg As String
      Get
         Return EgtMsg(MSG_OPTIONPANEL + 4)
      End Get
   End Property

#End Region    ' Messages

#End Region    ' FIELDS & PROPERTIES

#Region "CONSTRUCTOR"

   Sub New()
      ' Creo riferimento a questa classe in OmagOFFICEMap
      OmagOFFICEMap.SetRefOptionPanelVM(Me)
   End Sub

#End Region    ' CONSTRUCTOR

End Class