From 321ebdb04732981b91e3e9a5ba683c67dc05562e Mon Sep 17 00:00:00 2001
From: wp_xxyyzz <wp_xxyyzz@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Mon, 21 Mar 2022 23:05:05 +0000
Subject: [PATCH] tvplanit: Fix incorrect background color of analog TVpClock

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@8217 8e941d3f-bd1b-0410-a28a-d453659cc2b4
---
 components/tvplanit/source/vpclock.pas | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/components/tvplanit/source/vpclock.pas b/components/tvplanit/source/vpclock.pas
index e9f58905e..3d7ec1f94 100644
--- a/components/tvplanit/source/vpclock.pas
+++ b/components/tvplanit/source/vpclock.pas
@@ -939,7 +939,10 @@ var
 
 begin
   with ckDraw.Canvas do begin
-    Brush.Color := Color;
+    if Color = clDefault then
+      Brush.Color := GetDefaultColor(dctBrush)
+    else
+      Brush.Color := Color;
     Pen.Color := FHandOptions.HourHandColor;
     Pen.Width := 1;
     FillRect(ClientRect);