From 2721a7be42993eb7f0b7cb4cce98da3531cd37b7 Mon Sep 17 00:00:00 2001
From: paul <paul@lazarus-ide.org>
Date: Thu, 22 Jan 2009 14:40:36 +0000
Subject: [PATCH] win32: apply font color when painting a bitbtn (bug #0010601)

git-svn-id: trunk@18391 -
---
 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 600467d7cd..e57c6571e0 100644
--- a/lcl/interfaces/win32/win32wsbuttons.pp
+++ b/lcl/interfaces/win32/win32wsbuttons.pp
@@ -212,7 +212,7 @@ var
       end;
     end;
     SetBkMode(hdcNewBitmap, TRANSPARENT);
-    SetTextColor(hdcNewBitmap, 0);
+    SetTextColor(hdcNewBitmap, ColorToRGB(BitBtn.Font.Color));
     {$IFDEF WindowsUnicodeSupport}
     if UnicodeEnabledOS then
     begin