1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
|
unit main;
{$mode objfpc}{$H+}
interface
uses
Classes, ComCtrls, ExtCtrls, Spin, StdCtrls, SysUtils, FileUtil, Forms,
Controls, Graphics, Dialogs, TAGraph, TARadialSeries, TASeries, TASources,
TATools;
type
{ TForm1 }
TForm1 = class(TForm)
ChartPolar: TChart;
ChartPolarSeries1: TPolarSeries;
ChartPolarSeries2: TPolarSeries;
ChartPie: TChart;
ChartPiePieSeries1: TPieSeries;
ChartToolset1: TChartToolset;
cbRotate: TCheckBox;
cbMarkPositions: TComboBox;
cbCloseCircle: TCheckBox;
lblWords: TLabel;
lblLabelAngle: TLabel;
ListChartSource1: TListChartSource;
PageControl1: TPageControl;
Panel1: TPanel;
pnlPolar: TPanel;
RandomChartSource1: TRandomChartSource;
seWords: TSpinEdit;
seLabelAngle: TSpinEdit;
tsPolar: TTabSheet;
tsPie: TTabSheet;
procedure cbCloseCircleChange(Sender: TObject);
procedure cbMarkPositionsChange(Sender: TObject);
procedure cbRotateChange(Sender: TObject);
procedure ChartPieMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure seWordsChange(Sender: TObject);
procedure seLabelAngleChange(Sender: TObject);
end;
var
Form1: TForm1;
implementation
{$R *.lfm}
{ TForm1 }
procedure TForm1.cbCloseCircleChange(Sender: TObject);
begin
ChartPolarSeries1.CloseCircle := cbCloseCircle.Checked;
ChartPolarSeries2.CloseCircle := cbCloseCircle.Checked;
end;
procedure TForm1.cbMarkPositionsChange(Sender: TObject);
begin
ChartPiePieSeries1.MarkPositions :=
TPieMarkPositions(cbMarkPositions.ItemIndex);
end;
procedure TForm1.cbRotateChange(Sender: TObject);
begin
ChartPiePieSeries1.RotateLabels := cbRotate.Checked;
end;
procedure TForm1.ChartPieMouseDown(
Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
var
i: Integer;
begin
i := ChartPiePieSeries1.FindContainingSlice(Point(X, Y));
if i < 0 then exit;
ListChartSource1.SetXValue(i, 0.2 - ListChartSource1[i]^.X);
ChartPie.Invalidate;
end;
procedure TForm1.seWordsChange(Sender: TObject);
var
r: TMWCRandomGenerator;
function RandWord: String;
var
i: Integer;
begin
SetLength(Result, r.GetInRange(1, 5));
for i := 1 to Length(Result) do
Result[i] := Chr(r.GetInRange(Ord('a'), Ord('z')));
end;
var
i, j: Integer;
begin
r := TMWCRandomGenerator.Create;
try
r.Seed := 9823743;
for i := 0 to ListChartSource1.Count - 1 do
ListChartSource1[i]^.Text := '';
for j := 1 to seWords.Value do
for i := 0 to ListChartSource1.Count - 1 do
with ListChartSource1[i]^ do begin
if Text <> '' then
Text := Text + ' ';
Text := Text + RandWord;
end;
finally
r.Free;
end;
ChartPie.Invalidate;
end;
procedure TForm1.seLabelAngleChange(Sender: TObject);
begin
ChartPiePieSeries1.Marks.LabelFont.Orientation := seLabelAngle.Value * 10;
end;
end.
|
