TChart生成一个简单的图标

November 9, 2012

4963views

2030 words

先在界面上拖一个Chart控件，把属性都设置好，通过代码添加数据即可。
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; cht1.Title.Text.Text:='销售业绩'; &nbsp;&nbsp;&nbsp;&nbsp;&nbsp; cht1.Series[0].AddXY(1, 56, '东门'); &nbsp;&nbsp;&nbsp;&nbsp;&nbsp; cht1.Series[0].AddXY(2, 67, '南门'); &nbsp;&nbsp;&nbsp;&nbsp;&nbsp; cht1.Series[0].AddXY(3, 34, '西门'); &nbsp;&nbsp;&nbsp;&nbsp;&nbsp; cht1.Series[0].AddXY(4, 78, '北门'); &nbsp;&nbsp;&nbsp;&nbsp;&nbsp; cht1.Series[0].AddXY(5, 100, '市中心');
Chart属性：AllowZoom&nbsp; 自动放大缩小
Series1 属性： ColorEachPoint&nbsp; 每个数据项色彩随机不同
//动态改变图表样式 var tmp : TChartSeries; begin &nbsp;&nbsp;&nbsp;&nbsp; tmp := Series1; &nbsp;&nbsp;&nbsp;&nbsp;&nbsp; case cbb1.ItemIndex of &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 0: ChangeSeriesType(tmp,TChartSeriesClass(TBarSeries));&nbsp;&nbsp; //柱状图 &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 7: ChangeSeriesType(tmp,TChartSeriesClass(TPieSeries));&nbsp;&nbsp; //饼图 &nbsp;&nbsp;&nbsp;&nbsp;&nbsp; end ; end;
TChart是一个Windows窗体控件，必须依附一个窗体或Windows控件才能使用。如果要不显示TChart的话，可以将TChart的Visible属性设为False来使用。下面的例子创建了一个隐藏的TChart来生成图表： var Chart: TChart; S: TChartSeries; TmpFile: string; begin Chart := TChart.Create(nil); try &nbsp;&nbsp;&nbsp; Chart.Parent := Application.MainForm; &nbsp;&nbsp;&nbsp; Chart.Visible := False; &nbsp;&nbsp;&nbsp; Chart.Title.Text.Text := '测试图表'; &nbsp;&nbsp;&nbsp; S := TBarSeries.Create(Chart); &nbsp;&nbsp;&nbsp; Chart.AddSeries(S); &nbsp;&nbsp;&nbsp; S.Title := '嘿嘿'; &nbsp;&nbsp;&nbsp; S.AddXY(1, 56, '一月', clGreen); &nbsp;&nbsp;&nbsp; S.AddXY(2, 67, '二月', clYellow); &nbsp;&nbsp;&nbsp; S.AddXY(3, 34, '三月', clBlue); &nbsp;&nbsp;&nbsp; S.AddXY(4, 78, '四月', clRed); &nbsp;&nbsp;&nbsp; Chart.View3D := False; &nbsp;&nbsp;&nbsp; Chart.BackColor := clWhite; &nbsp;&nbsp;&nbsp; Chart.Gradient.StartColor := clWhite; &nbsp;&nbsp;&nbsp; Chart.Gradient.EndColor := clWhite; &nbsp;&nbsp;&nbsp; Chart.Gradient.Visible := True; &nbsp;&nbsp;&nbsp; TmpFile := Application.ExeName + '.bmp'; &nbsp;&nbsp;&nbsp; Chart.SaveToBitmapFile(TmpFile); &nbsp;&nbsp;&nbsp; Image1.Picture.LoadFromFile(TmpFile); finally &nbsp;&nbsp;&nbsp; Chart.Free; end; end;