EgtUILib/tsRendering.vb

Imports EgtUILib.EgtInterface

Public Class tsRendering

    Private m_scene As Scene

    'Create buttons
    Public btnWireframe As New ToolStripButton
    Public btnHiddenLine As New ToolStripButton
    Public btnShading As New ToolStripButton

    Sub New()

        MyBase.New()
        Me.Anchor = AnchorStyles.None
        Me.Dock = DockStyle.None
        ' Chiamata richiesta dalla finestra di progettazione.
        InitializeComponent()
        AddButtons()
        ' Aggiungere le eventuali istruzioni di inizializzazione dopo la chiamata a InitializeComponent().

    End Sub

    Public Sub SetScene(ByRef scene As Scene)
        m_scene = scene
    End Sub

    Public Sub AddButtons()

        With btnWireframe
            'Set properties
            .Name = "btnWireframe"
            .AutoToolTip = True
            .DisplayStyle = ToolStripItemDisplayStyle.Image
            .Image = EgtUILib.My.Resources.Resources.RenderingWF
            .Text = ""
            .ToolTipText = "Wireframe"
        End With

        With btnHiddenLine
            'Set properties
            .Name = "btnHiddenLine"
            .AutoToolTip = True
            .DisplayStyle = ToolStripItemDisplayStyle.Image
            .Image = EgtUILib.My.Resources.Resources.RenderingHL
            .Text = ""
            .ToolTipText = "HiddenLine"
        End With

        With btnShading
            'Set properties
            .Name = "btnShading"
            .AutoToolTip = True
            .DisplayStyle = ToolStripItemDisplayStyle.Image
            .Image = EgtUILib.My.Resources.Resources.RenderingSH
            .Text = ""
            .ToolTipText = "Shading"
        End With

        'Create a Handle to a Click Event
        AddHandler btnWireframe.Click, AddressOf btnWireframe_Click
        AddHandler btnHiddenLine.Click, AddressOf btnHiddenLine_Click
        AddHandler btnShading.Click, AddressOf btnShading_Click

        'Add to toolstrip
        MyClass.Items.Add(btnWireframe)
        MyClass.Items.Add(btnHiddenLine)
        MyClass.Items.Add(btnShading)

    End Sub

    'The Click Events
    Private Sub btnWireframe_Click(sender As Object, e As System.EventArgs)
        btnWireframe.Checked = True
        btnHiddenLine.Checked = False
        btnShading.Checked = False
        m_scene.WireFrame()
    End Sub

    Private Sub btnHiddenLine_Click(sender As Object, e As System.EventArgs)
        btnWireframe.Checked = False
        btnHiddenLine.Checked = True
        btnShading.Checked = False
        m_scene.HiddenLine()
    End Sub

    Private Sub btnShading_Click(sender As Object, e As System.EventArgs)
        btnWireframe.Checked = False
        btnHiddenLine.Checked = False
        btnShading.Checked = True
        m_scene.Shading()
    End Sub

End Class