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
|
unit Main;
{$mode objfpc}{$H+}
interface
uses
Classes, ExtCtrls, StdCtrls, SysUtils, FileUtil, LResources, Forms, Controls,
Graphics, Dialogs, TAGraph, TASeries, TASources;
type
{ TForm1 }
TForm1 = class(TForm)
Bevel1: TBevel;
cbRotateBar: TCheckBox;
cbNegative: TCheckBox;
cbRotateArea: TCheckBox;
Chart1: TChart;
Chart1AreaSeries1: TAreaSeries;
Chart1BarSeries1: TBarSeries;
Chart1LineSeries1: TLineSeries;
cbRotateLine: TCheckBox;
cbMarkPositions: TComboBox;
lblMarkPositions: TLabel;
Panel1: TPanel;
RandomChartSource1: TRandomChartSource;
procedure cbMarkPositionsChange(Sender: TObject);
procedure cbNegativeChange(Sender: TObject);
procedure cbRotateAreaChange(Sender: TObject);
procedure cbRotateBarChange(Sender: TObject);
procedure cbRotateLineChange(Sender: TObject);
end;
var
Form1: TForm1;
implementation
{$R *.lfm}
uses
TACustomSeries;
procedure Rotate(ASeries: TBasicPointSeries);
var
t: Integer;
begin
with ASeries do begin
t := AxisIndexX;
AxisIndexX := AxisIndexY;
AxisIndexY := t;
end;
end;
{ TForm1 }
procedure TForm1.cbMarkPositionsChange(Sender: TObject);
begin
Chart1LineSeries1.MarkPositions :=
TLinearMarkPositions(cbMarkPositions.ItemIndex);
end;
procedure TForm1.cbNegativeChange(Sender: TObject);
begin
RandomChartSource1.YMin := -RandomChartSource1.YMin;
end;
procedure TForm1.cbRotateAreaChange(Sender: TObject);
begin
Rotate(Chart1AreaSeries1)
end;
procedure TForm1.cbRotateBarChange(Sender: TObject);
begin
Rotate(Chart1BarSeries1)
end;
procedure TForm1.cbRotateLineChange(Sender: TObject);
begin
Rotate(Chart1LineSeries1)
end;
end.
|
