diff --git a/lcl/include/application.inc b/lcl/include/application.inc
index fd5ae6a08c..2f3a17553d 100644
--- a/lcl/include/application.inc
+++ b/lcl/include/application.inc
@@ -685,6 +685,7 @@ begin
     end;}
 
     FHintWindow.Color := HintInfo.HintColor;
+    //DebugLn(['TApplication.ShowHintWindow FHintWindow.Color=',dbgs(FHintWindow.Color),' HintInfo.HintColor=',dbgs(HintInfo.HintColor)]);
 
     //debugln('TApplication.ShowHintWindow B HintWinRect=',dbgs(HintWinRect),' HintStr="',DbgStr(HintInfo.HintStr),'"');
     FHintWindow.ActivateHint(HintWinRect,HintInfo.HintStr);
diff --git a/lcl/include/hintwindow.inc b/lcl/include/hintwindow.inc
index 654ec23dbf..2af781a95d 100644
--- a/lcl/include/hintwindow.inc
+++ b/lcl/include/hintwindow.inc
@@ -81,7 +81,9 @@ var
 begin
   ARect := ClientRect;
   Canvas.Brush.Color := Color;
+  //DebugLn(['THintWindow.Paint Canvas.Brush.Color=',dbgs(Canvas.Brush.Color)]);
   Canvas.Pen.Width := 1;
+  Canvas.FillRect(ARect);
   DrawEdge(Canvas.Handle, ARect, BDR_RAISEDOUTER, BF_RECT);
   InflateRect(ARect,-2*HintBorderWidth,-2*HintBorderWidth);
   DrawText(Canvas.GetUpdatedHandle([csFontValid]),