[not solved] Orpheus Mouse Wheel
lazarus / 5-Lazarus Extra Components

----------------------------------------------------------------------
caused · 2010-11-24 20:30

Hey.
I figured that the mousewheel function in orpheusPort is broken ...

Does Anyone have a fix yet ?...

Here are the lines that cause the problems.. (only when scrolling
down)

Code: [Select]procedure TOvcCustomControl.WMMouseWheel(var Msg :
TMessage);
begin
 // with Msg do
   // DoOnMouseWheel(KeysToShiftState(LOWORD(wParam)) {fwKeys},
     //              HIWORD(wParam) {zDelta},
       //            LOWORD(lParam) {xPos},   HIWORD(lParam) {yPos});
end;

----------------------------------------------------------------------
caused · 2010-11-24 20:36

aww. I fixed it myself .....

if anyone wonders:

HIWORD(wParam) {zDelta},

was making trouble )....


caused

----------------------------------------------------------------------
caused · 2010-11-24 21:13

Okay my fix does not really work(No more crashes, but its scrolling
wrong)... Gotta try and see if I can come up with a valid solution
(Will add it here if I do)