OmagCUT/SceneButtonsUC.xaml.vb

Imports EgtUILib

Public Class SceneButtonsUC

    'Riferimento alla MainWindow
    Dim m_MainWindow As MainWindow = Application.Current.MainWindow

    Private Sub ZoomAllBtn_Click(sender As Object, e As RoutedEventArgs) Handles ZoomAllBtn.Click
        EgtZoom(ZM.ALL)
    End Sub

    Private Sub ZoomInBtn_Click(sender As Object, e As RoutedEventArgs) Handles ZoomInBtn.Click
        EgtZoom(ZM.IN_)
    End Sub

    Private Sub ZoomOutBtn_Click(sender As Object, e As RoutedEventArgs) Handles ZoomOutBtn.Click
        EgtZoom(ZM.OUT)
    End Sub

    Private Sub ZoomWinBtn_Click(sender As Object, e As RoutedEventArgs) Handles ZoomWinBtn.Click
        GetCurrScene.SetStatusZoomWin()
    End Sub

    Private Sub PanBtn_Click(sender As Object, e As RoutedEventArgs) Handles PanBtn.Click
        GetCurrScene.SetStatusPan()
    End Sub

    Private Sub GenericViewBtn_Click(sender As Object, e As RoutedEventArgs) Handles GenericViewBtn.Click
        GetCurrScene.SetStatusRot()
    End Sub

    Private Sub TopViewBtn_Click(sender As Object, e As RoutedEventArgs) Handles TopViewBtn.Click
        EgtSetView(VT.TOP)
    End Sub

    Private Function GetCurrScene() As EgtUILib.Scene
        Select Case m_MainWindow.m_ActivePage
            Case MainWindow.Pages.DirectCut
                Return m_MainWindow.m_CurrentProjectPageUC.CurrentProjectScene
            Case MainWindow.Pages.CadCut
                Return m_MainWindow.m_CurrentProjectPageUC.CurrentProjectScene
            Case MainWindow.Pages.Open
                Return m_MainWindow.m_OpenPage.OpenScene
            Case MainWindow.Pages.FrameCut
                Return m_MainWindow.m_CurrentProjectPageUC.CurrentProjectScene
            Case MainWindow.Pages.Import
                Return m_MainWindow.m_ImportPageUC.ImportScene
            Case Else
                Return m_MainWindow.m_CurrentProjectPageUC.CurrentProjectScene
        End Select
    End Function

End Class