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.WorkInProgress
            Return m_MainWindow.m_WorkInProgressPageUC.WorkInProgressScene
         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