Loading... <p>先在界面上拖一个Chart控件,把属性都设置好,通过代码添加数据即可。</p> <p> cht1.Title.Text.Text:='销售业绩';<br /> cht1.Series[0].AddXY(1, 56, '东门');<br /> cht1.Series[0].AddXY(2, 67, '南门');<br /> cht1.Series[0].AddXY(3, 34, '西门');<br /> cht1.Series[0].AddXY(4, 78, '北门');<br /> cht1.Series[0].AddXY(5, 100, '市中心');</p> <p>Chart属性:AllowZoom 自动放大缩小</p> <p>Series1 属性: ColorEachPoint 每个数据项色彩随机不同</p> <p>//动态改变图表样式<br />var tmp : TChartSeries;<br />begin<br /> tmp := Series1;<br /> case cbb1.ItemIndex of<br /> 0: ChangeSeriesType(tmp,TChartSeriesClass(TBarSeries)); //柱状图<br /> 7: ChangeSeriesType(tmp,TChartSeriesClass(TPieSeries)); //饼图<br /> end ;<br />end;</p> <p>TChart是一个Windows窗体控件,必须依附一个窗体或Windows控件才能使用。如果要不显示TChart的话,可以将TChart的Visible属性设为False来使用。下面的例子创建了一个隐藏的TChart来生成图表:<br />var<br />Chart: TChart;<br />S: TChartSeries;<br />TmpFile: string;<br />begin<br />Chart := TChart.Create(nil);<br />try<br /> Chart.Parent := Application.MainForm;<br /> Chart.Visible := False;<br /> Chart.Title.Text.Text := '测试图表';<br /> S := TBarSeries.Create(Chart);<br /> Chart.AddSeries(S);<br /> S.Title := '嘿嘿';<br /> S.AddXY(1, 56, '一月', clGreen);<br /> S.AddXY(2, 67, '二月', clYellow);<br /> S.AddXY(3, 34, '三月', clBlue);<br /> S.AddXY(4, 78, '四月', clRed);<br /> Chart.View3D := False;<br /> Chart.BackColor := clWhite;<br /> Chart.Gradient.StartColor := clWhite;<br /> Chart.Gradient.EndColor := clWhite;<br /> Chart.Gradient.Visible := True;<br /> TmpFile := Application.ExeName + '.bmp';<br /> Chart.SaveToBitmapFile(TmpFile);<br /> Image1.Picture.LoadFromFile(TmpFile);<br />finally<br /> Chart.Free;<br />end;<br />end;</p> 相关文章 无相关文章 Last modification:November 9th, 2012 at 12:21 pm © 允许规范转载 Support 如果觉得我的文章对你有用,请随意赞赏 ×Close Appreciate the author Sweeping payments Pay by AliPay Pay by WeChat