diff --git a/CompoTrfDataWindow/CompoTrfDataWindowV.xaml b/CompoTrfDataWindow/CompoTrfDataWindowV.xaml new file mode 100644 index 0000000..91f1590 --- /dev/null +++ b/CompoTrfDataWindow/CompoTrfDataWindowV.xaml @@ -0,0 +1,64 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + diff --git a/CompoTrfDataWindow/CompoTrfDataWindowV.xaml.vb b/CompoTrfDataWindow/CompoTrfDataWindowV.xaml.vb new file mode 100644 index 0000000..c799d10 --- /dev/null +++ b/CompoTrfDataWindow/CompoTrfDataWindowV.xaml.vb @@ -0,0 +1,22 @@ +Public Class CompoTrfDataWindowV + + Private m_CompoTrfDataWindowVM As CompoTrfDataWindowVM + + Sub New(Owner As Window, CompoTrfDataWindowVM As CompoTrfDataWindowVM) + MyBase.New(Owner) + ' This call is required by the designer. + InitializeComponent() + Me.DataContext = CompoTrfDataWindowVM + ' Assegno al riferimento locale al VM il VM preso dal DataContext + m_CompoTrfDataWindowVM = CompoTrfDataWindowVM + End Sub + + Private Sub OkBtn_Click(sender As Object, e As RoutedEventArgs) Handles OkBtn.Click + DialogResult = True + End Sub + + Private Sub Cancel_Click(sender As Object, e As RoutedEventArgs) Handles CancelBtn.Click + DialogResult = False + End Sub + +End Class diff --git a/CompoTrfDataWindow/CompoTrfDataWindowVM.vb b/CompoTrfDataWindow/CompoTrfDataWindowVM.vb new file mode 100644 index 0000000..56b888f --- /dev/null +++ b/CompoTrfDataWindow/CompoTrfDataWindowVM.vb @@ -0,0 +1,127 @@ +Imports EgtUILib + +Public Class CompoTrfDataWindowVM + +#Region "FIELDS & PROPERTIES" + + Private m_OrdCode As String + Public Property OrdCode As String + Get + Return m_OrdCode + End Get + Set(value As String) + m_OrdCode = value + End Set + End Property + + Private m_OrdDesc As String + Public Property OrdDesc As String + Get + Return m_OrdDesc + End Get + Set(value As String) + m_OrdDesc = value + End Set + End Property + + Private m_MatCode As String + Public Property MatCode As String + Get + Return m_MatCode + End Get + Set(value As String) + m_MatCode = value + End Set + End Property + + Private m_SurfCode As String + Public Property SurfCode As String + Get + Return m_SurfCode + End Get + Set(value As String) + m_SurfCode = value + End Set + End Property + + Private m_Thickness As Double + Public Property Thickness As Double + Get + Return m_Thickness + End Get + Set(value As Double) + m_Thickness = value + End Set + End Property + +#Region "Messages" + + Public ReadOnly Property TitleMsg As String + Get + Return EgtMsg(MSG_DRAWPAGEUC + 19) + End Get + End Property + + Public ReadOnly Property OrdCodeMsg As String + Get + Return EgtMsg(MSG_DRAWPAGEUC + 10) + End Get + End Property + + Public ReadOnly Property OrdDescMsg As String + Get + Return EgtMsg(MSG_DRAWPAGEUC + 11) + End Get + End Property + + Public ReadOnly Property MatCodeMsg As String + Get + Return EgtMsg(MSG_DRAWPAGEUC + 12) + End Get + End Property + + Public ReadOnly Property SurfCodeMsg As String + Get + Return EgtMsg(MSG_DRAWPAGEUC + 13) + End Get + End Property + + Public ReadOnly Property ThicknessMsg As String + Get + Return EgtMsg(MSG_DRAWPAGEUC + 14) + End Get + End Property + +#End Region ' Messages + +#End Region 'FIELDS & PROPERTIES + +#Region "CONSTRUCTOR" + + Sub New() + + End Sub + +#End Region ' CONSTRUCTOR + +#Region "METHODS" + + Friend Sub SetData(sOrdCode As String, sOrdDesc As String, sMatCode As String, sSurfCode As String, dTh As Double) + OrdCode = sOrdCode + OrdDesc = sOrdDesc + MatCode = sMatCode + SurfCode = sSurfCode + Thickness = LenToString(dTh, 2) + End Sub + + Friend Sub GetData(ByRef sOrdCode As String, ByRef sOrdDesc As String, ByRef sMatCode As String, ByRef sSurfCode As String, ByRef dTh As Double) + sOrdCode = OrdCode + sOrdDesc = OrdDesc + sMatCode = MatCode + sSurfCode = SurfCode + StringToLen(Thickness, dTh) + End Sub + +#End Region + +End Class diff --git a/CompoWindow/CompoListPage/CompoListPageV.xaml b/CompoWindow/CompoListPage/CompoListPageV.xaml index 5601f45..4161803 100644 --- a/CompoWindow/CompoListPage/CompoListPageV.xaml +++ b/CompoWindow/CompoListPage/CompoListPageV.xaml @@ -16,7 +16,7 @@ IsChecked="{Binding Drip_IsChecked}" Style="{StaticResource CompoWindow_ToggleButton}" Margin="2.5,0,0,0" - IsEnabled="False"/> + IsEnabled="True"/> +