Added fix to send scroll messages from mouse wheel instead of scrolling directly

git-svn-id: https://svn.wxwidgets.org/svn/wx/wxWidgets/trunk@11191 c3d73ce0-8a6f-49c7-b76d-6d57e0e08775
This commit is contained in:
Julian Smart
2001-07-27 10:07:46 +00:00
parent f35719ef1d
commit b6b85bdccb

View File

@@ -978,9 +978,24 @@ void wxScrollHelper::HandleOnMouseWheel(wxMouseEvent& event)
{
lines *= event.GetLinesPerAction();
int vsx, vsy;
GetViewStart(&vsx, &vsy);
Scroll(-1, vsy - lines);
wxScrollWinEvent newEvent;
newEvent.SetPosition(m_xScrollPosition - lines);
newEvent.SetOrientation(wxVERTICAL);
newEvent.m_eventObject = m_win;
if (lines > 0)
newEvent.m_eventType = wxEVT_SCROLLWIN_LINEUP;
else
newEvent.m_eventType = wxEVT_SCROLLWIN_LINEDOWN;
int times = abs(lines);
for (; times > 0; times --)
m_win->GetEventHandler()->ProcessEvent(newEvent);
/* Old Way */
// int vsx, vsy;
// GetViewStart(&vsx, &vsy);
// Scroll(-1, vsy - lines);
}
}