diff --git a/AboutBoxWindow/AboutBoxV.xaml.vb b/AboutBoxWindow/AboutBoxV.xaml.vb
index af3a5a7..cc63c4f 100644
--- a/AboutBoxWindow/AboutBoxV.xaml.vb
+++ b/AboutBoxWindow/AboutBoxV.xaml.vb
@@ -24,7 +24,7 @@ Public Class AboutBoxV
sInfo &= "DataRoot " & Map.refMainWindowVM.MainWindowM.sDataRoot & Environment.NewLine
sInfo &= "LogRoot " & Map.refMainWindowVM.MainWindowM.sLogDir & Environment.NewLine
InfoLbl.Text = sInfo
- ExitBtn.Content = EgtMsg(MSG_MISSINGKEYWD + 4) 'Ok
+ ExitBtn.Content = "Ok"
End Sub
End Class
diff --git a/Constants/ConstMsg.vb b/Constants/ConstMsg.vb
deleted file mode 100644
index f039130..0000000
--- a/Constants/ConstMsg.vb
+++ /dev/null
@@ -1,53 +0,0 @@
-Module ConstMsg
-
- Public Const MSG_SETUPERRORS As Integer = 5000 + 1470
-
- Public Const MSG_MISSINGKEYWD As Integer = 10100
- Public Const MSG_NUMERICKEYBOARDWD As Integer = 10200
- Public Const MSG_MESSAGEBOX As Integer = 15000
-
- Public Const MSG_OMAGCUT As Integer = 90000
- Public Const MSG_GENERAL As Integer = MSG_OMAGCUT
- Public Const MSG_WORKINPROGRESSPAGEUC As Integer = MSG_OMAGCUT + 100
- Public Const MSG_DIRECTCUTPAGEUC As Integer = MSG_OMAGCUT + 200
- Public Const MSG_MANUALAXESMOVEPAGEUC As Integer = MSG_OMAGCUT + 220
- Public Const MSG_CADCUTPAGEUC As Integer = MSG_OMAGCUT + 300
- Public Const MSG_NESTPAGEUC As Integer = MSG_OMAGCUT + 330
- Public Const MSG_SPLITPAGEUC As Integer = MSG_OMAGCUT + 340
- Public Const MSG_MOVERAWPAGEUC As Integer = MSG_OMAGCUT + 360
- Public Const MSG_DRAWPAGEUC As Integer = MSG_OMAGCUT + 380
- Public Const MSG_COMPONENTPAGEUC As Integer = MSG_OMAGCUT + 400
- Public Const MSG_IMPORTPAGEUC As Integer = MSG_OMAGCUT + 450
- Public Const MSG_OPENPAGEUC As Integer = MSG_OMAGCUT + 490
- Public Const MSG_RAWPARTPAGEUC As Integer = MSG_OMAGCUT + 500
- Public Const MSG_CHOOSEMACHININGPAGEUC As Integer = MSG_OMAGCUT + 535
- Public Const MSG_SIMULATIONPAGEUC As Integer = MSG_OMAGCUT + 550
- Public Const MSG_FRAMECUTPAGEUC As Integer = MSG_OMAGCUT + 600
- Public Const MSG_MACHINEPAGEUC As Integer = MSG_OMAGCUT + 700
- Public Const MSG_TOOLSDBPAGEUC As Integer = MSG_OMAGCUT + 720
- Public Const MSG_MACHININGSDBPAGEUC As Integer = MSG_OMAGCUT + 760
- Public Const MSG_COMBOBOXPARAM As Integer = MSG_OMAGCUT + 800
- Public Const MSG_ALARMSPAGEUC As Integer = MSG_OMAGCUT + 900
- Public Const MSG_MACHINECNPAGEUC As Integer = MSG_OMAGCUT + 950
- Public Const MSG_OPTIONSPAGEUC As Integer = MSG_OMAGCUT + 980
- Public Const MSG_EGTMSGBOX As Integer = MSG_OMAGCUT + 1100
- Public Const MSG_CSVPAGEUC As Integer = MSG_OMAGCUT + 1200
-
- Public Const MSG_OMAGOFFICE As Integer = 91400
- Public Const MSG_OPTIONPANEL As Integer = MSG_OMAGOFFICE
- Public Const MSG_MYMACHININGDBWINDOW As Integer = MSG_OMAGOFFICE + 50
- Public Const MSG_TOPCMDBAR As Integer = MSG_OMAGOFFICE + 100
- Public Const MSG_RAWPARTTAB As Integer = MSG_OMAGOFFICE + 150
- Public Const MSG_VEINMATCHING As Integer = MSG_OMAGOFFICE + 200
- Public Const MSG_GENERIC As Integer = MSG_OMAGOFFICE + 250
-
- Public Const MSG_EGTWPFLIB5 As Integer = 30000
- Public Const MSG_TOPCOMMANDBAR As Integer = MSG_EGTWPFLIB5 + 500
- Public Const MSG_GRIDVIEWPANEL As Integer = MSG_EGTWPFLIB5 + 800
- Public Const MSG_TOOLDB As Integer = MSG_EGTWPFLIB5 + 1000
- Public Const MSG_TOOLDBERRORS As Integer = MSG_EGTWPFLIB5 + 1100
- Public Const MSG_MACHININGDB As Integer = MSG_EGTWPFLIB5 + 1200
- Public Const MSG_MACHININGDBERRORS As Integer = MSG_EGTWPFLIB5 + 1400
- Public Const MSG_SIMULATION As Integer = MSG_EGTWPFLIB5 + 1600
-
-End Module
diff --git a/MainWindow/MainWindowM.vb b/MainWindow/MainWindowM.vb
index 3b47eba..78c1f15 100644
--- a/MainWindow/MainWindowM.vb
+++ b/MainWindow/MainWindowM.vb
@@ -143,26 +143,7 @@ Public Class MainWindowM
EgtInit(m_nDebug, m_sLogFile, sLogMsg)
EgtSetTempDir(m_sTempDir)
EgtSetIniFile(IniFile.m_sIniFile)
- ' Leggo direttorio dei messaggi (se manca uso direttorio di configurazione)
- Dim sMsgDir As String = String.Empty
- If GetMainPrivateProfileString(S_GENERAL, K_MESSAGESDIR, "", sMsgDir) = 0 Then
- sMsgDir = m_sConfigDir
- End If
- ' Leggo lingua corrente
- Dim sLanguage As String = String.Empty
- GetMainPrivateProfileString(S_GENERAL, K_MESSAGES, "", sLanguage)
- ' Recupero nome file dei messaggi della lingua corrente
- Dim sMsgName As String = "EgalTechIta.txt"
- Dim nIndex As Integer = 1
- While True
- Dim ReadLanguage As Language = GetMainPrivateProfileLanguage(S_LANGUAGES, K_LANGUAGE & nIndex)
- If IsNothing(ReadLanguage) Then Exit While
- If String.Compare(ReadLanguage.Name, sLanguage, True) = 0 Then
- sMsgName = ReadLanguage.FilePath
- Exit While
- End If
- nIndex += 1
- End While
+ ' Verifiche
If Not bProd Then
If m_nKeyLevel = -1 Or m_nKeyLevel = -2 Then
MessageBox.Show("Missing Protection Key. Insert Dongle and restart the program", "Error", MessageBoxButton.OK, MessageBoxImage.Error)
@@ -171,11 +152,6 @@ Public Class MainWindowM
End If
End
End If
- ' Leggo file messaggi
- Dim sMsgFilePath As String = sMsgDir & "\" & sMsgName
- If Not EgtLoadMessages(sMsgFilePath) Then
- EgtOutLog("Error in EgtLoadMessages")
- End If
' Leggo e imposto livello utilizzatore
m_nUserLevel = Math.Min(m_nKeyLevel, GetMainPrivateProfileInt(S_GENERAL, K_USERLEVEL, 1))
' Info su opzioni chiave
diff --git a/OmagVIEWPlus.vbproj b/OmagVIEWPlus.vbproj
index 4e9b12a..a13a677 100644
--- a/OmagVIEWPlus.vbproj
+++ b/OmagVIEWPlus.vbproj
@@ -12,6 +12,7 @@
v4.0
Custom
Client
+ false
publish\
true
Disk
@@ -24,7 +25,6 @@
true
0
1.0.0.%2a
- false
false
true
@@ -67,15 +67,15 @@
bin\x86\Debug\
- false
+ true
Full
x86
MinimumRecommendedRules.ruleset
true
- true
- true
+ false
+ false
false
@@ -92,6 +92,9 @@
Resources\OmagVIEWPlus.ico
+
+ app.manifest
+
..\..\EgtProg\DllD32\EgtUILib.dll
@@ -129,7 +132,6 @@
-
@@ -196,6 +198,7 @@
Resources.Designer.vb
My.Resources
+
SettingsSingleFileGenerator
Settings.Designer.vb
diff --git a/app.manifest b/app.manifest
new file mode 100644
index 0000000..ce9111f
--- /dev/null
+++ b/app.manifest
@@ -0,0 +1,76 @@
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+