paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-30 01:29:20 +02:00
Code Issues Packages Projects Releases Wiki Activity

TAChart: Draw pie-specific legend item for pie series. Update demo.

Browse Source 
git-svn-id: trunk@31393 -
This commit is contained in:
ask 2011-06-26 07:25:56 +00:00
parent 980591b46b
commit ac09dbf6fd
3 changed files with 59 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
components/tachart/demo/legend/main.lfm
View File

@ -55,6 +55,7 @@ object Form1: TForm1
Legend.Multiplicity = lmPoint
Marks.Format = '%2:s %1:.2f%%'
Marks.Style = smsLabelPercent
Title = 'Pie'
Exploded = True
Source = ListChartSource2
end

2
components/tachart/demo/legend/main.pas
View File

@ -72,7 +72,7 @@ begin
r := Bounds(
ARect.Left, ARect.Top, Chart1.Legend.SymbolWidth, cbSeries.ItemHeight);
id.Pen := Chart1.Legend.SymbolFrame;
(FItems[Index] as TLegendItem).Draw(id, r);
FItems[Index].Draw(id, r);
end;
procedure TForm1.cbUseSidebarChange(Sender: TObject);

63
components/tachart/taradialseries.pas
View File

@ -26,6 +26,18 @@ uses
TAChartUtils, TACustomSeries, TADrawUtils, TALegend;
type
{ TLegendItemPie }
TLegendItemPie = class(TLegendItem)
private
FColors: array [0..2] of TChartColor;
procedure SetColors(AIndex: Integer; AValue: TChartColor);
public
procedure Draw(ADrawer: IChartDrawer; const ARect: TRect); override;
property Colors[AIndex: Integer]: TChartColor write SetColors;
end;
{ TLegendItemPieSlice }
TLegendItemPieSlice = class(TLegendItem)
@ -127,6 +139,41 @@ uses
Math,
TACustomSource, TAGeometry, TAGraph;
procedure TLegendItemPie.Draw(ADrawer: IChartDrawer; const ARect: TRect);
const
INDEX_TO_ANGLE = 360 * 16 / Length(FColors);
var
c: TPoint;
w, h: Integer;
r: TRect;
i: Integer;
begin
inherited Draw(ADrawer, ARect);
c := CenterPoint(ARect);
r := ARect;
w := Abs(r.Right - r.Left);
h := Abs(r.Bottom - r.Top);
if w > h then begin
r.Left := c.X - h div 2;
r.Right := c.X + h div 2;
end
else begin
r.Top := c.Y - w div 2;
r.Bottom := c.Y + w div 2;
end;
for i := 0 to High(FColors) do begin
ADrawer.SetBrushColor(FColors[i]);
ADrawer.RadialPie(
r.Left, r.Top, r.Right, r.Bottom,
Round(i * INDEX_TO_ANGLE), Round(INDEX_TO_ANGLE));
end;
end;
procedure TLegendItemPie.SetColors(AIndex: Integer; AValue: TChartColor);
begin
FColors[AIndex] := AValue;
end;
{ TLegendItemPieSlice }
procedure TLegendItemPieSlice.Draw(ADrawer: IChartDrawer; const ARect: TRect);
@ -229,14 +276,15 @@ end;
procedure TCustomPieSeries.GetLegendItems(AItems: TChartLegendItems);
var
i: Integer;
br: TLegendItemBrushRect;
p: TLegendItemPie;
ps: TLegendItemPieSlice;
begin
case Legend.Multiplicity of
lmSingle: begin
br := TLegendItemBrushRect.Create(nil, Title);
br.Color := SliceColor(0);
AItems.Add(br);
p := TLegendItemPie.Create(Title);
for i := 0 to 2 do
p.Colors[i] := SliceColor(i);
AItems.Add(p);
end;
lmPoint:
for i := 0 to Count - 1 do begin
@ -307,8 +355,11 @@ const
clRed, clGreen, clYellow, clBlue, clWhite, clGray, clFuchsia,
clTeal, clNavy, clMaroon, clLime, clOlive, clPurple, clSilver, clAqua);
begin
Result := ColorDef(
Source[AIndex]^.Color, SLICE_COLORS[AIndex mod Length(SLICE_COLORS)]);
if AIndex < Count then
Result := Source[AIndex]^.Color
else
Result := clTAColor;
Result := ColorDef(Result, SLICE_COLORS[AIndex mod Length(SLICE_COLORS)]);
end;
function TCustomPieSeries.TryRadius(ADrawer: IChartDrawer): TRect;