paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-29 07:30:19 +02:00
Code Issues Packages Projects Releases Wiki Activity

TIpHtmlInternalPanel: Fix #40505: DoMouseWheel() should always return true

Browse Source 
should always return true to confirm that the MouseWheel Event is handled by TIpHtmlInternalPanel
This commit is contained in:
rich2014 2023-09-13 22:11:18 +08:00
parent f26bc899a8
commit fc7ca1f57d
1 changed files with 10 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
components/turbopower_ipro/iphtml.pas
View File

@ -5512,6 +5512,10 @@ begin
Perform(LM_VSCROLL, MAKELONG(SB_LINEDOWN, 0), 0)
else
Perform(LM_VSCROLL, MAKELONG(SB_LINEUP, 0), 0);
// should always return true to confirm that
// the MouseWheel Event is handled by TIpHtmlInternalPanel
Result:= true;
end;
procedure TIpHtmlInternalPanel.Paint;
@ -5900,13 +5904,19 @@ end;
procedure TIpHtmlInternalPanel.WMHScroll(var Message: TLMHScroll);
begin
if HScroll.Visible then
begin
HScroll.ScrollMessage(Message);
Message.Result := 1;
end;
end;
procedure TIpHtmlInternalPanel.WMVScroll(var Message: TLMVScroll);
begin
if VScroll.Visible then
begin
VScroll.ScrollMessage(Message);
Message.Result := 1;
end;
end;
procedure TIpHtmlInternalPanel.AsyncHotInvoke(data: ptrint);