| 查看: 550 | 回复: 0 | |||
[交流]
【转帖】Delphi中的TChart使用用法
|
|
1、TChart Hello world放一个控件到窗体上，然后写代码加入一个折线数据序列： var Series: TLineSeries; begin Series := TLineSeries.Create(Chart1); Series.Add(100, '头部', clRed); Series.Add(200, '颈部', clGreen); Chart1.AddSeries(Series); end; 这样就会生成一个简单的折线图表，要生成其它类型的数据图表，可以添加不同的数据序列（各种图表的序列类型可以参考帮助文档）。2.如何设置图表的标题？TChart组件提供了Title属性可以这是图表的标题，包括标题的内容、字体、对齐方式等都可以通过Title属性设置。 最简单的设置方式： Chart1.Title.Text.Text := '图表的标题';3.如何修改图表的背景颜色和整个图表的颜色？TChart是一个窗体控件，可以通过修改Color属性设置图表颜色，这是一种最简单的方式： Chart1.Color := clWhite; 修改图表部分的背景色可以通过BackColor属性来实现： Chart1.BackColor := clGreen; 此外，TChart还提供了渐变的背景支持，通过Gradient控制： Chart1.Gradient.Visible := True; Chart1.Gradient.Direction := gdFromTopLeft; Chart1.Gradient.StartColor := clGreen; Chart1.Gradient.EndColor := clYellow;4.TChart的3D效果如何控制？TChart提供了View3D属性，控制是否使用3D效果，View3dWalls属性控制是否显示左侧的3D墙效果.如何不显示图表控件生成图表？很遗憾，TChart是一个Windows窗体控件，必须依附一个窗体或Windows控件才能使用。如果要不显示TChart的话，可以将TChart的Visible属性设为False来使用。下面的例子创建了一个隐藏的TChart来生成图表： var Chart: TChart; S: TChartSeries; TmpFile: string; begin Chart := TChart.Create(nil); try Chart.Parent := Application.MainForm; Chart.Visible := False; Chart.Title.Text.Text := '测试图表'; S := TBarSeries.Create(Chart); Chart.AddSeries(S); S.Title := '嘿嘿'; S.AddXY(1, 56, '一月', clGreen); S.AddXY(2, 67, '二月', clYellow); S.AddXY(3, 34, '三月', clBlue); S.AddXY(4, 78, '四月', clRed); Chart.View3D := False; Chart.BackColor := clWhite; Chart.Gradient.StartColor := clWhite; Chart.Gradient.EndColor := clWhite; Chart.Gradient.Visible := True; TmpFile := Application.ExeName + '.bmp'; Chart.SaveToBitmapFile(TmpFile); Image1.Picture.LoadFromFile(TmpFile); finally Chart.Free; end; end; |
回复此楼» 猜你喜欢
281求调剂（0805）
已经有23人回复
-
265求调剂
已经有9人回复
-
279分求调剂 一志愿211
已经有10人回复
-
招收调剂硕士
已经有12人回复
-
296求调剂
已经有8人回复
-
招收博士1-2人
已经有3人回复
-
085700资源与环境308求调剂
已经有11人回复
-
274求调剂
已经有8人回复
-
290求调剂
已经有4人回复
-
一志愿西南交通 专硕 材料355 本科双非 求调剂
已经有4人回复
找到一些相关的精华帖子，希望有用哦~
Lev00在vasp5的安装与使用
已经有4人回复
- 制霉菌素的使用方法
已经有10人回复
- 为什么盐分、水分、脂肪、蛋白 使用国标的检测方法，高汤中是含量四项加起来超过一百
已经有7人回复
- 晒晒你知道的一些仪器的使用方法和注意事项之二----------扫描电子显微镜
已经有20人回复
- 【分享】Swiff Point Player 2.1（PPT插入Flash软件，附使用教程！）【已搜索无重复】
已经有39人回复
- 求助Endnote使用问题解决办法
已经有1人回复
- 【求助】求助！代谢组学数据处理方法。（使用液质联用法采集数据）
已经有8人回复
- 分光光度计用法详解-----工作曲线的绘制及使用方法
已经有12人回复
- 【其他】请问如何使用ENDNOTE X3改进的全文获取功能
已经有12人回复
点击这里搜索更多相关资源科研从小木虫开始，人人为我，我为人人
