HOOKPROC* = PROCEDURE (p1: INTEGER; p2: WPARAM; p3: LPARAM): INTEGER;

MODULE SmartMWheel;

IMPORT WinApi, StdLog, HostWindows;

VAR
   
   thrd: WinApi.HANDLE;
   mhook: WinApi.HHOOK;
   Handler: PROCEDURE(code: INTEGER; wparam: WinApi.WPARAM; lparam: WinApi.LPARAM): INTEGER;
   hinst: WinApi.HINSTANCE;
   
PROCEDURE Do*();
BEGIN
   mhook := WinApi.SetWindowsHookEx(14, Handler, 0, thrd);
   StdLog.Int(mhook);
END Do;

PROCEDURE Undo*;
BEGIN
   IF WinApi.UnhookWindowsHookEx(mhook) = 0 THEN
      StdLog.String("Hook NOT deleted");
   ELSE
      StdLog.String("Hook deleted");
   END;
END Undo;

PROCEDURE HandlerProc(code: INTEGER; wparam: WinApi.WPARAM; lparam: WinApi.LPARAM): INTEGER;
VAR
   wnd: HostWindows.Window;
   msg: WinApi.MSG;
   res: INTEGER;
BEGIN
   
   wnd := HostWindows.dir.First();
   
   CASE wparam OF
      | WinApi.WM_MOUSEWHEEL:
         StdLog.String("Wheel"); StdLog.Ln;
         
         RETURN -1; (*WinApi.CallNextHookEx(WinApi.WM_NULL, code, wparam, lparam);*)
         
   ELSE
         RETURN WinApi.CallNextHookEx(WinApi.WM_NULL, code, wparam, lparam);
   END;
END HandlerProc;

BEGIN
   Handler := HandlerProc;
   thrd := WinApi.GetCurrentThreadId();
   StdLog.Int(thrd);
END SmartMWheel.

SmartMWheel.Do
SmartMWheel.Undo

MouseHookStructEx = POINTER TO RECORD [untagged]
      pt*: WinApi.POINT;
      hwnd*: WinApi.HWND;
      wHitTestCode*: INTEGER;
      dwExtraInfo*: INTEGER;
      mousedata*: INTEGER;
      END;

MODULE SmartMWheel;

IMPORT WinApi, StdLog, HostWindows, SYSTEM;

TYPE

   MouseHookStructEx = POINTER TO RECORD [untagged]
      pt*: WinApi.POINT;
      hwnd*: WinApi.HWND;
      wHitTestCode*: INTEGER;
      dwExtraInfo*: INTEGER;
      mousedata*: INTEGER;
   END;
      

VAR
   
   thrd, mythrd: WinApi.HANDLE;
   mhook: WinApi.HHOOK;
   Handler: PROCEDURE(code: INTEGER; wparam: WinApi.WPARAM; lparam: WinApi.LPARAM): INTEGER;
   hinst: WinApi.HINSTANCE;
   ticks: INTEGER;
   lpThreadId: INTEGER;
   Stop: BOOLEAN;
   wnd: HostWindows.Window;
   
   bufdelta: INTEGER;
   
PROCEDURE ThreadRoutine(lpThreadParameter: WinApi.PtrVoid): INTEGER;
VAR   
   a: INTEGER;
   Pos, res: INTEGER;
BEGIN
   
   WHILE ~Stop DO
      
      Pos := WinApi.GetScrollPos(wnd.wnd, WinApi.SB_VERT);
      IF bufdelta # 0 THEN
      (*res := WinApi.SetScrollPos(wnd.wnd, WinApi.SB_VERT, y + bufdelta, 1);*)
      res := WinApi.PostMessageW(wnd.wnd, WinApi.WM_VSCROLL, WinApi.SB_THUMBPOSITION + 10000H * (Pos - bufdelta * 5), 0);
      bufdelta:= 0;
      (*a := WinApi.Beep(100,100);*)
      END;
      
      WinApi.Sleep(0);
   END;
   
   RETURN 0;
END ThreadRoutine;
   
PROCEDURE Do*();
BEGIN
   Stop := FALSE;
   mhook := WinApi.SetWindowsHookEx(WinApi.WH_MOUSE, Handler, 0, thrd);
   mythrd := WinApi.CreateThread(NIL, WinApi.NULL, ThreadRoutine, 0, {}, lpThreadId);
END Do;

PROCEDURE Undo*;
BEGIN
   Stop := TRUE;
   IF WinApi.UnhookWindowsHookEx(mhook) = 0 THEN
      StdLog.String("Hook NOT deleted");
   ELSE
      StdLog.String("Hook deleted");
   END;
   StdLog.Int(bufdelta);
END Undo;

PROCEDURE HandlerProc(code: INTEGER; wparam: WinApi.WPARAM; lparam: WinApi.LPARAM): INTEGER;
VAR
   res, delta: INTEGER;
   msg2: WinApi.PtrMOUSEHOOKSTRUCT;
   msg3: MouseHookStructEx;
