diff --git a/Icarus/Constants/ConstGen.vb b/Icarus/Constants/ConstGen.vb index b6752fe..302cb0c 100644 --- a/Icarus/Constants/ConstGen.vb +++ b/Icarus/Constants/ConstGen.vb @@ -21,6 +21,7 @@ Public Module ConstGen ' File con dati di licenza Public Const LIC_FILE_NAME As String = "Icarus.lic" Public Const S_LICENCE As String = "Licence" + Public Const K_LOCKID As String = "LockId" Public Const K_KEY As String = "Key" Public Const K_NESTKEY As String = "NestKey" diff --git a/Icarus/Constants/ConstIni.vb b/Icarus/Constants/ConstIni.vb index c3717ea..6b8b879 100644 --- a/Icarus/Constants/ConstIni.vb +++ b/Icarus/Constants/ConstIni.vb @@ -26,6 +26,7 @@ Public Module ConstIni 'Public Const K_MESSAGES As String = "Messages" 'Public Const K_WINPLACE As String = "WinPlace" 'Public Const K_LASTPROJ As String = "LastProj" + Public Const K_NETKEY As String = "NetKey" Public Const K_LASTNGEDIR As String = "LastNgeDir" Public Const K_LASTIMPDIR As String = "LastImpDir" 'Public Const K_SUPPORT As String = "Support" diff --git a/Icarus/MachiningDb/Machining.vb b/Icarus/MachiningDb/Machining.vb index 9be2e19..b1b2ae1 100644 --- a/Icarus/MachiningDb/Machining.vb +++ b/Icarus/MachiningDb/Machining.vb @@ -46,9 +46,9 @@ Public Class Machining End Enum Public Enum MPAR_INFILL As Integer - NONE = 1 - OFFSET = 2 - ZIGZAG = 3 + NONE = 0 + OFFSET = 16 + ZIGZAG = 17 End Enum Public Enum MPAR_DYNAMIC_MODE As Integer diff --git a/Icarus/MainWindow/MainWindowM.vb b/Icarus/MainWindow/MainWindowM.vb index c05d879..a9241a1 100644 --- a/Icarus/MainWindow/MainWindowM.vb +++ b/Icarus/MainWindow/MainWindowM.vb @@ -75,13 +75,6 @@ Public Class MainWindowM End Get End Property - Private m_bAutoNestOption As Boolean = False - Friend ReadOnly Property AutoNestOption As Boolean - Get - Return m_bAutoNestOption - End Get - End Property - Friend ReadOnly Property sVersion As String Get Return My.Application.Info.Version.Major.ToString() & "." & @@ -189,14 +182,17 @@ Public Class MainWindowM Dim sKey As String = String.Empty EgtUILib.GetPrivateProfileString(S_LICENCE, K_KEY, "", sKey, sLicFile) EgtSetKey(sKey) - Dim sNestKey As String = "" - EgtUILib.GetPrivateProfileString(S_LICENCE, K_NESTKEY, "", sNestKey, sLicFile) - 'EgtSetNestKey(sNestKey) - ' Verifico abilitazione nesting automatico - m_bAutoNestOption = Not String.IsNullOrWhiteSpace(sNestKey) + ' Impostazioni per chiave di rete + Dim bNetKey As Boolean = ( GetMainPrivateProfileInt( S_GENERAL, K_NETKEY, 0) = 1) + EgtSetNetHwKey( bNetKey) + Dim sLockId As String = "" + EgtUILib.GetPrivateProfileString( S_LICENCE, K_LOCKID, "", sLockId, sLicFile) + If Not String.IsNullOrEmpty( sLockId) Then + EgtSetLockId( sLockId) + End If ' Recupero livello e opzioni della chiave - Dim bKey As Boolean = EgtGetKeyLevel(5583, 2505, 1, m_nKeyLevel) And - EgtGetKeyOptions(5583, 2505, 1, m_nKeyOptions) + Dim bKey As Boolean = EgtGetKeyLevel(5583, 2506, 1, m_nKeyLevel) And + EgtGetKeyOptions(5583, 2506, 1, m_nKeyOptions) ' Inizializzazione generale di EgtInterface m_nDebug = GetMainPrivateProfileInt(S_GENERAL, K_DEBUG, 0) m_sLogFile = m_sTempDir & "\" & GENLOG_FILE_NAME.Replace("#", m_nInstance.ToString()) diff --git a/Icarus/My Project/AssemblyInfo.vb b/Icarus/My Project/AssemblyInfo.vb index 3db2b39..bfa4f4c 100644 --- a/Icarus/My Project/AssemblyInfo.vb +++ b/Icarus/My Project/AssemblyInfo.vb @@ -70,5 +70,5 @@ Imports System.Windows ' by using the '*' as shown below: ' - - + +