ShuriZma
/
fceux
mirror of https://github.com/TASEmulators/fceux.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

* Debugger: fix mouse wheel scrolling by whole instructions

This commit is contained in:
ansstuff 2013-04-14 12:47:06 +00:00
parent 166e1637fd
commit f63e190e35
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
trunk/src/drivers/win/debugger.cpp
View File

@ -1462,7 +1462,7 @@ BOOL CALLBACK DebuggerCallB(HWND hwndDlg, UINT uMsg, WPARAM wParam, LPARAM lPara
si.nMin = 0;
si.nMax = 0x10000;
si.nPos = 0;
si.nPage = 10;
si.nPage = 8;
SetScrollInfo(GetDlgItem(hwndDlg,IDC_DEBUGGER_DISASSEMBLY_VSCR),SB_CTL,&si,TRUE);
//setup font
@ -1708,7 +1708,7 @@ BOOL CALLBACK DebuggerCallB(HWND hwndDlg, UINT uMsg, WPARAM wParam, LPARAM lPara
i = GET_WHEEL_DELTA_WPARAM(wParam) / WHEEL_DELTA;
if (i < 0)
{
for (int i = si.nPage; i > 0; i--)
for (i *= -si.nPage; i > 0; i--)
{
si.nPos = InstructionDown(si.nPos);
if ((si.nPos + (int)si.nPage) > si.nMax)
@ -1719,7 +1719,7 @@ BOOL CALLBACK DebuggerCallB(HWND hwndDlg, UINT uMsg, WPARAM wParam, LPARAM lPara
}
} else if (i > 0)
{
for (int i = si.nPage; i > 0; i--)
for (i *= si.nPage; i > 0; i--)
{
si.nPos = InstructionUp(si.nPos);
if (si.nPos < si.nMin)