omagoffice/OptionPanel/RawPartTab/RawPartTabVM.vb

Public Class RawPartTabVM
   Inherits VMBase

#Region "FIELDS & PROPERTIES"

   Enum Type As Integer
      RECTANGLE
      BYPOINTS
   End Enum

   Private m_OutlineIsChecked As Boolean
   Public Property OutlineIsChecked As Boolean
      Get
         Return m_OutlineIsChecked
      End Get
      Set(value As Boolean)
         If value <> m_OutlineIsChecked Then
            m_OutlineIsChecked = value
            If value Then

               NotifyPropertyChanged("OutlineIsChecked")
            End If
         End If
      End Set
   End Property

   Private m_DAIsChecked As Boolean
   Public Property DAIsChecked As Boolean
      Get
         Return m_DAIsChecked
      End Get
      Set(value As Boolean)
         If value <> m_DAIsChecked Then
            m_DAIsChecked = value
            If value Then

               NotifyPropertyChanged("DAIsChecked")
            End If
         End If
      End Set
   End Property

   Private m_TypeList As New List(Of String)
   Public ReadOnly Property TypeList As List(Of String)
      Get
         Return m_TypeList
      End Get
   End Property

   Private m_SelType As Type
   Public Property SelType As Type
      Get
         Return m_SelType
      End Get
      Set(value As Type)
         m_SelType = value
      End Set
   End Property

   Private m_Length As String
   Public Property Length As String
      Get
         Return m_Length
      End Get
      Set(value As String)
         m_Length = value
      End Set
   End Property

   Private m_Width As String
   Public Property Width As String
      Get
         Return m_Width
      End Get
      Set(value As String)
         m_Width = value
      End Set
   End Property

   Private m_Height As String
   Public Property Height As String
      Get
         Return m_Height
      End Get
      Set(value As String)
         m_Height = value
      End Set
   End Property

   Private m_OffsetX As String
   Public Property OffsetX As String
      Get
         Return m_OffsetX
      End Get
      Set(value As String)
         m_OffsetX = value
      End Set
   End Property

   Private m_OffsetY As String
   Public Property OffsetY As String
      Get
         Return m_OffsetY
      End Get
      Set(value As String)
         m_OffsetY = value
      End Set
   End Property

   Private m_Kerf As String
   Public Property Kerf As String
      Get
         Return m_Kerf
      End Get
      Set(value As String)
         m_Kerf = value
      End Set
   End Property

   'Private m_MaterialList As List(Of Material)
   'Public ReadOnly Property MaterialList As List(Of Material)
   '   Get
   '      Return m_MaterialList
   '   End Get
   'End Property

   'Private m_SelMaterial As Material
   'Public Property SelMaterial As Material
   '   Get
   '      Return m_SelMaterial
   '   End Get
   '   Set(value As Material)
   '      m_SelMaterial = value
   '   End Set
   'End Property

   Private m_AddPoint As Boolean
   Public Property AddPoint As Boolean
      Get
         Return m_AddPoint
      End Get
      Set(value As Boolean)
         If value <> m_AddPoint Then
            m_AddPoint = value
            If value Then

               NotifyPropertyChanged("AddPoint")
            End If
         End If
      End Set
   End Property

   Private m_RemovePoint As Boolean
   Public Property RemovePoint As Boolean
      Get
         Return m_RemovePoint
      End Get
      Set(value As Boolean)
         If value <> m_RemovePoint Then
            m_RemovePoint = value
            If value Then

               NotifyPropertyChanged("RemovePoint")
            End If
         End If
      End Set
   End Property

   Private m_PointsVisibility As Boolean
   Public Property PointsVisibility As Boolean
      Get
         Return m_PointsVisibility
      End Get
      Set(value As Boolean)
         If value <> m_PointsVisibility Then
            m_PointsVisibility = value
            If value Then

               NotifyPropertyChanged("PointsVisibility")
            End If
         End If
      End Set
   End Property

   Private m_NewDA As Boolean
   Public Property NewDA As Boolean
      Get
         Return m_NewDA
      End Get
      Set(value As Boolean)
         If value <> m_NewDA Then
            m_NewDA = value
            If value Then

               NotifyPropertyChanged("NewDA")
            End If
         End If
      End Set
   End Property

   Private m_DeleteDA As Boolean
   Public Property DleteDA As Boolean
      Get
         Return m_DeleteDA
      End Get
      Set(value As Boolean)
         If value <> m_DeleteDA Then
            m_DeleteDA = value
            If value Then

               NotifyPropertyChanged("DleteDA")
            End If
         End If
      End Set
   End Property

      Private m_DAVisibility As Boolean
   Public Property DAVisibility As Boolean
      Get
         Return m_DAVisibility
      End Get
      Set(value As Boolean)
         If value <> m_DAVisibility Then
            m_DAVisibility = value
            If value Then

               NotifyPropertyChanged("DAVisibility")
            End If
         End If
      End Set
   End Property

