From e9ff1c198bb3c89b906bad87492fa26f4a735db2 Mon Sep 17 00:00:00 2001 From: DarioS Date: Tue, 17 May 2022 08:27:56 +0200 Subject: [PATCH] OmagOFFICE 2.4e3 : - modifiche per prima versione con chiave di rete. --- Constants/ConstIni.vb | 1 + MainWindow/MainWindowM.vb | 2 ++ My Project/AssemblyInfo.vb | 4 ++-- 3 files changed, 5 insertions(+), 2 deletions(-) diff --git a/Constants/ConstIni.vb b/Constants/ConstIni.vb index dcef23e..14498b9 100644 --- a/Constants/ConstIni.vb +++ b/Constants/ConstIni.vb @@ -18,6 +18,7 @@ Module ConstIni Public Const S_GENERAL As String = "General" Public Const K_DEBUG As String = "Debug" Public Const K_LICENCE As String = "Licence" + Public Const K_NETKEY As String = "NetKey" Public Const K_USERLEVEL As String = "UserLevel" Public Const K_MAXINST As String = "MaxInstances" Public Const K_INSTANCES As String = "Instances" diff --git a/MainWindow/MainWindowM.vb b/MainWindow/MainWindowM.vb index ff0f890..00ed0a4 100644 --- a/MainWindow/MainWindowM.vb +++ b/MainWindow/MainWindowM.vb @@ -192,6 +192,8 @@ Public Class MainWindowM Dim sNestKey As String = "" EgtUILib.GetPrivateProfileString( S_LICENCE, K_NESTKEY, "", sNestKey, sLicFile) EgtSetNestKey( sNestKey) + Dim bNetHwKey As Boolean = ( GetMainPrivateProfileInt(S_GENERAL, K_NETKEY, 0) = 1) + EgtSetNetHwKey( bNetHwKey) ' Verifico abilitazione nesting automatico m_bAutoNestOption = Not String.IsNullOrWhiteSpace( sNestKey) ' Recupero livello e opzioni della chiave diff --git a/My Project/AssemblyInfo.vb b/My Project/AssemblyInfo.vb index a1326a2..6ac1cab 100644 --- a/My Project/AssemblyInfo.vb +++ b/My Project/AssemblyInfo.vb @@ -69,6 +69,6 @@ Imports System.Windows ' by using the '*' as shown below: ' - - + +