search

nakayubi / zengl

Automatically exported from code.google.com/p/zengl
0 stars 0 forks source link

Windows Mouse Wheel #78

Closed GoogleCodeExporter closed 9 years ago

GoogleCodeExporter commented 9 years ago 
With Delphi under Windows, the mouse_PWheel function return always M_WUP value.

ZenGL: Last Version
Compiler: Delphi XE2
OS: Windows 7 64bit

My workaround (Unit: [zgl_application.pas], Function: [app_ProcessMessages]):

Change:
   WM_MOUSEWHEEL:
      begin
        if wParam > 0 Then

with:
    WM_MOUSEWHEEL:
      begin
         if (shortint(wParam shr 16) div 120) > 0 then

Original issue reported on code.google.com by boy34pa...@gmail.com on 4 Nov 2012 at 5:32

GoogleCodeExporter commented 9 years ago

Original comment by dr.andru@gmail.com on 8 Nov 2012 at 9:46