不記得是從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.  

慧都2010促銷季開幕，TeeChart for .NET 8折促銷！詳情咨詢：400-700-1020或023-66090381，活動詳情：//fc6vip.cn/zh-CN/Products_cn/TeeChart_chinese.html