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;//顯示選擇器頁