From 1b38c456a8bf695de4a1dd0f28c7524dfdc6251a Mon Sep 17 00:00:00 2001
From: paul <paul@lazarus-ide.org>
Date: Sat, 15 May 2010 15:07:30 +0000
Subject: [PATCH] lcl: draw hintwindow with themes if color = clDefault

git-svn-id: trunk@25426 -
---
 lcl/include/hintwindow.inc | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lcl/include/hintwindow.inc b/lcl/include/hintwindow.inc
index 9b549e7310..4444badbf5 100644
--- a/lcl/include/hintwindow.inc
+++ b/lcl/include/hintwindow.inc
@@ -127,7 +127,7 @@ var
   Details: TThemedElementDetails;
 begin
   ARect := ClientRect;
-  if Color = clInfoBk then // draw using themes
+  if (Color = clInfoBk) or (Color = clDefault) then // draw using themes
   begin
     Details := ThemeServices.GetElementDetails(tttStandardLink);
     ThemeServices.DrawElement(Canvas.Handle, Details, ARect);