BEGIN
   
   wnd := HostWindows.dir.First();
   
   CASE wparam OF
      | WinApi.WM_MOUSEWHEEL:
         
         msg3 := SYSTEM.VAL(MouseHookStructEx, lparam);
         
         delta := msg3.mousedata DIV 10000H;
         bufdelta := bufdelta + delta;
         StdLog.String("Wheel"); StdLog.Ln;
         ticks := WinApi.GetTickCount();
         StdLog.Int(bufdelta); StdLog.Ln;
         RETURN -1; (*WinApi.CallNextHookEx(WinApi.WM_NULL, code, wparam, lparam);*)
         
   ELSE
         RETURN WinApi.CallNextHookEx(WinApi.WM_NULL, code, wparam, lparam);
   END;
END HandlerProc;

BEGIN
   
   ticks := 0;
   Handler := HandlerProc;
   thrd := WinApi.GetCurrentThreadId();
   Stop := FALSE;
   
CLOSE
   IF mhook # WinApi.NULL THEN
      Undo
   END;
END SmartMWheel.

SmartMWheel.Do
SmartMWheel.Undo

PROCEDURE WheelScroll (wnd: WinApi.HANDLE; wParam, lParam: INTEGER);
      VAR w: Window; res, lines, delta, keys: INTEGER; msg: Controllers.WheelMsg;
         p: WinApi.POINT;
   BEGIN
      delta := wParam DIV 10000H; keys := wParam MOD 10000H;
      w := ThisWindow(wnd);
      lines := 3;
      res := WinApi.SystemParametersInfoW(104 (*SPI_GETWHEELSCROLLLINES*), 0, SYSTEM.ADR(lines), 0);
      p.x := lParam MOD 65536; p.y := lParam DIV 65536;
      res := WinApi.ScreenToClient(wnd, p);
      msg.x := p.x * w.port.unit; msg.y := p.y * w.port.unit;
      msg.nofLines := 0; msg.op := -1;
      IF lines > 10 THEN   (* scroll pages *)
         INC(w.wheelPos, delta);
         IF w.wheelPos >= 120 THEN
            msg.op := Controllers.decPage;
            DEC(w.wheelPos, 120)
         ELSIF w.wheelPos <= -120 THEN
            msg.op := Controllers.incPage;
            INC(w.wheelPos, 120)
         END
      ELSIF lines > 0 THEN
         INC(w.wheelPos, delta * lines);
         WHILE w.wheelPos >= 120 DO
            msg.op := Controllers.decLine;
            INC(msg.nofLines);
            DEC(w.wheelPos, 120)
         END;
         WHILE w.wheelPos <= -120 DO
            msg.op := Controllers.incLine;
            INC(msg.nofLines);
            INC(w.wheelPos, 120)
         END
      END;
      msg.done := FALSE;
      IF msg.op >= 0 THEN w.ForwardCtrlMsg(msg) END;
      IF ~msg.done THEN (* scroll document *)
         CASE msg.op OF
         | Controllers.decPage:
            w.Scroll(WinApi.SB_PAGEUP, 0, ODD(keys DIV 8), ~ODD(keys DIV 4))
         | Controllers.incPage:
            w.Scroll(WinApi.SB_PAGEDOWN, 0, ODD(keys DIV 8), ~ODD(keys DIV 4))
         | Controllers.decLine:
            WHILE msg.nofLines > 0 DO
               w.Scroll(WinApi.SB_LINEUP, 0, ODD(keys DIV 8), ~ODD(keys DIV 4));
               DEC(msg.nofLines)
            END
         | Controllers.incLine:
            WHILE msg.nofLines > 0 DO
               w.Scroll(WinApi.SB_LINEDOWN, 0, ODD(keys DIV 8), ~ODD(keys DIV 4));
               DEC(msg.nofLines)
            END
         ELSE
         END
(*
         IF lines > 10 THEN   (* scroll pages *)
            INC(w.wheelPos, delta);
            IF w.wheelPos >= 120 THEN
               w.Scroll(WinApi.SBPageUp, 0, ODD(keys DIV 8), ~ODD(keys DIV 4));
               DEC(w.wheelPos, 120)
            ELSIF w.wheelPos <= -120 THEN
               w.Scroll(WinApi.SBPageDown, 0, ODD(keys DIV 8), ~ODD(keys DIV 4));
               INC(w.wheelPos, 120)
            END
         ELSIF lines > 0 THEN
            INC(w.wheelPos, delta * lines);
            WHILE w.wheelPos >= 120 DO
               w.Scroll(WinApi.SBLineUp, 0, ODD(keys DIV 8), ~ODD(keys DIV 4));
               DEC(w.wheelPos, 120)
            END;
            WHILE w.wheelPos <= -120 DO
               w.Scroll(WinApi.SBLineDown, 0, ODD(keys DIV 8), ~ODD(keys DIV 4));
               INC(w.wheelPos, 120)
            END
         END
*)
      END
   END WheelScroll;