OmagOFFICE 1.9a2 :

- aggiunta gestione più tavole con relative sovratavole
- riportata correzione a movimento pezzi con ventose da OmagCUT.

SelectTableWindow/SelectTableWindowVM.vb

@@ -0,0 +1,81 @@
+Imports EgtUILib
+Imports EgtWPFLib5
+
+Public Class SelectTableWindowVM
+   Inherits VMBase
+
+#Region "FIELDS & PROPERTIES"
+
+   Public Enum TableNumOpt As Integer
+      TWO = 2
+      THREE = 3
+   End Enum
+
+   Friend Event m_CloseWindow(DialogResult As Integer)
+
+   Private m_Table3_Visibility As Visibility
+   Public Property Table3_Visibility As Visibility
+      Get
+         Return m_Table3_Visibility
+      End Get
+      Set(value As Visibility)
+         m_Table3_Visibility = value
+      End Set
+   End Property
+
+#Region "Messages"
+
+   Public ReadOnly Property Title As String
+      Get
+         Return EgtMsg(91123)      'Tavola
+      End Get
+   End Property
+
+   Public ReadOnly Property WndMsg As String
+      Get
+         Return EgtMsg(91111)      'Tavola da usare ?
+      End Get
+   End Property
+
+#End Region
+
+   ' Definizione comandi
+   Private m_cmdTable As ICommand
+
+#End Region    ' FIELDS & PROPERTIES
+
+#Region "CONSTRUCTOR"
+
+   Sub New(nTableNum As TableNumOpt)
+      If nTableNum = TableNumOpt.TWO Then
+         m_Table3_Visibility = Visibility.Collapsed
+      Else
+         m_Table3_Visibility = Visibility.Visible
+      End If
+      NotifyPropertyChanged("Table3_Visibility")
+   End Sub
+
+#End Region    ' CONSTRUCTOR
+
+#Region "COMMANDS"
+
+#Region "Table"
+
+   Public ReadOnly Property Table_Command As ICommand
+      Get
+         If m_cmdTable Is Nothing Then
+            m_cmdTable = New Command(AddressOf Table)
+         End If
+         Return m_cmdTable
+      End Get
+   End Property
+
+   Public Sub Table(ByVal param As Object)
+      RaiseEvent m_CloseWindow(CInt(param))
+   End Sub
+
+#End Region     ' DrawCommand
+
+#End Region    ' COMMANDS
+
+End Class