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

TestEIn 1.6x6 :

Browse Source 
- aggiornamento.
This commit is contained in:
Dario Sassi
2017-01-11 17:20:51 +00:00
parent f96d1bbf03
commit e241be8b82
3 changed files with 2750 additions and 2494 deletions
Download Patch File Download Diff File Expand all files Collapse all files
EgtInterface.vb
+2743 -2488
View File
File diff suppressed because it is too large Load Diff
My Project/AssemblyInfo.vb
+3 -3
View File
@@ -27,7 +27,7 @@ Imports System.Runtime.InteropServices
#End If
<Assembly: AssemblyCompany("EgalTech s.r.l.")>
<Assembly: AssemblyProduct("TestEIn")>
<Assembly: AssemblyCopyright("Copyright © 2014-2016 by EgalTech s.r.l.")>
<Assembly: AssemblyCopyright("Copyright © 2014-2017 by EgalTech s.r.l.")>
<Assembly: AssemblyTrademark("")>
<Assembly: ComVisible(False)>
@@ -46,5 +46,5 @@ Imports System.Runtime.InteropServices
' utilizzando l'asterisco (*) come descritto di seguito:
' <Assembly: AssemblyVersion("1.0.*")>
<Assembly: AssemblyVersion("1.6.23.2")>
<Assembly: AssemblyFileVersion("1.6.23.2")>
<Assembly: AssemblyVersion("1.6.24.6")>
<Assembly: AssemblyFileVersion("1.6.24.6")>
Scene.vb
+4 -3
View File
@@ -157,7 +157,7 @@ Public Class Scene
'Mettere EgtExit nell'evento FormClosing
Public Function Init() As Boolean
m_nGseContext = EgtInitContext()
Dim nGseContext As Integer = EgtInitContext()
Dim bOk As Boolean = EgtSetDefaultMaterial(m_DefColor)
EgtInitScene(Handle, m_nDriver, m_b2Buff, m_nColorBits, m_nDepthBits)
EgtSetBackground(m_BackTopColor, m_BackBotColor)
@@ -167,6 +167,7 @@ Public Class Scene
EgtSetGeoLineAttribs(m_DstLnColor)
EgtSetGeoTriaAttribs(m_DstLnColor)
EgtInitTscExec()
m_nGseContext = nGseContext
RaiseEvent OnChangedSnapPointType(Me, m_nSnapType, True)
Return bOk
End Function
@@ -540,9 +541,9 @@ Public Class Scene
If nOldGseCtx <> m_nGseContext Then
EgtSetCurrentContext(m_nGseContext)
End If
' Se sono abbastanza all'interno della scena (10% della dimensione), imposto il focus
' Se sono abbastanza all'interno della scena (15% della dimensione), imposto il focus
If m_bSetFocusOnMove Then
Const BordPu As Double = 0.1
Const BordPu As Double = 0.15
If e.Location.X > BordPu * Size.Width AndAlso e.Location.X < (1 - BordPu) * Size.Width AndAlso
e.Location.Y > BordPu * Size.Height AndAlso e.Location.Y < (1 - BordPu) * Size.Height Then
Focus()