Teechart图表应用技术详解—第四章之综合应用实例

本教程转自屈景辉的Teechart应用技术详解——快速图表制作工具一书。本文将会介绍工具三维综合应用实例。本例将其他类工具放在一个窗口中演示。下面就界面布局、属性设定、使用效果三个方面介绍其使用方法。

Steema公司和科技针对中国市场联合推出中文版TeeChart for .NET图表控件，一共汉化2000个词条（17000个单词），汉化文档35000个单词，包括控件设计时与运行时的界面汉化以及控件使用向导文档的汉化，总汉化90%以上！

TeeChart for .NET中文版让您在使用和学习上没有任何语言障碍，至少可以节省30%的开发时间。TeeChart for .NET中文版具有易上手，使用方便，稳定性好，性价比高，价格优惠等优势，并且针对Web应用提供无限制服务器分发授权方式，非常有利于产品集成。

TeeChart for .NET最新试用版

综合应用实例

本例将其他类工具放在一个窗口中演示。下面就界面布局、属性设定、使用效果三个方面介绍其使用方法。

演示程序设计阶段界面窗口的左边采用PageControl页面控制组件放置了8个活动页面，用于显示8个图表工具演示时的参数设定：右边放置了Chart组件显示各个工具的使用效果窗口底部的8个多选框是8个工具的使用开关和初始参数设定，也就是说，当多选框选中了的工具才是被激活可用的，否则是不可用的。实例设计阶段的界面如表1所示，有关属性设定参考表2，详细内容参看程序清单中的注释语句。

表1.实例程序中主要组件的属性设定

组件名称	属性	设定值	说明
Chart1	用ChartEditor增加序列Series1、Series2、设定面板、增加8种工具组件，其名称分别为 ChartTool1~ChartTool8
PageControl2	右键弹出菜单增加TabSheet1~TabSheet8个页面，取默认名称Name
Series1	Gallery	TPointSeries	点型序列
Series2	Gallery	TSurfaceSeries	面型（三维）
ChartEditor1	Chart	Chart1	运行中调用图表编辑器
ChartListBox1	Chart	Chart1	图标列表框
ChartPageNavigator	Chart	Chart1	页面导航器
TeeInspactor1	Name	TeeInspactor1	内容设定看程序清单
ColorDialog1	Name	ColorDialog1	颜色对话框
TabSheet1/Checkbox1	Caption	光源	CheckBox的Checked均为false
TabSheet2/Checkbox2	Caption	三维转置
TabSheet3/Checkbox3	Caption	注释工具
TabSheet4/Checkbox4	Caption	图例滚动条
TabSheet5/Checkbox5	Caption	页码工具
TabSheet6/Checkbox6	Caption	矩形工具
TabSheet7/Checkbox7	Caption	旋转工具
TabSheet8/Checkbox8	Caption	选择器
Button1~Button5	命令按钮，参看源程序的注释
ComboBox1~ComboBox7	参数选择设定
Edit1~Edit5	格式字符、文本等内容编辑
SpinEdit1~SpinEdit3	设定有关数值

表1.ComboBox1~ComboBox8的OnClick事件中的代码

工具	组件	代码与注释
光源工具	Checkbox1	Chart1.Title.Text.Text:=’光源工具演示’ ChartTool3.Active:=CheckBox1.Checked;//激活指定工具 PageControl1.ActivePage:=TabSheet1;//激活指定页面 TrackBar2.Max:= ChartTool1.ParentChart.Width;//设定控制参数 TrackBar2.Position:=ChartTool1.ParentChart.Width div 2; TrackBar3.Max:=ChartTool1.ParentChart.Height; TrackBar3.Position:=ChartTool1.ParentChart.Height div 2; ChartTool1.Left:= TrackBar2.Position; ChartTool1.Top:=TrackBar3.Position; ChartTool.Style: = IsLinear;
三维转置工具	Checkbox2	Chart.Title.Text.Text:=’三维转置工具演示’； ChartTool2.Active:=CheckBox2. Checked; PageControl1.ActivePage:=TabSheet2;//显示三维转置页 if CheckBox2.Checked then//3D图表上TPointSeries序列不可用 begin Series1.Visible:=false; Series2.Visible: =true; Series2.FillSample Values(50);//设定初始值 end else begin Series2.Visible: =true; Series2.Visible: =false;
注释工具	Checkbox3	Chart1.Title.Text.Text:=’注释工具演示’; CheckTool3.Active:=CheckBox3.Checked; PageControl1.ActivePage:=TabSheet3;//显示注释工具页
图例滚动	Checkbox4	Chart1.Title.Text.Text:=’图例滚动条工具演示’; CheckTool4.Active:=CheckBox4.Checked; PageControl1.ActivePage:=TabSheet4;//显示图例滚动条页
页码工具	Checkbox5	Chart1.Title.Text.Text:=’页码工具演示’; CheckTool5.Active:=CheckBox5.Checked; PageControl1.ActivePage:=TabSheet5; Chart1.MaxPointsPerPage:=5;//设定每页显示最多点数，测试页码 ChartTool5.Format:=string(Edit1.Text)
矩形工具	Checkbox6	Chart1.Title.Text.Text:=’矩形工具演示’; CheckTool6.Active:=CheckBox6.Checked; PageControl1.ActivePage:=TabSheet6;//显示图例滚动工具
旋转工具	Checkbox7	Chart1.Title.Text.Text:=’旋转工具演示’; CheckTool7.Style:=rsAll;//设定旋转工具初始设定 CheckTool7.Inverted:=false CheckTool7.Active:=CheckBox7.Checked;//显示旋转工具页 PageControl1.ActivePage:=TabSheet7;
选择工具	Checkbox8	Chart1.Title.Text.Text:=’选择器工具演示’; CheckTool8.Active:=CheckBox8.Checked; PageControl1.ActivePage:=TabSheet8;//显示选择器页