Delphi中ChartFx构件使用详解

Delphi是一种新型可视化程序开发工具。它在功能上远远胜过VB，甚至被冠以VB杀手(VB Killer)的美
誉。理由之一就是Delphi可以轻松地安装和使用VB的VBX控件并转换VB程序为Delphi程序。
本文将就Delphi组件VBX页里ChartFx(图表)构件的特性和使用方法作一较为完备的阐述。相信对
读者建立美观的图表有所裨益，并会对Delphi的“属性管理”有更深一步的认识。
首先介绍一下工程上经常用到的直方图和饼图的概念。由于实际需要，常需比较一组数据或多组数据
的相对大小(如公司中各部门的收支情况比较、金融利率的调整情况等)。为了能够简洁直观地得到比
较结果，通常将这些数据放入直角坐标系，以纵坐标的相对大小比较数据，即所谓直方图；或是将各
数据转化为百分点，放入一个单位圆，即形成所谓饼图。
在Delphi组件VBX页中，ChartFx构件就是以上工程需要而设计的。选取该构件置于窗体上，调整
至合适大小，即可见到缺省的图表格式(在未初始化数据时，构件自动生成随机数据充当比较项目)。
在对象监视器中，设置不同的属性，还可以看到其它工具条。以下逐条解释各属性：
　　Nseries需比较的数据项的个数
　　Nvalues每个数据项中的子项目数
　　TitleDlg图表的标题设置对话框
　　AdmDlg图表构件绘图区上下左右边缘处注解设置对话框
　　FontDlg注解文字字体设置
　　BorderStyle图表构件的边框风格
　　Height、Width、Top、Left这四项设置图表构件在窗体中的位置及大小
　　BottomGap、TopGap、LeftGap、RightGap这四项设置图表构件绘图区的位置及大小
　　ChartType、pThpe、Style这三项设置图表构件及绘图区的类型与风格
　　Chart3D用以设置是否以三维形式显示数据
　　ViewRot3D设置观察三维图示的视角
　　WallWidth设置三维图示中X、Y、Z三壁的厚度
　　LinebkColor、LineColor、LineStyle、LineWidth设置线条的颜色和风格
　　PointType设置数据点的形状、类型
　　RGB3DBK、RGB2DBK、RGBBK、RGBBarHorz设置23维图示中背景色
　　Cursor设置绘图区光标形状
　　Decimals设置图表中数据显示的小数位数
　　Stacked设置图表中数据的归一化方式
　　Grid、VertGridGap设置坐标系的背景网格线
　　在制作同时比较多组数据的图表时，还需要设置以下属性：
　　FixedGap每个数据项之间间隔
　　ThisPoint数据项的次序
　　ThisSerie每个数据项中子数据项的次序
　　ThisBkColor、ThisColor颜色设置
　　余下的Visible、Hint、HelpContext、 Name、Tag等属性与其它构件相同，不再赘述。下面对
CustTool、ToolBar、PalleteBar、PatternBar几个关于图表中工具条设置的属性作简单介绍。
PalleteBar设为 True时生成的图表带有颜色设置工具条，即可在浏览图表时改变数据项颜色以适应不
同视觉需求。
　　PatternBar设为 True时生成的图表带有图案设置工具条，作用同上。
　　ToolBar设为 True时生成的图表带有一个功能
　　强大的工具条，其上加速键能完成的功能有：从数据文件读入比较数据、输出数据到数据文件、
图表打印、在直方图饼图离散点图曲线拟合图之间切换、23维切换、改变视角、以表格方式浏
览、修改数据等等。丰富的功能节省了程序员的开发时间，使用极为方便(工具条上每个加速键都有
Hint提示)。
　　CustTool在该属性里可以设置需要使用的功能项，Delphi自动去除未选取的加速键。
到目前为止，读者对ChartFx构件的属性已有了一定的了解，可以设计较为复杂的图表了，但还不能真
正制作实用的图表，因为我们还未介绍如何初始化数据。同时读者可能还发现了这么个问题：当数据
较多以致构件空间容纳不下怎么办?我们举一实例来说明这两个问题。假定某校要比较全校40个班级
某一学期班平均成绩，40个班的平均分和名称(实验班、初一(2)等)分别存放在两个数组Data［39］、
Class Name［39］中。在窗体FormCreat事件中加入以下代码：
　　 For i:=0 to 39 Do Begin
　　ChartFx 1.OpenData［COD-VALUES］:=makelong(1,40);
　　 With ChartFx1 Do Begin
　　ThisSerie:=0;
　　Value［i］:=Data［i］;
　　Legend［i］:=ClassName［i］;
　　CloseData［COD-VALUES］:=0;
　　 End;
　　 End;
　　按F9执行，我们发现图表并未显示全部40个数据，而是在绘图区下方出现了滚行条，滚动此条就
可以浏览全部数据，Delphi轻松地解决了这个问题。在绘图区的右方则出现了一个注解框，显示每个
数据项编号所对应的班级名称。
若设置ChartType为Bar，则每个数据项都用一个有一定高度(此高度由初始化数据及归一化方
式决定)的彩色矩形条来表示。用鼠标双击矩形条即显示对应数据，显示方式由DblClkDlg和RigClkDlg
设定。
现在，整个图表的建立已全部完成。只需稍动脑筋，我们即可将前述内容集成到一个函数体
DLL中，从而可以建立一个通用的图表程序。调用时只需将数据传入即可。