EgtCAM5 :
- Introdotta modalità solo disegno.
This commit is contained in:
Emmanuele Sassi
@@ -139,11 +139,13 @@ Namespace EgtCAM5
|
||||
' Box di avviso chiave mancante
|
||||
MsgBox(EgtMsg(MSG_MISSINGKEYWD + 2) & vbCrLf & EgtMsg(MSG_MISSINGKEYWD + 3), MsgBoxStyle.OkOnly, EgtMsg(MSG_MISSINGKEYWD + 1))
|
||||
' Chiudo il programma
|
||||
IniFile.m_bFailedRun = True
|
||||
Application.Msn.NotifyColleagues(Application.CLOSEAPPLICATIONCOMMAND)
|
||||
' Verifico abilitazione prodotto
|
||||
ElseIf (IniFile.m_nKeyOptions And KEY_OPT.BASE) = 0 Then
|
||||
MsgBox(EgtMsg(MSG_MISSINGKEYWD + 5), MsgBoxStyle.OkOnly, EgtMsg(MSG_MISSINGKEYWD + 1))
|
||||
' Chiudo il programma
|
||||
IniFile.m_bFailedRun = True
|
||||
Application.Msn.NotifyColleagues(Application.CLOSEAPPLICATIONCOMMAND)
|
||||
Else
|
||||
IniFile.m_ProjectSceneContext = m_ProjectScene.GetCtx
|
||||
@@ -792,18 +794,20 @@ Namespace EgtCAM5
|
||||
|
||||
Private Sub ManageClosingApplication()
|
||||
Application.Msn.Register(Application.CLOSEAPPLICATION, Sub()
|
||||
' Salvo modo di visualizzazione
|
||||
WritePrivateProfileString(S_SCENE, K_SHOWMODE, EgtGetShowMode().ToString)
|
||||
' Salvo stato visualizzazione direzione curve
|
||||
WritePrivateProfileString(S_SCENE, K_CURVEDIR, If(EgtGetShowCurveDirection(), 1, 0).ToString)
|
||||
' Salvo stato visualizzazione griglia
|
||||
WritePrivateProfileString(S_GRID, K_DRAWSHOWGRID, If(IniFile.m_bDrawShowGrid, 1, 0).ToString)
|
||||
WritePrivateProfileString(S_GRID, K_MACHININGSHOWGRID, If(IniFile.m_bMachiningShowGrid, 1, 0).ToString)
|
||||
' Salvo stato unità di misura per interfaccia utente
|
||||
WritePrivateProfileString(S_SCENE, K_MMUNITS, If(IniFile.m_bMmUnits, 1, 0).ToString)
|
||||
' Salvo dimensioni griglie in Mm e Inch
|
||||
WritePrivateProfileString(S_GRID, K_SNAPSTEP, DoubleToString(IniFile.dSnapStepMm, 4))
|
||||
WritePrivateProfileString(S_GRID, K_SNAPSTEPINCH, DoubleToString(IniFile.dSnapStepInch, 4))
|
||||
If Not IniFile.m_bFailedRun Then
|
||||
' Salvo modo di visualizzazione
|
||||
WritePrivateProfileString(S_SCENE, K_SHOWMODE, EgtGetShowMode().ToString)
|
||||
' Salvo stato visualizzazione direzione curve
|
||||
WritePrivateProfileString(S_SCENE, K_CURVEDIR, If(EgtGetShowCurveDirection(), 1, 0).ToString)
|
||||
' Salvo stato visualizzazione griglia
|
||||
WritePrivateProfileString(S_GRID, K_DRAWSHOWGRID, If(IniFile.m_bDrawShowGrid, 1, 0).ToString)
|
||||
WritePrivateProfileString(S_GRID, K_MACHININGSHOWGRID, If(IniFile.m_bMachiningShowGrid, 1, 0).ToString)
|
||||
' Salvo stato unità di misura per interfaccia utente
|
||||
WritePrivateProfileString(S_SCENE, K_MMUNITS, If(IniFile.m_bMmUnits, 1, 0).ToString)
|
||||
' Salvo dimensioni griglie in Mm e Inch
|
||||
WritePrivateProfileString(S_GRID, K_SNAPSTEP, DoubleToString(IniFile.dSnapStepMm, 4))
|
||||
WritePrivateProfileString(S_GRID, K_SNAPSTEPINCH, DoubleToString(IniFile.dSnapStepInch, 4))
|
||||
End If
|
||||
End Sub)
|
||||
|
||||
End Sub
|
||||
@@ -824,7 +828,7 @@ Namespace EgtCAM5
|
||||
|
||||
Private Sub OnMouseSelectedAll(ByVal sender As Object) Handles m_ProjectScene.OnMouseSelectedAll
|
||||
' Se in modalità Draw seleziono tutto
|
||||
If IniFile.m_ProjectMode = ProjectModeOpt.DRAW Then
|
||||
If IniFile.m_ProjectMode = ProjectModeOpt.DRAW OrElse IniFile.m_ProjectMode = ProjectModeOpt.ONLYDRAW Then
|
||||
m_Controller.MouseSelectedAll()
|
||||
Return
|
||||
End If
|
||||
@@ -892,7 +896,7 @@ Namespace EgtCAM5
|
||||
|
||||
Private Sub OnMouseDeselectedAll(ByVal sender As Object) Handles m_ProjectScene.OnMouseDeselectedAll
|
||||
' Se in modalità Draw seleziono tutto
|
||||
If IniFile.m_ProjectMode = ProjectModeOpt.DRAW Then
|
||||
If IniFile.m_ProjectMode = ProjectModeOpt.DRAW OrElse IniFile.m_ProjectMode = ProjectModeOpt.ONLYDRAW Then
|
||||
m_Controller.MouseDeselectedAll()
|
||||
Return
|
||||
End If
|
||||
@@ -925,7 +929,7 @@ Namespace EgtCAM5
|
||||
|
||||
Private Sub OnMouseDown(ByVal sender As Object, e As System.Windows.Forms.MouseEventArgs) Handles m_ProjectScene.OnMouseDownScene
|
||||
' Se in modalità Draw accetto tutto
|
||||
If IniFile.m_ProjectMode = ProjectModeOpt.DRAW Then Return
|
||||
If IniFile.m_ProjectMode = ProjectModeOpt.DRAW OrElse IniFile.m_ProjectMode = ProjectModeOpt.ONLYDRAW Then Return
|
||||
' Sono in modalità Machining
|
||||
' se non posso selezionare nulla o in lavorazione esco
|
||||
If m_SceneSelType = SceneSelTypeOpt.NULL OrElse m_SceneSelType = SceneSelTypeOpt.MACHINING Then Return
|
||||
@@ -981,7 +985,7 @@ Namespace EgtCAM5
|
||||
|
||||
Private Sub OnMyMouseMoveScene(sender As Object, e As System.Windows.Forms.MouseEventArgs) Handles m_ProjectScene.OnMouseMoveScene
|
||||
' Se in modalità Draw esco
|
||||
If IniFile.m_ProjectMode = ProjectModeOpt.DRAW Then
|
||||
If IniFile.m_ProjectMode = ProjectModeOpt.DRAW OrElse IniFile.m_ProjectMode = ProjectModeOpt.ONLYDRAW Then
|
||||
If bEnhancedSelIsActive Then
|
||||
EnhancedMouseMoveScene(e)
|
||||
End If
|
||||
@@ -1195,7 +1199,7 @@ Namespace EgtCAM5
|
||||
|
||||
Private Sub OnMyMouseUpScene(sender As Object, e As System.Windows.Forms.MouseEventArgs) Handles m_ProjectScene.OnMouseUpScene
|
||||
' Se in modalità Draw esco
|
||||
If IniFile.m_ProjectMode = ProjectModeOpt.DRAW Then
|
||||
If IniFile.m_ProjectMode = ProjectModeOpt.DRAW OrElse IniFile.m_ProjectMode = ProjectModeOpt.ONLYDRAW Then
|
||||
If bEnhancedSelIsActive Then
|
||||
EnhancedMouseUpScene(e)
|
||||
End If
|
||||
@@ -1281,7 +1285,7 @@ Namespace EgtCAM5
|
||||
' Se oggetto già rifiutato non faccio le verifiche
|
||||
If Not bOk Then Return
|
||||
' Se in modalità Draw accetto tutto
|
||||
If IniFile.m_ProjectMode = ProjectModeOpt.DRAW Then
|
||||
If IniFile.m_ProjectMode = ProjectModeOpt.DRAW OrElse IniFile.m_ProjectMode = ProjectModeOpt.ONLYDRAW Then
|
||||
' Se attiva enhanced selection rifiuto tutto
|
||||
If bEnhancedSelIsActive Then
|
||||
bOk = False
|
||||
|
||||
Reference in New Issue
Block a user