Dario Sassi
29 lines
889 B
VB.net
29 lines
889 B
VB.net
Imports EgtUILib.EgtInterface
|
|
|
|
Public Class btnRendering
|
|
|
|
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 rbtnWireframe_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles rbtnWireframe.CheckedChanged
|
|
EgtSetShowMode(m_nContext, SM_WIREFRAME, True)
|
|
End Sub
|
|
|
|
Private Sub rbtnHiddenLine_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles rbtnHiddenLine.CheckedChanged
|
|
EgtSetShowMode(m_nContext, SM_HIDDENLINE, True)
|
|
End Sub
|
|
|
|
Private Sub rbtnShading_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles rbtnShading.CheckedChanged
|
|
EgtSetShowMode(m_nContext, SM_SHADING, True)
|
|
End Sub
|
|
|
|
End Class
|