From ece83ca9dfbf6114fca7eb07b91642854398771f Mon Sep 17 00:00:00 2001
From: micha <micha@lazarus-ide.org>
Date: Sun, 17 Oct 2004 14:53:48 +0000
Subject: [PATCH] use font/brush of "parent", if this is a buddy window

git-svn-id: trunk@6151 -
---
 lcl/interfaces/win32/win32callback.inc | 5 +++++
 1 file changed, 5 insertions(+)

diff --git a/lcl/interfaces/win32/win32callback.inc b/lcl/interfaces/win32/win32callback.inc
index 5c350004ce..53e36458aa 100644
--- a/lcl/interfaces/win32/win32callback.inc
+++ b/lcl/interfaces/win32/win32callback.inc
@@ -441,6 +441,8 @@ Begin
     WM_CTLCOLORMSGBOX..WM_CTLCOLORSTATIC:
     Begin
       MsgObject := TObject(GetProp(LParam, 'Wincontrol'));
+      if MsgObject = nil then
+        MsgObject := TObject(GetProp(LParam, 'AWincontrol'));
       if MsgObject is TWinControl then
       begin
         Windows.SetTextColor(HDC(WParam), Windows.COLORREF(ColorToRGB(TWinControl(MsgObject).Font.Color)));
@@ -1276,6 +1278,9 @@ end;
 
 {
   $Log$
+  Revision 1.144  2004/10/17 14:53:48  micha
+  use font/brush of "parent", if this is a buddy window
+
   Revision 1.143  2004/10/15 09:51:09  micha
   splitup of CreateComponent to widgetset CreateHandle methods