Dario Sassi
53 lines
1.7 KiB
VB.net
53 lines
1.7 KiB
VB.net
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
|