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

TAChart: Fire OnCustomDrawPie event also when top faces of a pie series are drawn.

Browse Source 
git-svn-id: trunk@60757 -
This commit is contained in:
wp 2019-03-24 10:40:31 +00:00
parent 18953aeb37
commit f11f384ce4
1 changed files with 4 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
components/tachart/taradialseries.pas
View File

@ -645,18 +645,11 @@ begin
end; end;
ADrawer.SetPen(EdgePen); ADrawer.SetPen(EdgePen);
for ps in FSlices do begin for ps in FSlices do
if not ps.FVisible then continue; if ps.FVisible then begin
ADrawer.SetBrushParams(bsSolid, SliceColor(ps.FOrigIndex)); ADrawer.SetBrushParams(bsSolid, SliceColor(ps.FOrigIndex));
//DrawSlice(ps);
if FInnerRadiusPercent = 0 then
ADrawer.RadialPie(
ps.FBase.X - r.x, ps.FBase.Y - r.y,
ps.FBase.X + r.x, ps.FBase.Y + r.y,
RadToDeg16(ps.FPrevAngle), RadToDeg16(ps.Angle))
else
DrawSlice(ps); DrawSlice(ps);
end; end;
if not Marks.IsMarkLabelsVisible then exit; if not Marks.IsMarkLabelsVisible then exit;
for ps in FSlices do begin for ps in FSlices do begin