Lazarus lhelp mouse wheel movement is very slow
Original Reporter info from Mantis: IPGuy
-
Reporter name: John Repucci
Original Reporter info from Mantis: IPGuy
- Reporter name: John Repucci
Description:
Mouse wheel movement in lhelp is very slow compared to the mouse wheel movement in all other applications.
See the following topic discussion: http://lazarus.firmos.at/index.php/topic,12612.0.html
Per the above, \lazarus\components\turbopower_ipro\iphtml.pas should be patched.
Copied from the above link ----------------
TIpHtmlInternalPanel = class(
...
protected
//you can add at line 3123:
function DoMouseWheel(Shift: TShiftState; WheelDelta: Integer; MousePos: TPoint): Boolean; override; //sunyd
...
end;
//you can add at line 17690
function TIpHtmlInternalPanel.DoMouseWheel(Shift: TShiftState; WheelDelta: Integer; MousePos: TPoint): Boolean;
begin
Result:=inherited DoMouseWheel(Shift, WheelDelta, MousePos);
if WheelDelta < 0 then Perform(WM_VSCROLL, MAKELONG(SB_PAGEDOWN, 0), 0)
else Perform(WM_VSCROLL, MAKELONG(SB_PAGEUP, 0), 0);
end;
end of copy ----------------
SunyD also mentioned the below and they are not used, they should be removed.
There is in TIpHtmlInternalPanel class 2 other MousWheelfunctions:
-DoOnMouseWheel
-MouseWheelHandler
But they don't called. I check them with debugger.
Additional information:
0.9.31-30142, 2.4.2 win32/vista
Note: posting this as it appears no one else has done some.
Mantis conversion info:
- Mantis ID: 19445
- Version: 0.9.30.1 (SVN)