Emmanuele Sassi
a4a48f3c3b
- Abilitato bottone edit FreeContour solo su feature attive - Implementazione blocco interfaccia durante modifica FreeContour
106 lines
2.7 KiB
VB.net
106 lines
2.7 KiB
VB.net
Imports System.Collections.ObjectModel
|
|
Imports EgtBEAMWALL.Core
|
|
Imports EgtUILib
|
|
Imports EgtWPFLib5
|
|
|
|
Public Class QParameterListVM
|
|
Inherits VMBase
|
|
|
|
#Region "FIELDS & PROPERTIES"
|
|
|
|
Private m_colQParam_Value As EgtDataGridColumn
|
|
Public ReadOnly Property colQParam_Value As EgtDataGridColumn
|
|
Get
|
|
Return m_colQParam_Value
|
|
End Get
|
|
End Property
|
|
|
|
Private m_colQParam_Custom As EgtDataGridColumn
|
|
Public ReadOnly Property colQParam_Custom As EgtDataGridColumn
|
|
Get
|
|
Return m_colQParam_Custom
|
|
End Get
|
|
End Property
|
|
|
|
Private m_QParameterListColumns As New ObservableCollection(Of EgtDataGridColumn)
|
|
Public Property QParameterListColumns As ObservableCollection(Of EgtDataGridColumn)
|
|
Get
|
|
Return m_QParameterListColumns
|
|
End Get
|
|
Set(value As ObservableCollection(Of EgtDataGridColumn))
|
|
m_QParameterListColumns = value
|
|
End Set
|
|
End Property
|
|
|
|
Private m_QParameterList_IsEnabled As Boolean = True
|
|
Public Property QParameterList_IsEnabled As Boolean
|
|
Get
|
|
Return m_QParameterList_IsEnabled
|
|
End Get
|
|
Set(value As Boolean)
|
|
m_QParameterList_IsEnabled = value
|
|
End Set
|
|
End Property
|
|
|
|
#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
|
|
|
|
#End Region ' Messages
|
|
|
|
#End Region ' FIELDS & PROPERTIES
|
|
|
|
#Region "CONSTRUCTOR"
|
|
|
|
Sub New()
|
|
' Aggiungo riferimento a Map
|
|
Map.SetRefQParameterListVM(Me)
|
|
' carico le colonne della datagrid
|
|
GetPrivateProfileColumns(S_PARAMETERLIST_Q, QParameterListColumns)
|
|
' recupero riferimento a colonna Value e Custom
|
|
m_colQParam_Value = QParameterListColumns.FirstOrDefault(Function(x) x.Name = COL_VALUE)
|
|
m_colQParam_Custom = QParameterListColumns.FirstOrDefault(Function(x) x.Name = COL_CUSTOM)
|
|
End Sub
|
|
|
|
#End Region ' CONSTRUCTOR
|
|
|
|
Friend Sub SetQParameterListIsEnabled(bIsEnabled As Boolean)
|
|
m_QParameterList_IsEnabled = bIsEnabled
|
|
NotifyPropertyChanged(NameOf(QParameterList_IsEnabled))
|
|
End Sub
|
|
|
|
End Class
|