OmagCUT :
- inibita la generazione CN in simulazione se versione ufficio.
This commit is contained in:
@@ -77,7 +77,7 @@ Public Class SimulationPageUC
|
||||
End If
|
||||
' Pulsante Play
|
||||
PlayPauseImage.Source = New System.Windows.Media.Imaging.BitmapImage(New Uri("/Resources/Play.png", UriKind.Relative))
|
||||
' abilito la visualizzazione del pulsante per la sola generazione del codice CN
|
||||
' abilito la visualizzazione del pulsante per la generazione del codice CN (se previsto)
|
||||
If GetPrivateProfileInt(S_GENERAL, K_GENERATECN, 0, m_MainWindow.GetIniFile()) <> 0 Then
|
||||
GenerateCN_Btn.Visibility = Visibility.Visible
|
||||
Else
|
||||
@@ -569,15 +569,19 @@ Public Class SimulationPageUC
|
||||
Private Sub GenerateCN_Click(sender As Object, e As RoutedEventArgs)
|
||||
' Se il bottone Shift è premuto apro il file CadCut1 nel programma NotePad
|
||||
Dim IsPressedShiftKey As Boolean = False
|
||||
If Keyboard.Modifiers And ModifierKeys.Shift Then
|
||||
IsPressedShiftKey = True
|
||||
End If
|
||||
If Keyboard.Modifiers And ModifierKeys.Shift Then IsPressedShiftKey = True
|
||||
|
||||
' Eventualmente fermo la simulazione
|
||||
m_nStatus = MCH_SIM_ST.UI_STOP
|
||||
m_bPlay = False
|
||||
PlayPauseBtn_Click(Nothing, Nothing)
|
||||
|
||||
' Se versione ufficio non genero
|
||||
If m_MainWindow.GetKeyOption(MainWindow.KEY_OPT.OFFICE_TYPE) Then
|
||||
m_CurrProjPage.SetWarningMessage("Office Version")
|
||||
Return
|
||||
End If
|
||||
|
||||
EgtSetCurrentContext(m_CurrProjPage.CurrentProjectScene.GetCtx())
|
||||
' Inserisco indice di progetto
|
||||
m_CurrProjPage.SetProjectIndexFlag()
|
||||
|
||||
Reference in New Issue
Block a user