OmagOFFICE 2.7j2 :

- correzioni per spostamento pezzi tra tavole con e senza rotazioni (per immagine lastra).

SelectTableWindow/SelectTableWindowVM.vb

@@ -6,11 +6,6 @@ Public Class SelectTableWindowVM
 
 #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
@@ -23,6 +18,16 @@ Public Class SelectTableWindowVM
       End Set
    End Property
 
+   Private m_Table4_Visibility As Visibility
+   Public Property Table4_Visibility As Visibility
+      Get
+         Return m_Table4_Visibility
+      End Get
+      Set(value As Visibility)
+         m_Table4_Visibility = value
+      End Set
+   End Property
+
 #Region "Messages"
 
    Public ReadOnly Property Title As String
@@ -46,13 +51,20 @@ Public Class SelectTableWindowVM
 
 #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
+   Sub New(nTableNum As Integer)
+      Select nTableNum 
+         Case 2
+            m_Table3_Visibility = Visibility.Collapsed
+            m_Table4_Visibility = Visibility.Collapsed
+         Case 3
+            m_Table3_Visibility = Visibility.Visible
+            m_Table4_Visibility = Visibility.Collapsed
+         Case 4
+            m_Table3_Visibility = Visibility.Visible
+            m_Table4_Visibility = Visibility.Visible
+      End Select
       NotifyPropertyChanged("Table3_Visibility")
+      NotifyPropertyChanged("Table4_Visibility")
    End Sub
 
 #End Region    ' CONSTRUCTOR