#Region "Messages"

   Public ReadOnly Property OutlineMsg As String
      Get
         'Return EgtMsg(MSG_GRIDVIEWPANEL + 2)
      End Get
   End Property

   Public ReadOnly Property DamagedAreaMsg As String
      Get
         'Return EgtMsg(MSG_GRIDVIEWPANEL + 3)
      End Get
   End Property

   Public ReadOnly Property LengthMsg As String
      Get
         'Return EgtMsg(MSG_GRIDVIEWPANEL + 3)
      End Get
   End Property

   Public ReadOnly Property WidthMsg As String
      Get
         'Return EgtMsg(MSG_GRIDVIEWPANEL + 3)
      End Get
   End Property

   Public ReadOnly Property HeightMsg As String
      Get
         'Return EgtMsg(MSG_GRIDVIEWPANEL + 3)
      End Get
   End Property

   Public ReadOnly Property OffsetXMsg As String
      Get
         'Return EgtMsg(MSG_GRIDVIEWPANEL + 3)
      End Get
   End Property

   Public ReadOnly Property OffsetYMsg As String
      Get
         'Return EgtMsg(MSG_GRIDVIEWPANEL + 3)
      End Get
   End Property

   Public ReadOnly Property KerfMsg As String
      Get
         'Return EgtMsg(MSG_GRIDVIEWPANEL + 3)
      End Get
   End Property

   Public ReadOnly Property PointsMsg As String
      Get
         'Return EgtMsg(MSG_GRIDVIEWPANEL + 3)
      End Get
   End Property

   Public ReadOnly Property AddMsg As String
      Get
         'Return EgtMsg(MSG_GRIDVIEWPANEL + 3)
      End Get
   End Property

   Public ReadOnly Property RemoveMsg As String
      Get
         'Return EgtMsg(MSG_GRIDVIEWPANEL + 3)
      End Get
   End Property

   Public ReadOnly Property ClosePathMsg As String
      Get
         'Return EgtMsg(MSG_GRIDVIEWPANEL + 3)
      End Get
   End Property

   Public ReadOnly Property NewMsg As String
      Get
         'Return EgtMsg(MSG_GRIDVIEWPANEL + 3)
      End Get
   End Property

   Public ReadOnly Property DeleteMsg As String
      Get
         'Return EgtMsg(MSG_GRIDVIEWPANEL + 3)
      End Get
   End Property

   Public ReadOnly Property ConfirmPhotoMsg As String
      Get
         'Return EgtMsg(MSG_GRIDVIEWPANEL + 3)
      End Get
   End Property

#End Region    ' Messages

#Region "ToolTip"

   Public ReadOnly Property PhotoToolTip As String
      Get
         'Return EgtMsg(MSG_GRIDVIEWPANEL + 1)
      End Get
   End Property

#End Region    ' ToolTip

   ' Definizione comandi
   Private m_cmdClosePath As ICommand
   Private m_cmdPhoto As ICommand
   Private m_cmdConfirmPhoto As ICommand

#End Region    ' FIELDS & PROPERTIES

#Region "CONSTRUCTOR"

   Sub New()
      ' Creo riferimento a questa classe in OmagOFFICEMap
      OmagOFFICEMap.SetRefRawPartTabVM(Me)
      ' Aggiungo voci alla lista di tipi di definizione grezzo
      m_TypeList.Add("Rettangolo")
      m_TypeList.Add("Per punti")
      'NotifyPropertyChanged("TypeList")
   End Sub

#End Region    ' CONSTRUCTOR

#Region "COMMANDS"

#Region "ClosePathCommand"

   Public ReadOnly Property ClosePathCommand As ICommand
      Get
         If m_cmdClosePath Is Nothing Then
            m_cmdClosePath = New Command(AddressOf ClosePath)
         End If
         Return m_cmdClosePath
      End Get
   End Property

   Public Sub ClosePath(ByVal param As Object)

   End Sub

#End Region ' ClosePathCommand

#Region "PhotoCommand"

   Public ReadOnly Property PhotoCommand As ICommand
      Get
         If m_cmdPhoto Is Nothing Then
            m_cmdPhoto = New Command(AddressOf Photo)
         End If
         Return m_cmdPhoto
      End Get
   End Property

   Public Sub Photo(ByVal param As Object)

   End Sub

#End Region ' PhotoCommand

#Region "ConfirmPhotoCommand"

   Public ReadOnly Property ConfirmPhotoCommand As ICommand
      Get
         If m_cmdConfirmPhoto Is Nothing Then
            m_cmdConfirmPhoto = New Command(AddressOf ConfirmPhoto)
         End If
         Return m_cmdConfirmPhoto
      End Get
   End Property

   Public Sub ConfirmPhoto(ByVal param As Object)

   End Sub

#End Region ' ConfirmPhotoCommand

#End Region    ' COMMANDS

End Class