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

TestEIn 1.6r10 :

Browse Source 
- aggiornamento interfaccia.
This commit is contained in:
Dario Sassi
2016-06-20 17:28:16 +00:00
parent 9fa44ba9df
commit 9469a89975
2 changed files with 16 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files
EgtInterface.vb
+14
View File
@@ -8702,6 +8702,20 @@ Public Function EgtSetView(nView As VT, Optional bRedraw As Boolean = True) As B
End If
End Function
<DllImport(EgtIntDll32, CharSet:=CharSet.Unicode, EntryPoint:="EgtSetGenericView")>
Private Function EgtSetGenericView_32(dAngVertDeg As Double, dAngHorizDeg As Double, bRedraw As Boolean) As Boolean
End Function
<DllImport(EgtIntDll64, CharSet:=CharSet.Unicode, EntryPoint:="EgtSetGenericView")>
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
<DllImport(EgtIntDll32, CharSet:=CharSet.Unicode, EntryPoint:="EgtPanView")>
Private Function EgtPanView_32(nPrevX As Integer, nPrevY As Integer, nCurrX As Integer, nCurrY As Integer, bRedraw As Boolean) As Boolean
End Function
My Project/AssemblyInfo.vb
+2 -2
View File
@@ -46,5 +46,5 @@ Imports System.Runtime.InteropServices
' utilizzando l'asterisco (*) come descritto di seguito:
' <Assembly: AssemblyVersion("1.0.*")>
<Assembly: AssemblyVersion("1.6.18.9")>
<Assembly: AssemblyFileVersion("1.6.18.9")>
<Assembly: AssemblyVersion("1.6.18.10")>
<Assembly: AssemblyFileVersion("1.6.18.10")>