From f73bf857305c58b4cb5cb04146af9de5aca0573a Mon Sep 17 00:00:00 2001
From: wp_xyz <wp_xxyyzzz@gmx.net>
Date: Wed, 21 Sep 2022 22:04:22 +0200
Subject: [PATCH] LCL/LCLTaskDialog: Replace hard-coded rgb colors by system
 colors.

---
 lcl/lcltaskdialog.pas | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/lcl/lcltaskdialog.pas b/lcl/lcltaskdialog.pas
index 860f4a55e9..935796243d 100644
--- a/lcl/lcltaskdialog.pas
+++ b/lcl/lcltaskdialog.pas
@@ -716,7 +716,7 @@ begin
       result.Font.Style := [fsBold]
     end else begin
       result.Font.Height := FontHeight-4;
-      result.Font.Color := $B00000;
+      result.Font.Color := clHighlight;
     end;
   end else
     result.Font.Height := FontHeight;
@@ -872,7 +872,7 @@ begin
     Panel.BorderStyle := bsNone;
     Panel.BevelOuter := bvNone;
     if not aEmulateClassicStyle then begin
-      Panel.Color := clWhite;
+      Panel.Color := clWindow;
     end;
     Par := Panel;
     // handle main dialog icon