Ver Fonte

Tracing (finger scroll)

(enable TRACE_MESSAGES)

Source commit: 22a9e32e4c88abc99db40360f0632637dc2b6c27
Martin Prikryl há 9 anos atrás
pai
commit
778edb58aa
1 ficheiros alterados com 4 adições e 2 exclusões
  1. 4 2
      source/packages/dragndrop/DragDrop.pas

+ 4 - 2
source/packages/dragndrop/DragDrop.pas

@@ -1637,8 +1637,10 @@ begin
               if LOWORD(wParam)<>SB_ENDSCROLL then FTargetScrolling:=FTargetScrolling or 1
               else FTargetScrolling:=FTargetScrolling and not 1;
             WM_VSCROLL:
-              if LOWORD(wParam)<>SB_ENDSCROLL then FTargetScrolling:=FTargetScrolling or 2
-              else FTargetScrolling:=FTargetScrolling and not 2;
+              begin
+                if LOWORD(wParam)<>SB_ENDSCROLL then FTargetScrolling:=FTargetScrolling or 2
+                else FTargetScrolling:=FTargetScrolling and not 2;
+              end;
             WM_MOUSEMOVE:
               if (MouseHookHandle<>0) and (wParam and (MK_LBUTTON or MK_RBUTTON)=0) then
               begin