egtbeamwall/EgtBEAMWALL.Optimizer/ItemParamList/PParameterListVM.vb

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

Public Class PParameterListVM
   Inherits VMBase

#Region "FIELDS & PROPERTIES"

   Private m_colPParam_Value As EgwWPFBaseLib.ColumnLayout
   Public ReadOnly Property colPParam_Value As EgwWPFBaseLib.ColumnLayout
      Get
         Return m_colPParam_Value
      End Get
   End Property

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

   Private m_PParameterList_IsEnabled As Boolean = True
   Public Property PParameterList_IsEnabled As Boolean
      Get
         Return m_PParameterList_IsEnabled
      End Get
      Set(value As Boolean)
         m_PParameterList_IsEnabled = value
      End Set
   End Property

   Private m_sCurrDraw As String
   Public ReadOnly Property sCurrDraw As String
      Get
         Return m_sCurrDraw
      End Get
   End Property
   Friend Sub SetCurrDraw(sCurrDraw As String)
      m_sCurrDraw = sCurrDraw
      NotifyPropertyChanged(NameOf(sCurrDraw))
   End Sub

#Region "Messages"

   Public ReadOnly Property Custom_Msg As String
      Get
         Return EgtMsg(61801)
      End Get
   End Property

   Public ReadOnly Property NAM_Msg As String
      Get
         Return EgtMsg(61808)
      End Get
   End Property

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

   Public ReadOnly Property Value_Msg As String
      Get
         Return EgtMsg(61615)
      End Get
   End Property

   Public ReadOnly Property Min_Msg As String
      Get
         Return EgtMsg(61616)
      End Get
   End Property
   Public ReadOnly Property Max_Msg As String
      Get
         Return EgtMsg(61617)
      End Get
   End Property

   Public ReadOnly Property Ok_Msg As String
      Get
         Return EgtMsg(61761)
      End Get
   End Property

   Public ReadOnly Property Cancel_Msg_Msg As String
      Get
         Return EgtMsg(61763)
      End Get
   End Property

#End Region    ' Messages

   ' Definizione Comandi
   Private m_cmdOk As ICommand
   Private m_cmdCancel As ICommand

#End Region    ' FIELDS & PROPERTIES

#Region "CONSTRUCTOR"

   Sub New()
      ' Aggiungo riferimento a Map
      Map.SetRefPParameterListVM(Me)

      ' carico le colonne della datagrid
      EgwWPFBaseLib.EgwDataGrid.ReadColumnLayout(DataGridColumnsIniFile.m_sDataGridColumnsIniFile, S_PARAMETERLIST_P, PParameterListColumns)

      ' recupero riferimento a colonna Value
      m_colPParam_Value = PParameterListColumns.FirstOrDefault(Function(x) x.Key = COL_VALUE)
   End Sub

#End Region    ' CONSTRUCTOR

#Region "METHODS"

   Friend Sub SetPParameterListIsEnabled(bIsEnabled As Boolean)
      m_PParameterList_IsEnabled = bIsEnabled
      NotifyPropertyChanged(NameOf(PParameterList_IsEnabled))
   End Sub

#End Region    ' Methods

#Region "COMMANDS"

#Region "Ok_Command"

   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()
      Map.refProjectVM.BTLStructureVM.SelBTLPart.SelBTLFeatureVM.ResetCalcFeature()
      Map.refProjectVM.BTLStructureVM.SelBTLPart.ResetCalcPart()
      Map.refForcedStrategyPanelVM.ForcedStrategy()
      Map.refProjectVM.SetRawPartManagerVisibility(True)
      Map.refProjectVM.SetStrategyManagerVisibility(False)
      Map.refProjectVM.SetSelManagerTab(ProjectVM.StrategyManagerTab.RAWPARTMANAGER)
      Map.refProjectVM.SetSelFeatureManagerTab(ProjectVM.FeatureManagerTab.FEATURERAWPARTMANAGER)
      ' Abilito LeftPanel
      Map.refProjectVM.SetLeftPanel_IsEnabled(True)
      Map.refProjectVM.SetLeftPanel_Opacity(1)
   End Sub

#End Region ' Ok_Command

#Region "Cancel_Command"

   Public ReadOnly Property Cancel_Command As ICommand
      Get
         If m_cmdCancel Is Nothing Then
            m_cmdCancel = New Command(AddressOf Cancel)
         End If
         Return m_cmdCancel
      End Get
   End Property

   Public Sub Cancel()
      Map.refProjectVM.SetRawPartManagerVisibility(True)
      Map.refProjectVM.SetStrategyManagerVisibility(False)
      Map.refProjectVM.SetSelManagerTab(ProjectVM.StrategyManagerTab.RAWPARTMANAGER)
      Map.refProjectVM.SetSelFeatureManagerTab(ProjectVM.FeatureManagerTab.FEATURERAWPARTMANAGER)
      ' Abilito LeftPanel
      Map.refProjectVM.SetLeftPanel_IsEnabled(True)
      Map.refProjectVM.SetLeftPanel_Opacity(1)
   End Sub

#End Region ' Cancel_Command

#End Region    ' Commands

End Class