sysutils/winscp
1
0
Fork 0
mirror of https://github.com/winscp/winscp.git synced 2026-10-24 02:28:55 +03:00
Code Activity

Bug fixes: Some menus were not working on displays to the left or above the primary display + Mouse wheel downwards scrolling did not work on toolbar drop down lists

Browse Source 
Caused by a2119a7e

Source commit: 63352780bc26375231b44b4be493a29a26048d6a
This commit is contained in:
Martin Prikryl
2026-02-04 13:04:47 +00:00
parent fdd1c79d30
commit f4e0e58091
1 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
source/packages/tb2k/TB2Item.pas vendored
View File

@@ -6213,7 +6213,7 @@ begin
end;
case Msg.message of
WM_LBUTTONDOWN, WM_RBUTTONDOWN: begin
P := Point(LOWORD(Msg.lParam), HIWORD(Msg.lParam));
P := Point(SmallInt(LOWORD(NativeUInt(Msg.lParam))), SmallInt(HIWORD(NativeUInt(Msg.lParam))));
Windows.ClientToScreen(Msg.hwnd, P);
Ctl := FindDragTarget(P, True);
{ Was the mouse not clicked on a popup, or was it clicked on a
@@ -6334,7 +6334,7 @@ begin
WM_MOUSEWHEEL:
if GetSelectedViewer(View, Viewer) then begin
P := Viewer.ScreenToClient(Msg.pt);
Viewer.MouseWheel(HIWORD(Msg.wParam), P.X, P.Y);
Viewer.MouseWheel(Smallint(LongRec(Msg.wParam).Hi), P.X, P.Y);
end;
WM_LBUTTONDOWN, WM_LBUTTONDBLCLK, WM_RBUTTONDOWN:
if (Msg.message <> WM_RBUTTONDOWN) or TrackRightButton then begin