EgtCAM5 :

- Aggiunta voce SplitArcs nelle MachOptions.
- Aggiunto modulo con parametri utili della finestra Options.
- Piccola miglioria progetto selezione avanzata(scalo le linee sul piano di vista corrente).

OptionsWindow/OptionsViewModel.vb

@@ -7,7 +7,7 @@ Namespace EgtCAM5
 
       Public ReadOnly Property LanguageList As ObservableCollection(Of Language)
          Get
-            Return IniFile.m_LanguageList
+            Return OptionModule.m_LanguageList
          End Get
       End Property
 
@@ -20,11 +20,11 @@ Namespace EgtCAM5
 
       Public Property SelectedLanguage As Language
          Get
-            Return IniFile.m_SelectedLanguage
+            Return OptionModule.m_SelectedLanguage
          End Get
          Set(value As Language)
-            If value IsNot IniFile.m_SelectedLanguage Then
-               IniFile.m_SelectedLanguage = value
+            If value IsNot OptionModule.m_SelectedLanguage Then
+               OptionModule.m_SelectedLanguage = value
                WritePrivateProfileString(S_GENERAL, K_MESSAGES, m_SelectedLanguage.Name)
             End If
          End Set
@@ -32,36 +32,51 @@ Namespace EgtCAM5
 
       Public Property SelectedMillingGeomType As SceneSelModeOpt
          Get
-            Return IniFile.m_SelGeomMilling
+            Return OptionModule.m_SelGeomMilling
          End Get
          Set(value As SceneSelModeOpt)
             If WritePrivateProfileString(S_MACH, K_SELGEOMMILLING, CInt(value).ToString()) Then
-               IniFile.m_SelGeomMilling = value
+               OptionModule.m_SelGeomMilling = value
             End If
          End Set
       End Property
       Public Property SelectedDrillingGeomType As SceneSelModeOpt
          Get
-            Return IniFile.m_SelGeomDrilling
+            Return OptionModule.m_SelGeomDrilling
          End Get
          Set(value As SceneSelModeOpt)
             If WritePrivateProfileString(S_MACH, K_SELGEOMDRILLING, CInt(value).ToString()) Then
-               IniFile.m_SelGeomDrilling = value
+               OptionModule.m_SelGeomDrilling = value
             End If
          End Set
       End Property
       Public Property SelectedSawingGeomType As SceneSelModeOpt
          Get
-            Return IniFile.m_SelGeomSawing
+            Return OptionModule.m_SelGeomSawing
          End Get
          Set(value As SceneSelModeOpt)
             If WritePrivateProfileString(S_MACH, K_SELGEOMSAWING, CInt(value).ToString()) Then
-               IniFile.m_SelGeomSawing = value
+               OptionModule.m_SelGeomSawing = value
             End If
          End Set
       End Property
 
-      Private m_Title As String
+      Public Property NewMachiningIsLastOne As Boolean
+         Get
+            Return m_bNewMachiningIsLastOne
+         End Get
+         Set(value As Boolean)
+            m_bNewMachiningIsLastOne = value
+            WritePrivateProfileString(S_OPTIONS, K_NEWMACHININGISLASTONE, If(value, 1, 0).ToString)
+         End Set
+      End Property
+
+      Public ReadOnly Property NewMachiningPosMsg As String
+         Get
+            Return EgtMsg(MSG_OPTIONPAGE + 7)
+         End Get
+      End Property
+
       Public ReadOnly Property Title As String
          Get
             Return EgtMsg(MSG_MAINWINDOW + 5)