Mouse wheel scroll does not work in Win7

Public forum for discussing TScaleRichView (shareware addon to TRichView providing WYSIWYG editing)
Post Reply
wolf1860
Posts: 37
Joined: Sat Nov 21, 2015 2:04 am

Mouse wheel scroll does not work in Win7

Post by wolf1860 » Tue Aug 29, 2017 3:19 pm

I tested this on couple of PC, the mouse wheel worked perfect in Win10,but did not work in Win7,I changed 3 PC (win7).

Sergey Tkachenko
Site Admin
Posts: 13637
Joined: Sat Aug 27, 2005 10:28 am
Contact:

Re: Mouse wheel scroll does not work in Win7

Post by Sergey Tkachenko » Tue Aug 29, 2017 3:40 pm

What version of Delphi do you use to compile applications?

wolf1860
Posts: 37
Joined: Sat Nov 21, 2015 2:04 am

Re: Mouse wheel scroll does not work in Win7

Post by wolf1860 » Wed Aug 30, 2017 3:45 am

Delphi 10.2

Sergey Tkachenko
Site Admin
Posts: 13637
Joined: Sat Aug 27, 2005 10:28 am
Contact:

Re: Mouse wheel scroll does not work in Win7

Post by Sergey Tkachenko » Wed Aug 30, 2017 12:55 pm

I confirm the problem: no mouse wheel scrolling in TSRichViewEdit in Windows versions prior to 10, for applications compiled in RAD Studio 10.1 and 10.2
It will be fixed in the next update (I'll try to upload it later today)

wolf1860
Posts: 37
Joined: Sat Nov 21, 2015 2:04 am

Re: Mouse wheel scroll does not work in Win7

Post by wolf1860 » Thu Aug 31, 2017 10:43 am

Thanks a lot:) I'm waiting for the new version.

Sergey Tkachenko
Site Admin
Posts: 13637
Joined: Sat Aug 27, 2005 10:28 am
Contact:

Re: Mouse wheel scroll does not work in Win7

Post by Sergey Tkachenko » Wed Sep 06, 2017 12:54 pm

Sorry for the delay, it is uploaded today (for registered users)

tsvetus
Posts: 2
Joined: Thu Feb 23, 2012 11:11 am

Re: Mouse wheel scroll does not work in Win7

Post by tsvetus » Wed Sep 20, 2017 1:21 pm

Downloaded latest version of TSRichViewEdit. Now modules compiled on Windows 10 machine with RAD Studio 10.2 work fine on Windows 7 or prior but on Windows 10 scrolling does not work!

Sergey Tkachenko
Site Admin
Posts: 13637
Joined: Sat Aug 27, 2005 10:28 am
Contact:

Re: Mouse wheel scroll does not work in Win7

Post by Sergey Tkachenko » Wed Sep 20, 2017 4:12 pm

Make sure that you completely recompiled your application (Project | Build All Project).

If the problem still persists, I ask you to do some tests.
The first of them. Please open SclRView.pas, find TSRichViewEdit.DoMouseWheel.
It must be:

Code: Select all

function TSRichViewEdit.DoMouseWheel(Shift: TShiftState; WheelDelta: Integer;
      MousePos: TPoint): Boolean;
begin
  Result := inherited DoMouseWheel(Shift, WheelDelta, MousePos);
  if RVWIN10 and not Result then
    HookMouseWheelEvent(Self, Shift, WheelDelta, MousePos, Result);
end;
Is it correct? Compile your application with debug info. Put a breakpoint at the beginning of this method. Is it called when you scroll with a mouse wheel?

PS: please pay attention: in older versions of Windows, mouse wheels scrolls the focused control. In Windows 10, mouse wheels scrolls the control below the mouse pointer.

tsvetus
Posts: 2
Joined: Thu Feb 23, 2012 11:11 am

Re: Mouse wheel scroll does not work in Win7

Post by tsvetus » Mon Sep 25, 2017 1:53 pm

Thank you for support. The problem is still persists. HookMouseWheelEvent in TSRichViewEdit.DoMouseWheel event is never called because variable RVWIN10 is false. In addition the vi.dwMajorVersion == 6 in RVUni.RVCheckNT but we have Windows 10 Pro x64.

Sergey Tkachenko
Site Admin
Posts: 13637
Joined: Sat Aug 27, 2005 10:28 am
Contact:

Re: Mouse wheel scroll does not work in Win7

Post by Sergey Tkachenko » Mon Sep 25, 2017 2:51 pm

If dwMajorVersion = 6, this means that your application is not marked as Win10-compatible.
I thought that the difference in mouse wheel processing in applications compiled in 10.1 and 10.2 is because they are marked as Win10-compatible (in their manifest). Currently, I have no other ideas.

If you do not have special reasons for using a custom manifest, change in Project | Options, Application, Manifest file = Auto Generate.

Post Reply