paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-14 06:39:12 +02:00
Code Issues Packages Projects Releases Wiki Activity

TAChart: Legend resolves clDefault (better dark mode). Default Chart.Color is clForm now.

Browse Source 
git-svn-id: trunk@64664 -
This commit is contained in:
wp 2021-02-24 22:41:15 +00:00
parent 0b71099783
commit 99b12d5c6b
2 changed files with 7 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
components/tachart/tagraph.pas
View File

@ -475,7 +475,7 @@ type
property Anchors; property Anchors;
property BiDiMode; property BiDiMode;
property BorderSpacing; property BorderSpacing;
property Color default clWindow; property Color default clForm;
property Constraints; property Constraints;
property DoubleBuffered; property DoubleBuffered;
property DragCursor; property DragCursor;
@ -727,7 +727,7 @@ begin
Height := DEFAULT_CHART_HEIGHT; Height := DEFAULT_CHART_HEIGHT;
FSeries := TChartSeriesList.Create; FSeries := TChartSeriesList.Create;
Color := clWindow; Color := clForm;
FBackColor := clWindow; FBackColor := clWindow;
FIsZoomed := false; FIsZoomed := false;
FLegend := TChartLegend.Create(Self); FLegend := TChartLegend.Create(Self);

8
components/tachart/talegend.pas
View File

@ -697,9 +697,11 @@ begin
drawer.SetTransparency(Transparency); drawer.SetTransparency(Transparency);
try try
drawer.Brush := BackgroundBrush; drawer.Brush := BackgroundBrush;
if Frame.Visible then if Frame.Visible then begin
drawer.Pen := Frame drawer.Pen := Frame;
else if Frame.Color = clDefault then
drawer.SetPenColor(FOwner.GetDefaultColor(dctFont));
end else
drawer.SetPenParams(psClear, clTAColor); drawer.SetPenParams(psClear, clTAColor);
r := AData.FBounds; r := AData.FBounds;
drawer.Rectangle(r); drawer.Rectangle(r);