Nicola Pievani
144 lines
3.7 KiB
VB.net
144 lines
3.7 KiB
VB.net
'Imports EgtWPFLib5
|
|
'Imports EgtUILib
|
|
Imports System.Collections.ObjectModel
|
|
Imports System.IO
|
|
Imports System.ComponentModel
|
|
|
|
Public Class PropertyItem
|
|
Implements INotifyPropertyChanged
|
|
|
|
Private m_GraphicName As String
|
|
Public Property GraphicName As String
|
|
Get
|
|
Return m_GraphicName
|
|
End Get
|
|
Set(value As String)
|
|
m_GraphicName = value
|
|
End Set
|
|
End Property
|
|
|
|
Private m_Name As String
|
|
Public Property Name As String
|
|
Get
|
|
Return m_Name
|
|
End Get
|
|
Set(value As String)
|
|
m_Name = value
|
|
End Set
|
|
End Property
|
|
|
|
Private m_IsChecked As Boolean = False
|
|
Public Property IsChecked As Boolean
|
|
Get
|
|
Return m_IsChecked
|
|
End Get
|
|
Set(value As Boolean)
|
|
m_IsChecked = value
|
|
Map.refAssemblyManagerVM.CurrProject.SelAssemblyName.IsModified = True
|
|
NotifyPropertyChanged("IsChecked")
|
|
End Set
|
|
End Property
|
|
|
|
Sub New(sName As String, sGraphicName As String, bIsChecked As Boolean)
|
|
m_Name = sName
|
|
m_GraphicName = sGraphicName
|
|
m_IsChecked = bIsChecked
|
|
End Sub
|
|
|
|
Public Event PropertyChanged As PropertyChangedEventHandler Implements INotifyPropertyChanged.PropertyChanged
|
|
|
|
Public Sub NotifyPropertyChanged(propName As String)
|
|
RaiseEvent PropertyChanged(Me, New PropertyChangedEventArgs(propName))
|
|
End Sub
|
|
|
|
End Class
|
|
|
|
|
|
Public Class MaterialType
|
|
'Inherits VMBase
|
|
Implements INotifyPropertyChanged
|
|
|
|
' nome caricato dalla lista dei messaggi
|
|
Private m_Name As String
|
|
Public Property Name As String
|
|
Get
|
|
Return m_Name
|
|
End Get
|
|
Set(value As String)
|
|
m_Name = value
|
|
End Set
|
|
End Property
|
|
|
|
' nome caricato dalla configurazione
|
|
Private m_NameDDF As String
|
|
Public Property NameDDF As String
|
|
Get
|
|
Return m_NameDDF
|
|
End Get
|
|
Set(value As String)
|
|
m_NameDDF = value
|
|
End Set
|
|
End Property
|
|
|
|
' lista delle proprietà associata al materiale
|
|
Private m_PropertiesList As ObservableCollection(Of PropertyItem)
|
|
Public Property PropertiesList As ObservableCollection(Of PropertyItem)
|
|
Get
|
|
Return m_PropertiesList
|
|
End Get
|
|
Set(value As ObservableCollection(Of PropertyItem))
|
|
m_PropertiesList = value
|
|
End Set
|
|
End Property
|
|
|
|
Sub New(sName As String, sGraphicName As String)
|
|
m_NameDDF = sName
|
|
m_Name = sGraphicName
|
|
End Sub
|
|
|
|
Public Event PropertyChanged As PropertyChangedEventHandler Implements INotifyPropertyChanged.PropertyChanged
|
|
|
|
Public Sub NotifyPropertyChanged(propName As String)
|
|
RaiseEvent PropertyChanged(Me, New PropertyChangedEventArgs(propName))
|
|
End Sub
|
|
|
|
End Class
|
|
|
|
Public Class TopShape
|
|
'Inherits VMBase
|
|
Implements INotifyPropertyChanged
|
|
|
|
' nome caricato dalla lista dei messaggi
|
|
Private m_Name As String
|
|
Public Property Name As String
|
|
Get
|
|
Return m_Name
|
|
End Get
|
|
Set(value As String)
|
|
m_Name = value
|
|
End Set
|
|
End Property
|
|
|
|
' nome caricato dalla configurazione
|
|
Private m_NameDDF As String
|
|
Public Property NameDDF As String
|
|
Get
|
|
Return m_NameDDF
|
|
End Get
|
|
Set(value As String)
|
|
m_NameDDF = value
|
|
End Set
|
|
End Property
|
|
|
|
Sub New(sGraphicName As String)
|
|
m_Name = sGraphicName
|
|
m_NameDDF = sGraphicName
|
|
End Sub
|
|
|
|
Public Event PropertyChanged As PropertyChangedEventHandler Implements INotifyPropertyChanged.PropertyChanged
|
|
|
|
Public Sub NotifyPropertyChanged(propName As String)
|
|
RaiseEvent PropertyChanged(Me, New PropertyChangedEventArgs(propName))
|
|
End Sub
|
|
|
|
End Class |