paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-28 15:20:49 +02:00
Code Issues Packages Projects Releases Wiki Activity

TAChart: Decode system colors in text elements.

Browse Source 
git-svn-id: trunk@65379 -
This commit is contained in:
wp 2021-07-05 22:58:31 +00:00
parent 3e9e2bbd3e
commit becaac9c5d
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
components/tachart/tatextelements.pas
View File

@ -365,7 +365,8 @@ begin
ADrawer.ClippingStop; ADrawer.ClippingStop;
DrawLink(ADrawer, ADataPoint, ALabelCenter); DrawLink(ADrawer, ADataPoint, ALabelCenter);
ADrawer.Brush := GetLabelBrush; with GetLabelBrush do
ADrawer.SetBrushParams(Style, ColorToRGB(Color));
if IsMarginRequired then begin if IsMarginRequired then begin
if GetFrame.Visible then if GetFrame.Visible then
ADrawer.Pen := GetFrame ADrawer.Pen := GetFrame