OmagCUT 1.9b4 :

- aggiunta possibilità in DB utensili di visualizzare TC sulle sole lame ( da Ini macchina [Tools] ShowToolChanger=2).

CurrentMachine.vb

@@ -56,7 +56,7 @@ Public Class CurrentMachine
    Private m_bMill As Boolean = False
 
    ' Flag per visualizzazione TcPos e Testa/uscita
-   Private m_bShowToolChanger As Boolean = False
+   Private m_nShowToolChanger As Integer = 0
    Private m_bShowHeadExit As Boolean = False
 
    ' Flag che indicano presenza tipologia lavorazioni (attivo/non attivo)
@@ -284,9 +284,9 @@ Public Class CurrentMachine
       End Get
    End Property
 
-   Friend ReadOnly Property bShowToolChanger As Boolean
+   Friend ReadOnly Property ShowToolChanger As Integer
       Get
-         Return m_bShowToolChanger
+         Return m_nShowToolChanger
       End Get
    End Property
 
@@ -450,7 +450,7 @@ Public Class CurrentMachine
 
    Friend Property dAdditionalTable As Double
       Get
-         Select GetCurrentTable()
+         Select Case GetCurrentTable()
          Case 3
             Return m_dTab3AdditionalTable
          Case 2
@@ -460,7 +460,7 @@ Public Class CurrentMachine
          End Select
       End Get
       Set(value As Double)
-         Select GetCurrentTable()
+         Select Case GetCurrentTable()
          Case 3
             If Math.Abs(value - m_dTab3AdditionalTable) > EPS_SMALL And
                WritePrivateProfileString(S_TABLE, K_TAB3_ADDITIONALTABLE, DoubleToString(value, 3), sMachIniFile) Then
@@ -725,7 +725,7 @@ Public Class CurrentMachine
       m_bMill = (GetPrivateProfileInt(S_TOOLS, K_MILL, 0, sMachIniFile) > 0) And
                 m_MainWindow.GetKeyOption(MainWindow.KEY_OPT.ENABLE_MILL)
       ' Leggo abilitazione visualizzazione TcPos e Head/exit
-      m_bShowToolChanger = (GetPrivateProfileInt(S_TOOLS, K_SHOWTOOLCHANGER, 0, sMachIniFile) > 0)
+      m_nShowToolChanger = GetPrivateProfileInt(S_TOOLS, K_SHOWTOOLCHANGER, 0, sMachIniFile)
       m_bShowHeadExit = (GetPrivateProfileInt(S_TOOLS, K_SHOWHEADEXIT, 0, sMachIniFile) > 0)
       ' Leggo limiti diametro lama per altre operazioni
       m_dMaxSawDiamForVac = GetPrivateProfileDouble(S_TOOLS, K_MAXSAWDIAMFORVAC, 630, sMachIniFile)