From 66d4faff935471393a375b613fd2b64dde282e28 Mon Sep 17 00:00:00 2001
From: michl <michl@lazarus-ide.org>
Date: Wed, 17 Mar 2021 21:49:18 +0000
Subject: [PATCH] IDE: Designer: Use clWindowText as color for control text
 like components, requested in German Lazarusforum

git-svn-id: trunk@64833 -
---
 designer/designer.pp | 1 +
 1 file changed, 1 insertion(+)

diff --git a/designer/designer.pp b/designer/designer.pp
index 4761f3a15b..3b4ebaf368 100644
--- a/designer/designer.pp
+++ b/designer/designer.pp
@@ -3628,6 +3628,7 @@ begin
       else
         Icon.Canvas.Brush.Color := clBtnFace;
       Icon.Canvas.FillRect(TextRect);
+      Icon.Canvas.Font.Color := clWindowText;
       DrawText(Icon.Canvas.Handle, PChar(AComponent.Name), -1, TextRect,
         DT_CENTER or DT_VCENTER or DT_SINGLELINE or DT_NOCLIP);
       TextRect.Left := (ItemLeft + ItemRight - LongInt(Round(TextSize.cx/ScaleFactor))) div 2;