From cbbf6dfa12ac8be0242b213a126e928f2e859b59 Mon Sep 17 00:00:00 2001
From: paul <paul@lazarus-ide.org>
Date: Thu, 11 Nov 2010 10:22:49 +0000
Subject: [PATCH] wince: fix compilation (thanks to Dimitrios Chr. Ioannidis)

git-svn-id: trunk@28181 -
---
 lcl/interfaces/wince/wincecallback.inc | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lcl/interfaces/wince/wincecallback.inc b/lcl/interfaces/wince/wincecallback.inc
index 4cd67473cb..437f629bed 100644
--- a/lcl/interfaces/wince/wincecallback.inc
+++ b/lcl/interfaces/wince/wincecallback.inc
@@ -1303,7 +1303,7 @@ begin
           WindowColor := ChildWinControl.Brush.Color;
           if WindowColor = clDefault then
             WindowColor := ChildWinControl.GetDefaultColor;
-          Windows.SetBkColor(WindowDC, Windows.COLORREF(ColorToRGB(WindowColor)));
+          Windows.SetBkColor(HDC(WParam), Windows.COLORREF(ColorToRGB(WindowColor)));
           LMessage.Result := LResult(ChildWinControl.Brush.Reference.Handle);
           //DebugLn(['WindowProc ', ChildWinControl.Name, ' Brush: ', LMessage.Result]);
           // Override default handling