paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-06-26 22:28:42 +02:00
Code Issues Packages Projects Releases Wiki Activity

TAChart: Implement left/right mark positions for pie series

Browse Source 
git-svn-id: trunk@30573 -
This commit is contained in:
ask 2011-05-06 09:59:40 +00:00
parent bfb3e89980
commit 22f53e500e
1 changed files with 13 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
components/tachart/taradialseries.pas
View File

@ -38,7 +38,7 @@ type
FLabel: TLabelParams;
end;
TPieMarkPositions = (pmpAround, pmpInside);
TPieMarkPositions = (pmpAround, pmpInside, pmpLeftRight);
{ TCustomPieSeries }
@ -333,7 +333,12 @@ function TCustomPieSeries.TryRadius(ADrawer: IChartDrawer): TRect;
var
i: Integer;
p: TPointArray;
d: TPoint;
function Ofs(AAngle: Double): TPoint;
begin
Result := EndPoint(AAngle, Marks.Distance + LabelExtraDist(p, AAngle));
end;
begin
with ALabel do begin
FCenter := FAttachment;
@ -343,10 +348,13 @@ function TCustomPieSeries.TryRadius(ADrawer: IChartDrawer): TRect;
if RotateLabels then
Marks.SetAdditionalAngle(AAngle);
p := Marks.GetLabelPolygon(ADrawer, ADrawer.TextExtent(FText));
d := EndPoint(AAngle, Marks.Distance + LabelExtraDist(p, AAngle));
case MarkPositions of
pmpAround: FCenter += d;
pmpInside: FCenter -= d;
pmpAround:
FCenter += Ofs(AAngle);
pmpInside:
FCenter -= Ofs(AAngle);
pmpLeftRight:
FCenter += Ofs(IfThen(InRange(AAngle, Pi / 2, 3 * Pi / 2), Pi, 0));
end;
for i := 0 to High(p) do
ExpandRect(Result, p[i] + FCenter);