Delphi 7自带的TeeChart组件

        Delphi 7自带的TeeChart组件版本为4.04，为标准版，虽然现在来说已经比较过时了，但是对于学习图表的使用，还是蛮不错的，下面开始进入建立一个TeeChart图表应用程序。

1.打开Delphi 7新建应用程序，在Additional面板拖动Chart组件到窗体上，右键点击可以看到其版本信息，如下图所示：

2.右键选择“Edit Chart...”进入编辑图标对话框，在'Series'面板右边点击'Add'，弹出'TeeChart Gallery'，默认显示3D图表，可以在下面去掉'3D'勾选项即变为2D，如下图所示：


3.选中第二个'Bar'，然后'OK'返回，即可在窗体上看到TChart组件绘制成柱状图，并且使用了一些示例数据，如下图所示：

4.切换'Editing cht1'最上面的'Series'面板，可以设置柱状图的格式和数据源等等，如下图所示：

TChart组件的主要属性：

运行期□/关键属性▲	属性	含义	默认值
	AllowPanning	运行时滚动	pmBoth
	AllowZoom	是否通过鼠标拖动来缩放图表	TRUE
	AnimatedZoom	是否缩放动画过程	FALSE
	AnimatedZoomSteps	动画步长	8
▲	AxisVisible	四个子图表可见	TRUE
	BackColor	图表框内背景颜色	clDefault
	BackImage	背景图像
	BackImageInside	是否只在图表框显示背景图像	FALSE
	BackImageMode	背景图像显示模式	pbmStretch
	BackWall	图表背景的绘画属性
	BottomAxis	图表底部标签及格式
	BottomWall	图表底边的绘画属性
▲	BufferedDisplay	是否利用缓冲区绘制图表	TRUE
	CancelMouse	是否让鼠标有双重功能	TRUE
□▲	Canvas	画布对象
	Chart3dPercent	设置图表尺寸和图表深度的显示比例，为1~100	15
□	ChartBounds	确定图表边框
□	ChartHeight	以像素为单位显示图表顶轴和底轴的高度
□	ChartRect	图表客户区大小
□	ChartWidth	以像素为单位显示图表左轴和右轴的高度
	ClipPoints	确定图表边界上点的绘制，防止其他图表区域覆盖	TRUE
	Color	确定图表的背景颜色	clBtnFace
	DepthAxis	图表Z轴的标签和格式
	Foot	图表底部定义的文本和格式
	Frame	设置图表的框架
	Gradient	设置图表的背景色，渐变方向
□	Height3D	以像素为单位的图表3D高度
	LeftAxis	图表左边标签和格式
	LeftWall	图表左边的绘图属性
	Legend	图表的图例属性
	MarginBottom	底边距	4
	MarginLeft	左边距	3
	MarginRight	右边距	3
	MarginTop	上边距	4
▲	MaxPointsPerPage	每页显示的点数	0
□	MaxZOrder	最大的Z轴顺序
	Monochrome	是否以单色显示	FALSE
	MonochromePrinting	是否单色显示打印	TRUE
	OriginalCursor	返回原始的Cursor属性
□	Printing	是否图表正在被绘制
□	PrintMargins	设置打印机的边距	( 15, 15, 15, 15 )
□	PrintResolution	设置打印时屏幕像素如何映射到打印机像素	0
	RightAxis	图表的右边标签和格式
	ScaleLastPage	控制图表的最后一页如何被显示	True
□	Series	存储图表
□	SeriesHeight3D	确定图表的3D高度
▲	SeriesList	存储图表的指针
□	SeriesWidth3D	确定图表的3D宽度
	Title	设置图表标题
	TopAxis	图表的上边标签和格式
▲	View3d	是否使用3D显示图表	TRUE
	View3DOptions	控制图表的旋转、滚动、缩放等
	View3dWalls	控制左方和右方的3D效果	TRUE
□	Width3D	以像素为单位确定3D效果的宽度

主要方法：

关键方法▲	方法	含义
	ActiveSeriesLegend	返回激活的TChartSeries组件
▲	AddSeries	向Tchart添加新的图表
	Assign
	BackWallRect
	CalcClickedpart
	CalcSize3d
	CalcSize3dWalls	计算Tchart组件左方宽度和下方高度
	CanvasChanged
	ChartPrintRect
	ChartRegionRect
	ChartXCenter	返回图表中心的X坐标
	ChartYCenter
▲	CheckDatasource
	CopyToClipBoardBitmap
	CopyToClipBoardMetafile
	ExchangeSeries	交换两个图表的顺序
	FontCanvas
	FormattedLegend
	FormattedValueLegend
	GetASeries
	GetAxisSeries
	GetCursorPos
	GetFreeSeriesColor
	GetLabelsSeries
	GetRectangle	返回图表面板的边框矩形大小
	GetWidthHeight
	IsFreeSeriesColor	确定参数Acolor所代表的颜色是否被图表使用
	IsScreenHighColor	测试当前系统颜色模式，超过256色返回True
	IsValidDataSource	确定一个组件是否合法以提供数据给Series
	MarkText
	MaxMarkWidth	图表标记的最大宽度
	MaxTextWidth	最大文本标签宽度
	MaxXValue
	MaxYValue
	MinXValue
	MinYValue
	NextPage	下一页
	NumPages	页总数
	PreviousPage	上一页
▲	Print	打印
	PrintLandscape	横向打印
	PrintOrientation
	PrintPartial
	PrintPartialCanvas
	PrintPartialCanvasToScreen
	PrintPortrait
	PrintRect	将图表缩放到指定的矩形，再打印
	ReCalcWidthHeight	重新计算ChartHeight和ChartWidth
	RemoveAllSeries	移除所有图表，但不释放
	RemoveSeries	移除标识的图表
	RotateLabel
	SaveChartToFile
	SaveToBitmapFile	保存到位图
	SaveToMetafile	保存到图元文件
	SaveToMetafileEnh
	SeriesCount	图表数量
	SeriesDown	图表顺序下移
	SeriesTitleLegend	返回图表标题Series.Title字符串
	SeriesUp	图表顺序上移
	SetInternalCanvas
	Size3d
	TeeCreateMetafile
	UndoZoom	取消缩放
	XLabelText
	ZoomPercent	按百分比缩放
	ZoomRect

主要事件：

关键事件	方法	含义
	OnAfterDraw	绘制完所有的序列后发生该事件
	OnAllowScroll
	OnClick
	OnClickAxis	单击轴事件
	OnClickBackground
	OnClickLegend	单击图例事件
	OnClickSeries	单击序列事件
	OnDblClick	双击事件
	OnGetAxisLabel	当绘制轴标签发生的事件
	OnGetLegendPos	当图例将被显示时的事件
	OnGetLegendRect
	OnGetLegendText	重载图例绘制字符串
	OnGetNextAxisLabel	定制轴标签
	OnMouseDown
	OnMouseUp
	OnPageChange	页切换事件
	OnResize	组件大小改变后发生的事件
	OnScroll	滚动事件
	OnUndoZoom
	OnZoom	缩放事件