From 4654108191385b72a8ef31969a7754ddda412317 Mon Sep 17 00:00:00 2001
From: vincents <vincents@lazarus-ide.org>
Date: Wed, 4 Apr 2007 20:52:10 +0000
Subject: [PATCH] win32 interface: fixed range error (HDC: unsigned; WPARAM:
 signed)

git-svn-id: trunk@10872 -
---
 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 ce5f3f0b9c..cee9f2cac0 100644
--- a/lcl/interfaces/win32/win32callback.inc
+++ b/lcl/interfaces/win32/win32callback.inc
@@ -1358,7 +1358,7 @@ begin
             and (lWinControl <> nil) then
         begin
           // Groupbox (which is a button) doesn't erase it's background properly; force repaint
-          lWinControl.EraseBackground(WParam);
+          lWinControl.EraseBackground(HDC(WParam));
           LMessage.Result := 1;
         end else begin
           LMessage.Msg := LM_ERASEBKGND;