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

EgtCAM5 :

Browse Source 
- Introdotta modalità solo disegno.
This commit is contained in:
Emmanuele Sassi
2017-03-02 10:23:48 +00:00
parent 26145ad913
commit 6a22ecc8fb
9 changed files with 82 additions and 66 deletions
Download Patch File Download Diff File Expand all files Collapse all files
ProjectPage/DrawPanel/DrawPanelViewModel.vb
+7 -5
View File
@@ -397,10 +397,12 @@ Namespace EgtCAM5
ModifyIsExpanded = If(GetPrivateProfileInt(S_GENERAL, K_MODIFY, 0) = 0, False, True)
TransformIsExpanded = If(GetPrivateProfileInt(S_GENERAL, K_TRANSFORM, 0) = 0, False, True)
Application.Msn.Register(Application.CLOSEAPPLICATION, Sub()
WritePrivateProfileString(S_GENERAL, K_DRAW2D, If(m_Draw2DIsExpanded, "1", "0"))
WritePrivateProfileString(S_GENERAL, K_DRAW3D, If(m_Draw3DIsExpanded, "1", "0"))
WritePrivateProfileString(S_GENERAL, K_MODIFY, If(m_ModifyIsExpanded, "1", "0"))
WritePrivateProfileString(S_GENERAL, K_TRANSFORM, If(m_TransformIsExpanded, "1", "0"))
If Not IniFile.m_bFailedRun Then
WritePrivateProfileString(S_GENERAL, K_DRAW2D, If(m_Draw2DIsExpanded, "1", "0"))
WritePrivateProfileString(S_GENERAL, K_DRAW3D, If(m_Draw3DIsExpanded, "1", "0"))
WritePrivateProfileString(S_GENERAL, K_MODIFY, If(m_ModifyIsExpanded, "1", "0"))
WritePrivateProfileString(S_GENERAL, K_TRANSFORM, If(m_TransformIsExpanded, "1", "0"))
End If
End Sub)
Application.Msn.Register(Application.SETCURRLAYER, Sub(CurrLayer As Integer)
@@ -1409,7 +1411,7 @@ Namespace EgtCAM5
#End Region ' Commands
Private Sub OnIdle()
If IniFile.m_ProjectMode = ProjectModeOpt.DRAW Then
If IniFile.m_ProjectMode = ProjectModeOpt.DRAW OrElse IniFile.m_ProjectMode = ProjectModeOpt.ONLYDRAW Then
Application.Msn.NotifyColleagues(Application.GETCURRLAYER)
bLayerOk = m_CurrentLayer <> GDB_ID.NULL
If Not IniFile.m_ProjectSceneContext = 0 Then