Imports EgtUILib
Imports EgtWPFLib5
Imports EgtWPFLib5.MachiningTreeViewItem

Public Class PrepareInputBoxParam
   Friend sTitle As String
   Friend sLabel As String
   Friend sCheckLabel As String
   Friend bShowCombo As Boolean
   Friend bShowBtn As Boolean

   Sub New(ByVal sTitle As String, ByVal sLabel As String, ByVal sCheckLabel As String,
                                 ByVal bShowCombo As Boolean, ByVal bShowBtn As Boolean)
      Me.sTitle = sTitle
      Me.sLabel = sLabel
      Me.sCheckLabel = sCheckLabel
      Me.bShowCombo = bShowCombo
      Me.bShowBtn = bShowBtn
   End Sub

End Class

Public Class AddInputBoxComboParam
   Friend sText As String
   Friend bSelected As Boolean

   Sub New(ByVal sText As String, ByVal bSelected As Boolean)
      Me.sText = sText
      Me.bSelected = bSelected
   End Sub

End Class

Public Class UpdateStatusGridParam
   Friend m_bShowGrid As Boolean
   Friend m_bShowGridFrame As Boolean

   Sub New(ByVal bShowGrid As Boolean, bShowGridFrame As Boolean)
      Me.m_bShowGrid = bShowGrid
      Me.m_bShowGridFrame = bShowGridFrame
   End Sub

End Class

Public Class SaveObjectParam
   Friend nId As Integer
   Friend sDir As String
   Friend nType As NGE

   Sub New(nId As Integer, sDir As String, nType As NGE)
      Me.nId = nId
      Me.sDir = sDir
      Me.nType = nType
   End Sub

End Class

Public Class NewMachOpParam
   Friend bActive As Boolean = False
   Friend SelMachOpId As Integer = GDB_ID.NULL

   Sub New(bActive As Boolean, SelMachOpId As Integer)
      Me.bActive = bActive
      Me.SelMachOpId = SelMachOpId
   End Sub

End Class

Public Class InfoItem
   Inherits VMBase

#Region "FIELDS & PROPERTIES"

   Friend nId As Integer
   ''' <summary>
   ''' Indice lista info note
   ''' </summary>
   Public ReadOnly Property Id As Integer
      Get
         Return Id
      End Get
   End Property

   Friend sKey As String
   ''' <summary>
   ''' Chiave lista info note
   ''' </summary>
   Public ReadOnly Property Key As String
      Get
         Return sKey
      End Get
   End Property

   Friend sValue As String
   ''' <summary>
   ''' Valore lista info note
   ''' </summary>
   Public Property Value As String
      Get
         Return sValue
      End Get
      Set(value As String)
         sValue = value
         NotifyPropertyChanged(NameOf(Value))
      End Set
   End Property

#End Region    ' Fields & Properties

   ' Comandi
   Private m_cmdDoneInfo As ICommand

#Region "CONSTRUCTORS"

   Sub New(nId As Integer, sKey As String, sValue As String)
      Me.nId = nId
      Me.sKey = sKey
      Me.sValue = sValue
   End Sub

#End Region    ' Constructors

#Region "COMMANDS"

#Region "DoneInfoCommand"

   ''' <summary>
   ''' Comando per la conferma modifica o aggiunta nuova informazione
   ''' </summary>
   Public ReadOnly Property DoneInfoCommand As ICommand
      Get
         If m_cmdDoneInfo Is Nothing Then
            m_cmdDoneInfo = New Command(AddressOf DoneInfo)
         End If
         Return m_cmdDoneInfo
      End Get
   End Property

   ''' <summary>
   ''' Conferma modifica o aggiunta nuova informazione
   ''' </summary>
   Public Sub DoneInfo(ByVal param As Object)
      Map.refInputExpanderVM.Done(Me)
   End Sub

#End Region    ' DoneInfoCommand

#End Region    ' Commands

End Class