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 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +