Effector.Plugin.StoneCut 3.1.5.7:

- primo rilascio dopo prove su macchina
2026-05-05 13:19:32 +02:00
parent 4ecfc1c6dc
commit 5ce2c38baa
78 changed files with 8394 additions and 0 deletions
@@ -0,0 +1,66 @@
+Public Class MultipleCopyWndVM
+   Inherits VMBase
+
+   Friend Event m_CloseWindow(bDialogResult As Boolean)
+
+   Private m_nCopyNumber As Integer
+   Public ReadOnly Property nCopyNumber As Integer
+      Get
+         Return m_nCopyNumber
+      End Get
+   End Property
+   Public Property sCopyNumber As String
+      Get
+         Return m_nCopyNumber.ToString()
+      End Get
+      Set(value As String)
+         If Not Integer.TryParse(value, m_nCopyNumber) Then
+            MessageBox.Show("Valore non impostabile come quantita' di porte!", "Errore!", MessageBoxButton.OK, MessageBoxImage.Error)
+            NotifyPropertyChanged(sCopyNumber)
+         End If
+      End Set
+   End Property
+
+   ' Definizione comandi
+   Private m_cmdOk As ICommand
+   Private m_cmdCancel As ICommand
+
+#Region "COMMANDS"
+
+#Region "Ok"
+
+   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()
+      If m_nCopyNumber > 0 Then RaiseEvent m_CloseWindow(True)
+   End Sub
+
+#End Region ' Ok
+
+#Region "Cancel"
+
+   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()
+      RaiseEvent m_CloseWindow(False)
+   End Sub
+
+#End Region ' Cancel
+
+#End Region    ' COMMANDS
+
+End Class