TestEIn 1.6r9 :

- aggiornamento interfaccia per modo visualizzazione Zmap.

ConstIni.vb

@@ -56,6 +56,7 @@ Public Const K_SELSURF As String = "SelSurf"
 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"

EgtInterface.vb

@@ -8534,6 +8534,34 @@ Public Function EgtGetShowTriaAdv() As Boolean
    End If
 End Function
 
+<DllImport(EgtIntDll32, CharSet:=CharSet.Unicode, EntryPoint:="EgtSetShowZmap")>
+Private Function EgtSetShowZmap_32(nShowMode As SM, bRedraw As Boolean) As Boolean
+End Function
+<DllImport(EgtIntDll64, CharSet:=CharSet.Unicode, EntryPoint:="EgtSetShowZmap")>
+Private Function EgtSetShowZmap_64(nShowMode As SM, bRedraw As Boolean) As Boolean
+End Function
+Public Function EgtSetShowZmap(nShowMode As SM, Optional bRedraw As Boolean = True) As Boolean
+   If IntPtr.Size = 4 Then
+      Return EgtSetShowZmap_32(nShowMode, bRedraw)
+   Else
+      Return EgtSetShowZmap_64(nShowMode, bRedraw)
+   End If
+End Function
+
+<DllImport(EgtIntDll32, CharSet:=CharSet.Unicode, EntryPoint:="EgtGetShowZmap")>
+Private Function EgtGetShowZmap_32() As Integer
+End Function
+<DllImport(EgtIntDll64, CharSet:=CharSet.Unicode, EntryPoint:="EgtGetShowZmap")>
+Private Function EgtGetShowZmap_64() As Integer
+End Function
+Public Function EgtGetShowZmap() As Integer
+   If IntPtr.Size = 4 Then
+      Return EgtGetShowZmap_32()
+   Else
+      Return EgtGetShowZmap_64()
+   End If
+End Function
+
 <DllImport(EgtIntDll32, CharSet:=CharSet.Unicode, EntryPoint:="EgtZoom")>
 Private Function EgtZoom_32(nZoom As ZM, bRedraw As Boolean) As Boolean
 End Function
@@ -9585,6 +9613,12 @@ Public Enum SM As Integer
    HIDDENLINE = 1
    SHADING = 2
 End Enum
+'Costanti : TIPO VISUALIZZAZIONE ZMAP
+Public Enum ZSM As Integer
+   SURF = 1
+   LINES = 2
+   BOTH = 3
+End Enum
 'Costanti : TIPO ZOOM
 Public Enum ZM As Integer
    ALL = 1

Form1.vb

@@ -215,7 +215,10 @@ Public Class Form1
       chkCurveDir.Checked = (nShowCurveDir <> 0)
       ' visualizzazione avanzata dei triangoli costituenti le superfici
       Dim bShowTriaAdv As Boolean = (GetPrivateProfileInt(S_SCENE, K_SHOWTRIAADV, 1, m_sIniFile) <> 0)
-      EgtSetShowTriaAdv(bShowTriaAdv)
+      EgtSetShowTriaAdv(bShowTriaAdv, False)
+      ' tipo visualizzazione per Zmap
+      Dim nShowZmap As Integer = GetPrivateProfileInt(S_SCENE, K_SHOWZMAP, 1, m_sIniFile)
+      EgtSetShowZmap(nShowZmap, False)
       ' ObjTree non selezionato
       m_nObjTreeOldId = GDB_ID.NULL
       ' nascondo input box

My Project/AssemblyInfo.vb

@@ -46,5 +46,5 @@ Imports System.Runtime.InteropServices
 ' utilizzando l'asterisco (*) come descritto di seguito:
 ' <Assembly: AssemblyVersion("1.0.*")> 
 
-<Assembly: AssemblyVersion("1.6.18.8")> 
-<Assembly: AssemblyFileVersion("1.6.18.8")> 
+<Assembly: AssemblyVersion("1.6.18.9")> 
+<Assembly: AssemblyFileVersion("1.6.18.9")>