From 0b863fd01b9a2d0ecc905bc466eeada556fbc010 Mon Sep 17 00:00:00 2001 From: Dario Sassi Date: Thu, 2 Feb 2017 08:47:40 +0000 Subject: [PATCH] EgtCAM5 : - aggiunta gestione flag tipo visualizzazione Zmap. --- Constants/ConstIni.vb | 1 + ProjectPage/ProjectViewModel.vb | 3 +++ 2 files changed, 4 insertions(+) diff --git a/Constants/ConstIni.vb b/Constants/ConstIni.vb index 1a6a89a..a44b95c 100644 --- a/Constants/ConstIni.vb +++ b/Constants/ConstIni.vb @@ -64,6 +64,7 @@ Module ConstIni Public Const K_SHOWMODE As String = "ShowMode" Public Const K_CURVEDIR As String = "CurveDir" Public Const K_SHOWTRIAADV As String = "ShowTriaAdv" + Public Const K_SHOWZMAP As String = "ShowZmap" Public Const K_ZOOMWIN As String = "ZoomWin" Public Const K_DISTLINE As String = "DistLine" Public Const K_MMUNITS As String = "MmUnits" diff --git a/ProjectPage/ProjectViewModel.vb b/ProjectPage/ProjectViewModel.vb index 8fe1f28..5ed3679 100644 --- a/ProjectPage/ProjectViewModel.vb +++ b/ProjectPage/ProjectViewModel.vb @@ -244,6 +244,9 @@ Namespace EgtCAM5 ' visualizzazione avanzata dei triangoli costituenti le superfici Dim bShowTriaAdv As Boolean = (GetPrivateProfileInt(S_SCENE, K_SHOWTRIAADV, 1) <> 0) EgtSetShowTriaAdv(bShowTriaAdv) + ' tipo visualizzazione per Zmap + Dim nShowZmap As Integer = GetPrivateProfileInt(S_SCENE, K_SHOWZMAP, 1) + EgtSetShowZmap(nShowZmap, False) ' lettura da ini della variabile che abilita i gruppi di lavorazione IniFile.m_bMachiningGroup = (GetPrivateProfileInt(S_MACH, K_MACHININGGROUP, 0) <> 0) Application.Msn.NotifyColleagues(Application.DRAWMODE_ISCHECKED)