From ecf88d182dabcb6e29c02ea9d0b4ad35df0f29f4 Mon Sep 17 00:00:00 2001
From: vincents <vincents@lazarus-ide.org>
Date: Wed, 11 Apr 2007 11:18:56 +0000
Subject: [PATCH] win32 interface: added HWND typecast to prevent range check
 errors

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

diff --git a/lcl/interfaces/win32/win32callback.inc b/lcl/interfaces/win32/win32callback.inc
index d321d37f2a..1b0aaa1e14 100644
--- a/lcl/interfaces/win32/win32callback.inc
+++ b/lcl/interfaces/win32/win32callback.inc
@@ -1120,7 +1120,7 @@ begin
         lWinControl := GetWindowInfo(HWND(LParam))^.WinControl;
         // buddy controls use 'awincontrol' to designate associated wincontrol
         if lWinControl = nil then
-          lWinControl := GetWindowInfo(LParam)^.AWinControl;
+          lWinControl := GetWindowInfo(HWND(LParam))^.AWinControl;
         if lWinControl is TCustomButton then
           case HIWORD(WParam) of
             BN_CLICKED:   LMessage.Msg := LM_CLICKED;