OmagOFFICE 1.8g1 :

- gestione fotografie con scalatura pixel di MapaScan
- riportate le modifiche di OmagCUT per rotazione grezzi in Split & Move
- correzioni in posizionamento fotografia.

MachOptionWindow/MachOptionWindowVM.vb

@@ -148,6 +148,15 @@ Public Class MachOptionWindowVM
 
 #Region "Milling Param"
 
+   Public Property CornerCuts As Boolean
+      Get
+         Return CurrentMachine.bCornerCuts
+      End Get
+      Set(value As Boolean)
+         CurrentMachine.bCornerCuts = value
+      End Set
+   End Property
+
    Public Property InternalCuts As Boolean
       Get
          Return CurrentMachine.bInternalCuts
@@ -210,9 +219,10 @@ Public Class MachOptionWindowVM
 
    Public Property Washing As Boolean
       Get
-         Return EstCalc.GetWashingFlag
+         Return EstCalc.GetWashingFlag()
       End Get
       Set(value As Boolean)
+         CurrentMachine.bWashing = value
          EstCalc.SetWashingFlag(value)
       End Set
    End Property
@@ -361,6 +371,11 @@ Public Class MachOptionWindowVM
          Return EgtMsg(MSG_ALARMSPAGEUC + 29)
       End Get
    End Property
+   Public ReadOnly Property CornerCutsMsg As String
+      Get
+         Return EgtMsg(MSG_ALARMSPAGEUC + 44)
+      End Get
+   End Property
    Public ReadOnly Property InternalCutsMsg As String
       Get
          Return EgtMsg(MSG_ALARMSPAGEUC + 30)
@@ -424,16 +439,16 @@ Public Class MachOptionWindowVM
 #Region "CONSTRUCTOR"
 
    Sub New()
-      ' Creo riferimento a questa classe in OmagOFFICEMap
-      'OmagOFFICEMap.SetRefMachinePanelVM(Me)
       ' Riempio lista attrezzaggi salvati
       m_ArchivedSetUpList.Add(String.Empty)
-      Dim SetUpFileNames() As String = Directory.GetFiles(CurrentMachine.sMachDir & "\SetUp")
-      For FileIndex = 0 To SetUpFileNames.Count - 1
-         If Path.GetExtension(SetUpFileNames(FileIndex)).ToLower = ".stu" Then
-            m_ArchivedSetUpList.Add(Path.GetFileNameWithoutExtension(SetUpFileNames(FileIndex)))
-         End If
-      Next
+      If Directory.Exists(CurrentMachine.sMachDir & "\SetUp") Then
+         Dim SetUpFileNames() As String = Directory.GetFiles(CurrentMachine.sMachDir & "\SetUp")
+         For FileIndex = 0 To SetUpFileNames.Count - 1
+            If Path.GetExtension(SetUpFileNames(FileIndex)).ToLower = ".stu" Then
+               m_ArchivedSetUpList.Add(Path.GetFileNameWithoutExtension(SetUpFileNames(FileIndex)))
+            End If
+         Next
+      End If
       ' Leggo attrezzaggio predefinito
       If EgtUILib.GetPrivateProfileString(S_SETUP, K_DEFAULT, "", m_sSelectedDefaultSetUp, CurrentMachine.sMachIniFile) <= 0 Then
          SelectedDefaultSetUp = Nothing