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
      If Keyboard.IsKeyDown(Key.T) Then
         EgtSetView(VT.TOP)
      ElseIf Keyboard.IsKeyDown(Key.F) Then
         EgtSetView(VT.FRONT)
      ElseIf Keyboard.IsKeyDown(Key.B) Then
         EgtSetView(VT.BACK)
      ElseIf Keyboard.IsKeyDown(Key.L) Then
         EgtSetView(VT.LEFT)
      ElseIf Keyboard.IsKeyDown(Key.R) Then
         EgtSetView(VT.RIGHT)
      Else
         GetCurrScene.SetStatusRot()
      End If
   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