paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-03 11:20:23 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE: Designer: Use clWindowText as color for control text like components, requested in German Lazarusforum

Browse Source 
git-svn-id: trunk@64833 -
This commit is contained in:
michl 2021-03-17 21:49:18 +00:00
parent 60109e3de5
commit 66d4faff93
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
designer/designer.pp
View File

@ -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;