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

Public Class FeatureInPartInRawPartListVM
   Inherits VMBase

#Region "FIELDS & PROPERTIES"

   Private m_colFeatureInPartInRawPart_Redo As EgwWPFBaseLib.ColumnLayout
   Public ReadOnly Property colFeatureInPartInRawPart_Redo As EgwWPFBaseLib.ColumnLayout
      Get
         Return m_colFeatureInPartInRawPart_Redo
      End Get
   End Property

   Private m_FeatureInPartInRawPartColumns As New ObservableCollection(Of EgwWPFBaseLib.ColumnLayout)
   Public Property FeatureInPartInRawPartColumns As ObservableCollection(Of EgwWPFBaseLib.ColumnLayout)
      Get
         Return m_FeatureInPartInRawPartColumns
      End Get
      Set(value As ObservableCollection(Of EgwWPFBaseLib.ColumnLayout))
         m_FeatureInPartInRawPartColumns = value
      End Set
   End Property

   Private m_FeatureList_Visibility As Visibility
   Public ReadOnly Property FeatureList_Visibility As Visibility
      Get
         Return m_FeatureList_Visibility
      End Get
   End Property

#Region "Messages"

   Public ReadOnly Property Description_Msg As String
      Get
         Return EgtMsg(61603)
      End Get
   End Property

   Public ReadOnly Property DO_Msg As String
      Get
         Return EgtMsg(61610)
      End Get
   End Property

#End Region    ' Messages

#End Region    ' FIELDS & PROPERTIES

#Region "CONSTRUCTOR"

   Sub New()
      ' creo riferimento in Map
      Map.SetRefFeatureInPartInRawPartListVM(Me)
      ' carico le colonne della datagrid
      EgwWPFBaseLib.EgwDataGrid.ReadColumnLayout(DataGridColumnsIniFile.m_sDataGridColumnsIniFile, S_FEATUREINPARTINRAWPARTLIST_SUPERVISOR, FeatureInPartInRawPartColumns)
      ' recupero riferimento a colonna Redo
      m_colFeatureInPartInRawPart_Redo = FeatureInPartInRawPartColumns.FirstOrDefault(Function(x) x.Key = COL_REDO)
   End Sub

#End Region    ' CONSTRUCTOR

#Region "METHODS"

   Sub SetFeatureListVisibility(bVisible As Boolean)
      m_FeatureList_Visibility = If(bVisible, Visibility.Visible, Visibility.Collapsed)
      NotifyPropertyChanged(NameOf(FeatureList_Visibility))
   End Sub

#End Region    ' METHODS

End Class