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

EgtCAM5 :

Browse Source 
- Eliminato TabControl.
- Create e gestite finestre con i Db.
- Spostati bottoni modalità (Draw e Machining) nella barra superiore.
- Miglioramenti vari.
This commit is contained in:
Emmanuele Sassi
2016-08-31 15:19:20 +00:00
parent 3a5aeedd81
commit 256ff11cf4
34 changed files with 369 additions and 1526 deletions
Download Patch File Download Diff File Expand all files Collapse all files
ProjectPage/DrawPanel/DrawPanelViewModel.vb
+4 -9
View File
@@ -344,15 +344,10 @@ Namespace EgtCAM5
Sub New()
' Leggo stato expander da file ini
Dim Draw2D = GetPrivateProfileInt(S_GENERAL, K_DRAW2D, 0)
Draw2DIsExpanded = If(Draw2D = 0, False, True)
Dim Draw3D = GetPrivateProfileInt(S_GENERAL, K_DRAW3D, 0)
Draw3DIsExpanded = If(Draw3D = 0, False, True)
Dim Modify = GetPrivateProfileInt(S_GENERAL, K_MODIFY, 0)
ModifyIsExpanded = If(Modify = 0, False, True)
Dim Transform = GetPrivateProfileInt(S_GENERAL, K_TRANSFORM, 0)
TransformIsExpanded = If(Transform = 0, False, True)
Draw2DIsExpanded = If(GetPrivateProfileInt(S_GENERAL, K_DRAW2D, 0) = 0, False, True)
Draw3DIsExpanded = If(GetPrivateProfileInt(S_GENERAL, K_DRAW3D, 0) = 0, False, True)
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"))