不记得是从7.0还是8.0,TeeChart提供了丰富的Tools.
这是一个纯用TeeChart的Tools实现的简易游标Demo.
本节后面会附上全部源码.
Clip Series:当Series被拖动超出了Axis的范围,则超出的部分不显示.
Cursor:十字,垂直,水平方向的游标,可以具体Snap任意Series的相应方向上的数据点.
Drag Marks:可以任意拖动位置的Marks.
Drag Point:可以任意移动绑定Series的数据点.
Draw Line:在Chart上画线.
Extra Legend:扩展Legend,可以在Chart再显示若干个Legend.
fibonnaci:斐波那契数
Gantt Drag:可拖动的甘特图
Image:图片
Legend Palette:用Series的颜色显示Legend颜色
Mark Tips:鼠标移动到Mark上,会显示出Hint提示.
Nearest Point:移动鼠标,会找到离鼠标最近的Series上的一点.
Pie Slices:移动鼠标到Pie Slices上,会高亮被鼠标移动到的slice.
Region:填充Series和某个值之间的区域.
Series Animation:显示动画,比如柱状图从0增加到设定值.
Series Band:填充2个Series之间的区域.
Statistics:统计资料,可以显示一个Series的一些统计资料.比如平均值,最大值,最小值,多少个值等等.
Surface Nearest:找到表面最近的点,并且高亮.
Axis Arrow:在Axis上添加2个方向的箭头,可以进行相应方向的Scroll操作.
Axis Scroll:可以用鼠标直接拖动Axis进行数据范围的变更.
Color Band:用彩色带填充Axis区域的背景颜色.
Color Line:用彩色线(可以允许拖动)显示在相应Axis的区域.
Grid Band:用2种颜色带交替填充相应Axis的区域.
2D Lighting:有点类似探照灯一样的效果...
3D Grid Transpose:交换3D Series的数据,行,列.
Annotation:注释,可以在Chart里任意位置显示一段文字.
Anti-Alias:平滑线的尖角.
Banner:横幅,可以实现滚动字.
Data Table:显示一个Series的数据表格.
Fader:淡入/淡出一个Chart.
Frame:显示一个包围Chart的框架(相框效果).
Full Screen:将Chart全屏显示,然后用Alt+F4或者Esc返回.
Legend Scrollbar:Legend的滚动条
Link:在Chart里显示一个超级链接.
Magnify:一个可以来回拖动的放大镜.
Page Number:显示Chart的当前页/总页数(也可以提供切换页的按钮).
Rectangle:一个可以拖动,可以改变大小的文字显示框.
Rotate:可以360度任意角度旋转Chart.
Selector:可以设置选择任何在Chart中的子组件,比如Title,Series等等.组合Hint,可以显示出选中的是什么组件.
SubChart:在Chart里再内置子Chart.
Text 3D:显示3D的注释.
Transpose Series:交换Series的行列.
Video Creator:创建一段Chart图像的AVI.
Video Player:在Chart里播放AVI.
下面是之前提到的Demo.
dfm文件:
1 object Form1: TForm1
2 Left = 192
3 Top = 190
4 Width = 870
5 Height = 500
6 Caption = 'Form1'
7 Color = clBtnFace
8 Font.Charset = DEFAULT_CHARSET
9 Font.Color = clWindowText
10 Font.Height = -11
11 Font.Name = 'MS Sans Serif'
12 Font.Style = []
13 OldCreateOrder = False
14 OnCreate = FormCreate
15 PixelsPerInch = 96
16 TextHeight = 13
17 object Button_FillData: TButton
18 Left = 744
19 Top = 48
20 Width = 75
21 Height = 25
22 Caption = '填充数据'
23 TabOrder = 0
24 OnClick = Button_FillDataClick
25 end
26 object CheckBox_Cursor: TCheckBox
27 Left = 752
28 Top = 88
29 Width = 57
30 Height = 17
31 Caption = '游标'
32 TabOrder = 1
33 OnClick = CheckBox_CursorClick
34 end
35 object CheckBox_LockY: TCheckBox
36 Left = 752
37 Top = 120
38 Width = 97
39 Height = 17
40 Caption = 'Lock Cursor Y'
41 TabOrder = 2
42 OnClick = CheckBox_LockYClick
43 end
44 object Chart1: TChart
45 Left = 24
46 Top = 32
47 Width = 681
48 Height = 409
49 Title.Text.Strings = (
50 'TChart')
51 TabOrder = 3
52 end
53 end
pas文件:
1 unit Unit1;
2
3 interface
4
5 uses
6 Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
7 TeEngine, Series, StdCtrls, ExtCtrls, TeeProcs, Chart, TeeTools;
8
9 type
10 TForm1 = class(TForm)
11 Button_FillData: TButton;
12 CheckBox_Cursor: TCheckBox;
13 CheckBox_LockY: TCheckBox;
14 Chart1: TChart;
15 procedure Button_FillDataClick(Sender: TObject);
16 procedure FormCreate(Sender: TObject);
17 procedure CheckBox_CursorClick(Sender: TObject);
18 private
19 { Private declarations }
20 FFLS1, FFLS2: TFastLineSeries;
21 FCursorTool: TCursorTool;
22 FAnnotationTool: TAnnotationTool;
23 procedure CursorChange(Sender:TCursorTool; x,y:Integer;
24 Const XValue,YValue:Double;
25 Series:TChartSeries;
26 ValueIndex:Integer);
27 public
28 { Public declarations }
29 end;
30
31 var
32 Form1: TForm1;
33
34 implementation
35
36 {$R *.DFM}
37
38 procedure TForm1.Button_FillDataClick(Sender: TObject);
39 begin
40 FFLS1.FillSampleValues(20);
41 FFLS2.FillSampleValues(20);
42 end;
43 const
44 LabelInv = 10;
45
46 procedure TForm1.CursorChange(Sender: TCursorTool; x, y: Integer;
47 const XValue, YValue: Double; Series: TChartSeries; ValueIndex: Integer);
48 var
49 Str: string;
50 TmpX, TmpY: Integer;
51 begin
52 FAnnotationTool.Visible := False;
53 if not Assigned(Series) then
54 Exit;
55 if Series.XValues.Count <= 0 then
56 Exit;
57 Str := Format('X Value = %.2f', [XValue]) + #13#10
58 + Format('%s YValue = %.2f',[FFLS1.Title, FFLS1.YValues[ValueIndex]]) + #13#10
59 + Format('%s YValue = %.2f',[FFLS2.Title, FFLS2.YValues[ValueIndex]]);
60 FAnnotationTool.Text := Str;
61 TmpX := x + LabelInv;
62 if TmpX + FAnnotationTool.Width > Chart1.ChartRect.Right - LabelInv then
63 TmpX := x - FAnnotationTool.Width - LabelInv;
64 if CheckBox_LockY.Checked then
65 begin
66 TmpY := Chart1.ChartRect.Top + LabelInv;
67 if TmpY + FAnnotationTool.Height > Chart1.ChartRect.Bottom - LabelInv then
68 TmpY := Chart1.ChartRect.Bottom - Height - LabelInv;
69 end
70 else
71 begin
72 TmpY := Chart1.GetCursorPos.y + LabelInv;
73 if TmpY + FAnnotationTool.Height > Chart1.ChartRect.Bottom - LabelInv then
74 TmpY := Chart1.ChartRect.Bottom - FAnnotationTool.Height - LabelInv;
75 end;
76 if TmpY < Chart1.ChartRect.Top + LabelInv then
77 TmpY := Chart1.ChartRect.Top + LabelInv;
78 FAnnotationTool.Top := TmpY;
79 FAnnotationTool.Left := TmpX;
80 FAnnotationTool.Visible := FCursorTool.Visible;
81 end;
82
83 procedure TForm1.FormCreate(Sender: TObject);
84 begin
85 //调整TeeChart属性
86 Chart1.Legend.Visible := True;
87 Chart1.Legend.Alignment := laTop;
88 Chart1.View3D := False;
89 Chart1.Zoom.Allow := False;
90 Chart1.AllowPanning := pmNone;
91 //创建Series
92 if not Assigned(FFLS1) then
93 begin
94 FFLS1 := TFastLineSeries.Create(Self);
95 FFLS1.ParentChart := Chart1;
96 FFLS1.Title := 'Test Series 1';
97 end;
98 if not Assigned(FFLS2) then
99 begin
100 FFLS2 := TFastLineSeries.Create(Self);
101 FFLS2.ParentChart := Chart1;
102 FFLS2.Title := 'Test Series 2';
103 end;
104 //创建Tools
105 FCursorTool := TCursorTool.Create(Chart1);
106 FCursorTool.ParentChart := Chart1;
107 FCursorTool.Active := False;
108 FCursorTool.Pen.Color := clRed;
109 FCursorTool.Style := cssVertical;
110 FCursorTool.Series := FFLS1;
111 FCursorTool.Snap := True;
112 FCursorTool.OnChange := CursorChange;
113
114 FAnnotationTool := TAnnotationTool.Create(Chart1);
115 FAnnotationTool.ParentChart := Chart1;
116 FAnnotationTool.Active := False;
117 FAnnotationTool.PositionUnits := muPixels;
118 FAnnotationTool.Shape.CustomPosition := True;
119 FAnnotationTool.Shape.Gradient.Visible := True;
120 FAnnotationTool.Shape.Transparency := 30;
121 end;
122
123 procedure TForm1.CheckBox_CursorClick(Sender: TObject);
124 begin
125 FCursorTool.Visible := CheckBox_Cursor.Checked;
126 FAnnotationTool.Visible := CheckBox_Cursor.Checked;
127 end;
128
129 end.