A quick attempt at fixing frame scrolling up with wheel. Not perfect, but better.

This commit is contained in:
Suuper 2015-07-15 15:11:32 -05:00
parent b9865db397
commit 46e8bdeefa
1 changed files with 16 additions and 3 deletions

View File

@ -502,13 +502,26 @@ namespace BizHawk.Client.EmuHawk
if (TasView.RightButtonHeld && TasView.CurrentCell.RowIndex.HasValue) if (TasView.RightButtonHeld && TasView.CurrentCell.RowIndex.HasValue)
{ {
_supressContextMenu = true; _supressContextMenu = true;
if (e.Delta < 0) if (GlobalWin.MainForm.IsSeeking)
{ {
GoToNextFrame(); if (e.Delta < 0)
GlobalWin.MainForm.PauseOnFrame++;
else
{
GlobalWin.MainForm.PauseOnFrame--;
if (Global.Emulator.Frame == GlobalWin.MainForm.PauseOnFrame)
{
GlobalWin.MainForm.PauseEmulator();
GlobalWin.MainForm.PauseOnFrame = null;
}
}
} }
else else
{ {
GoToPreviousFrame(); if (e.Delta < 0)
GoToNextFrame();
else
GoToPreviousFrame();
} }
} }