From 1613c3ab5f73abb860039eec05e0bc1ce58fa73f Mon Sep 17 00:00:00 2001
From: paul <paul@lazarus-ide.org>
Date: Wed, 10 Mar 2010 08:40:34 +0000
Subject: [PATCH] win32: fix scrollbar regression (issue #0015717)

git-svn-id: trunk@23912 -
---
 lcl/interfaces/win32/win32callback.inc | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/lcl/interfaces/win32/win32callback.inc b/lcl/interfaces/win32/win32callback.inc
index 2db30ae6e2..ff6e353abd 100644
--- a/lcl/interfaces/win32/win32callback.inc
+++ b/lcl/interfaces/win32/win32callback.inc
@@ -1562,9 +1562,10 @@ begin
       if LParam <> 0 then
       begin
         ChildWindowInfo := GetWin32WindowInfo(HWND(LParam));
+        lWinControl := ChildWindowInfo^.WinControl;
         if Assigned(ChildWindowInfo^.ParentMsgHandler) then
         begin
-          if ChildWindowInfo^.ParentMsgHandler(ChildWindowInfo^.WinControl,
+          if ChildWindowInfo^.ParentMsgHandler(lWinControl,
             Window, Msg, WParam, LParam, PLMsg^.Result, WinProcess) then Exit(PLMsg^.Result);
         end;
       end;