From ecfb2b2f54d855dcd4f2f9dc5da54d9ca9861b23 Mon Sep 17 00:00:00 2001 From: Dario Sassi Date: Tue, 6 Feb 2018 09:43:20 +0000 Subject: [PATCH] TestEIn 1.9b1 : - aggiornamento. --- EgtInterface.vb | 25 ++++++++++++++++++++----- My Project/AssemblyInfo.vb | 4 ++-- 2 files changed, 22 insertions(+), 7 deletions(-) diff --git a/EgtInterface.vb b/EgtInterface.vb index d935650..7c03c56 100644 --- a/EgtInterface.vb +++ b/EgtInterface.vb @@ -6293,6 +6293,20 @@ Public Function EgtAdjustFlatPartLayer(nLayerId As Integer) As Boolean End If End Function + +Private Function EgtCalcFlatPartUpRegion_32(nPartId As Integer, bCalc As Boolean) As Boolean +End Function + +Private Function EgtCalcFlatPartUpRegion_64(nPartId As Integer, bCalc As Boolean) As Boolean +End Function +Public Function EgtCalcFlatPartUpRegion(nPartId As Integer, bCalc As Boolean) As Boolean + If IntPtr.Size = 4 Then + Return EgtCalcFlatPartUpRegion_32(nPartId, bCalc) + Else + Return EgtCalcFlatPartUpRegion_64(nPartId, bCalc) + End If +End Function + Private Function EgtCalcFlatPartDownRegion_32(nPartId As Integer, dH As Double) As Boolean End Function @@ -10328,12 +10342,12 @@ Public Function EgtGetShowTriaAdv() As Boolean End Function -Private Function EgtSetShowZmap_32(nShowMode As ZSM, bRedraw As Boolean) As Boolean +Private Function EgtSetShowZmap_32(nShowMode As Integer, bRedraw As Boolean) As Boolean End Function -Private Function EgtSetShowZmap_64(nShowMode As ZSM, bRedraw As Boolean) As Boolean +Private Function EgtSetShowZmap_64(nShowMode As Integer, bRedraw As Boolean) As Boolean End Function -Public Function EgtSetShowZmap(nShowMode As ZSM, Optional bRedraw As Boolean = True) As Boolean +Public Function EgtSetShowZmap(nShowMode As Integer, Optional bRedraw As Boolean = True) As Boolean If IntPtr.Size = 4 Then Return EgtSetShowZmap_32(nShowMode, bRedraw) Else @@ -11584,11 +11598,12 @@ Public Enum SM As Integer HIDDENLINE = 1 SHADING = 2 End Enum -'Costanti : TIPO VISUALIZZAZIONE ZMAP +'Costanti : TIPO VISUALIZZAZIONE ZMAP (in or bit a bit tra loro) Public Enum ZSM As Integer SURF = 1 LINES = 2 - BOTH = 3 + NORMALS = 4 + MORE_COLORS = 8 End Enum 'Costanti : TIPO ZOOM Public Enum ZM As Integer diff --git a/My Project/AssemblyInfo.vb b/My Project/AssemblyInfo.vb index 765a5a3..225da5b 100644 --- a/My Project/AssemblyInfo.vb +++ b/My Project/AssemblyInfo.vb @@ -46,5 +46,5 @@ Imports System.Runtime.InteropServices ' utilizzando l'asterisco (*) come descritto di seguito: ' - - + +