From c0109e8c01d1534d4c4c9375e5fb0823956c7e6b Mon Sep 17 00:00:00 2001
From: martin <laz.git@mfriebe.de>
Date: Wed, 7 Jan 2009 18:54:51 +0000
Subject: [PATCH] Fix RangeCheck, introduced in rev 18190 #12e937579c

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

diff --git a/lcl/interfaces/win32/win32wsbuttons.pp b/lcl/interfaces/win32/win32wsbuttons.pp
index dc4635f98a..600467d7cd 100644
--- a/lcl/interfaces/win32/win32wsbuttons.pp
+++ b/lcl/interfaces/win32/win32wsbuttons.pp
@@ -388,7 +388,7 @@ begin
   case Msg of
     WM_GETFONT:
       begin
-        Result := Control.Font.Reference.Handle;
+        Result := LResult(Control.Font.Reference.Handle);
       end;
     else
       Result := WindowProc(Window, Msg, WParam, LParam);