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
      EgtSetGenericView(0, (m_MainWindow.m_nTopViewRotStep - 1) * 90)
   End Sub

   Private Function GetCurrScene() As EgtUILib.Scene
      Return m_MainWindow.CurrentProjectScene
   End Function

End Class