From 9469a899753d53813dcac8e80d5ae629e1e97aed Mon Sep 17 00:00:00 2001 From: Dario Sassi Date: Mon, 20 Jun 2016 17:28:16 +0000 Subject: [PATCH] TestEIn 1.6r10 : - aggiornamento interfaccia. --- EgtInterface.vb | 14 ++++++++++++++ My Project/AssemblyInfo.vb | 4 ++-- 2 files changed, 16 insertions(+), 2 deletions(-) diff --git a/EgtInterface.vb b/EgtInterface.vb index 3cb87c8..d82d38f 100644 --- a/EgtInterface.vb +++ b/EgtInterface.vb @@ -8702,6 +8702,20 @@ Public Function EgtSetView(nView As VT, Optional bRedraw As Boolean = True) As B End If End Function + +Private Function EgtSetGenericView_32(dAngVertDeg As Double, dAngHorizDeg As Double, bRedraw As Boolean) As Boolean +End Function + +Private Function EgtSetGenericView_64(dAngVertDeg As Double, dAngHorizDeg As Double, bRedraw As Boolean) As Boolean +End Function +Public Function EgtSetGenericView(dAngVertDeg As Double, dAngHorizDeg As Double, Optional bRedraw As Boolean = True) As Boolean + If IntPtr.Size = 4 Then + Return EgtSetGenericView_32(dAngVertDeg, dAngHorizDeg, bRedraw) + Else + Return EgtSetGenericView_64(dAngVertDeg, dAngHorizDeg, bRedraw) + End If +End Function + Private Function EgtPanView_32(nPrevX As Integer, nPrevY As Integer, nCurrX As Integer, nCurrY As Integer, bRedraw As Boolean) As Boolean End Function diff --git a/My Project/AssemblyInfo.vb b/My Project/AssemblyInfo.vb index fa34e8c..8b2ee01 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: ' - - + +