Dario Sassi
34 lines
1.0 KiB
VB.net
34 lines
1.0 KiB
VB.net
Imports EgtUILib.EgtInterface
|
|
|
|
Public Class tsSceneMode
|
|
|
|
Private m_nContext As Integer
|
|
|
|
Sub New()
|
|
InitializeComponent()
|
|
m_nContext = 1
|
|
End Sub
|
|
|
|
Public Sub SetCtx(ByVal nCtx As Integer)
|
|
m_nContext = nCtx
|
|
End Sub
|
|
|
|
Private Sub btnWireframe_Click(sender As System.Object, e As System.EventArgs) Handles btnWireframe.Click
|
|
btnHiddenLine.Checked = False
|
|
btnShading.Checked = False
|
|
EgtSetShowMode(m_nContext, SM_WIREFRAME, True)
|
|
End Sub
|
|
|
|
Private Sub btnHiddenLine_Click(sender As System.Object, e As System.EventArgs) Handles btnHiddenLine.Click
|
|
btnWireframe.Checked = False
|
|
btnShading.Checked = False
|
|
EgtSetShowMode(m_nContext, SM_HIDDENLINE, True)
|
|
End Sub
|
|
|
|
Private Sub btnShading_Click(sender As System.Object, e As System.EventArgs) Handles btnShading.Click
|
|
btnWireframe.Checked = False
|
|
btnHiddenLine.Checked = False
|
|
EgtSetShowMode(m_nContext, SM_SHADING, True)
|
|
End Sub
|
|
End Class
|