Egalware/icarus
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

-ripristinato finestre dialog e messagebox

Browse Source
This commit is contained in:
Demetrio Cassarino
2026-05-14 14:37:42 +02:00
parent 90ec48526b
commit 187394102e
20 changed files with 176 additions and 322 deletions
Download Patch File Download Diff File Expand all files Collapse all files
Icarus/SimulationPanel/SimulationPanelVM.vb
+7 -9
View File
@@ -97,12 +97,10 @@ Public Class SimulationPanelVM
If Not EgtSimInit() OrElse Not EgtSimStart() Then
If EgtGetLastMachMgrErrorId() <> 0 Then
Dim sErr As String = EgtGetLastMachMgrErrorString()
'MessageBox.Show(sErr, EgtMsg(MSG_SIMULATION + 5), MessageBoxButton.OK, MessageBoxImage.Exclamation)
EgtMessageBoxV.Show(Application.Current.MainWindow, sErr, EgtMsg(MSG_SIMULATION + 5), MessageBoxButton.OK, MessageBoxImage.Exclamation)
Else
'MessageBox.Show(EgtMsg(MSG_MESSAGEBOX + 10), EgtMsg(MSG_SIMULATION + 5), MessageBoxButton.OK, MessageBoxImage.Error)
EgtMessageBoxV.Show(Application.Current.MainWindow, EgtMsg(MSG_MESSAGEBOX + 10), EgtMsg(MSG_SIMULATION + 5), MessageBoxButton.OK, MessageBoxImage.Error)
End If
MessageBox.Show(sErr, EgtMsg(MSG_SIMULATION + 5), MessageBoxButton.OK, MessageBoxImage.Exclamation)
Else
MessageBox.Show(EgtMsg(MSG_MESSAGEBOX + 10), EgtMsg(MSG_SIMULATION + 5), MessageBoxButton.OK, MessageBoxImage.Error)
End If
End If
' Imposto stato corrente
MySimul.SetSimulationStatus(MCH_SIM_ST.UI_STOP)
@@ -114,11 +112,11 @@ Public Class SimulationPanelVM
MySimul.StatusMsg = EgtMsg(MSG_SIMULATIONPAGEUC + 14) ' Home
' Gestione check VMill
If GetMainPrivateProfileInt(S_SIMUL, K_VIRTUALADDITIVE, 0) > 0 AndAlso
EgtUILib.GetPrivateProfileInt( S_VMILL, K_VM_ENABLE, 0, CurrentMachine.sMachIniFile) > 0 Then
EgtUILib.GetPrivateProfileInt(S_VMILL, K_VM_ENABLE, 0, CurrentMachine.sMachIniFile) > 0 Then
MySimul.VMill_Visibility = Visibility.Visible
MySimul.VMill_IsEnabled = True
Dim bVal As Boolean
MySimul.SetVMillActive( EgtGetInfo(EgtGetCurrMachGroup(), KEY_MCHGRP_VM, bVal) AndAlso bVal)
MySimul.SetVMillActive(EgtGetInfo(EgtGetCurrMachGroup(), KEY_MCHGRP_VM, bVal) AndAlso bVal)
Else
' Disabilito Vmill, ma inibisco dichiarazione progetto modificato
MySimul.VMill_Visibility = Visibility.Collapsed
@@ -203,7 +201,7 @@ Public Class SimulationPanelVM
Map.refInstrumentPanelVM.SetEdgeAnalysisIsEnabled(True)
End Sub
Friend Sub SimulationExpander_Update_CncData( nFlag As Integer)
Friend Sub SimulationExpander_Update_CncData(nFlag As Integer)
MySimul.Update_CncData(nFlag)
End Sub