From 5215049c07ac6b3bed795ad13208e89b1f747da6 Mon Sep 17 00:00:00 2001
From: Thomas Goyne <plorkyeran@aegisub.org>
Date: Thu, 13 May 2010 18:37:35 +0000
Subject: [PATCH] Add mouse wheel video zooming

Originally committed to SVN as r4276.
---
 aegisub/src/video_display.cpp | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/aegisub/src/video_display.cpp b/aegisub/src/video_display.cpp
index 563a9d7e1..22a75173f 100644
--- a/aegisub/src/video_display.cpp
+++ b/aegisub/src/video_display.cpp
@@ -487,6 +487,10 @@ void VideoDisplay::OnMouseEvent(wxMouseEvent& event) {
 	if (event.ButtonDown(wxMOUSE_BTN_ANY)) {
 		SetFocus();
 	}
+	int wheel = event.GetWheelRotation();
+	if (wheel) {
+		SetZoom (zoomValue + .125 * (wheel / event.GetWheelDelta()));
+	}
 
 	// Send to visual
 	if (visual) visual->OnMouseEvent(event);
@@ -515,7 +519,7 @@ void VideoDisplay::OnKey(wxKeyEvent &event) {
 void VideoDisplay::SetZoom(double value) {
 	using std::max;
 	zoomValue = max(value, .125);
-	zoomBox->SetValue(wxString::Format("%g%%", value * 100.));
+	zoomBox->SetValue(wxString::Format("%g%%", zoomValue * 100.));
 	UpdateSize();
 }
 void VideoDisplay::SetZoomFromBox() {