From 17abe3d37e3d4b5fdd4492fb4b774f99932ddd54 Mon Sep 17 00:00:00 2001
From: vincents <vincents@lazarus-ide.org>
Date: Thu, 11 Jan 2007 13:58:39 +0000
Subject: [PATCH] win32 interface: fixed scrolling direction in a
 scrolledwincontrol (bug #8099)

git-svn-id: trunk@10424 -
---
 lcl/interfaces/win32/win32wsforms.pp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lcl/interfaces/win32/win32wsforms.pp b/lcl/interfaces/win32/win32wsforms.pp
index 355aa8e86e..e14695d984 100644
--- a/lcl/interfaces/win32/win32wsforms.pp
+++ b/lcl/interfaces/win32/win32wsforms.pp
@@ -167,7 +167,7 @@ var
 begin
   lVisible := AWinControl.HandleAllocated and Windows.IsWindowVisible(AWinControl.Handle);
   if lVisible then
-    ScrollWindowPtr(AWinControl.Handle, DeltaX, DeltaY, nil, nil);
+    ScrollWindowPtr(AWinControl.Handle, -DeltaX, -DeltaY, nil, nil);
 end;
 
 { TWin32WSCustomForm }