paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-25 13:49:16 +02:00
Code Issues Packages Projects Releases Wiki Activity

TAChart: Make TBarSeries use datapoint color without overriding style color.

Browse Source 
git-svn-id: trunk@60442 -
This commit is contained in:
wp 2019-02-16 22:37:02 +00:00
parent 7dd969b437
commit 87be7a4818
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
components/tachart/taseries.pas
View File

@ -79,9 +79,9 @@ type
constructor Create(AOwner: TComponent); override;
destructor Destroy; override;
public
function GetBarWidth(AIndex: Integer): Integer;
procedure Draw(ADrawer: IChartDrawer); override;
function Extent: TDoubleRect; override;
function GetBarWidth(AIndex: Integer): Integer;
function GetNearestPoint(const AParams: TNearestPointParams;
out AResults: TNearestPointResults): Boolean; override;
published
@ -1135,13 +1135,13 @@ var
c: TColor;
ic: IChartTCanvasDrawer;
begin
ADrawer.Brush := BarBrush;
ADrawer.Pen := BarPen;
if Styles <> nil then
Styles.Apply(ADrawer, stackIndex);
ADrawer.Brush := BarBrush;
c := Source[pointIndex]^.Color;
if c <> clTAColor then
ADrawer.BrushColor := c;
if Styles <> nil then
Styles.Apply(ADrawer, stackIndex);
sz := Size(AR);
if (sz.cx <= 2) or (sz.cy <= 2) then begin
// Bars are too small to distinguish the border from the interior.