DBChart属性繁多,刚用的时候都是一个一个试然后view as text看代码,
经过一段使用总结收集了一些常用的功能实现方法,都很简单,但可能给初学者
一些帮助,希望大家多补充。动态创建series:
var
mybar : TBARseries; //创建直方图
begin
mybar := Tbarseries.Create(nil);
DBChart.AddSeries(mypie);
end动态付值
with DBChart.Series[0] do
begin
DataSource := aQuery; //数据集
XLabelsSource := 'x'; //x轴标示
YValues.ValueSource := 'y'; //y轴数值
XValues.ValueSource := 'xv'; //x轴数值
Marks.Style := smsValue; //图上标识显示x的值
Marks.Visible := True ;
end;运行中转换图表样式:
var tmp : Tchartseries;
begin
tmp := DBchart.Series[0];
ChangeSeriesType(tmp,TchartSeriesClass(TbarSeries));
end;变化样式之后
DBchart.AxisVisible := true; //显示坐标轴
DBchart.AllowPanning := pmNone; //不允许拉动坐标轴x坐标的label倾斜90度:设置:chart->axis->bottom->labels->angel->90;
代码:BottomAxis.LabelsAngle = 90;
经过一段使用总结收集了一些常用的功能实现方法,都很简单,但可能给初学者
一些帮助,希望大家多补充。动态创建series:
var
mybar : TBARseries; //创建直方图
begin
mybar := Tbarseries.Create(nil);
DBChart.AddSeries(mypie);
end动态付值
with DBChart.Series[0] do
begin
DataSource := aQuery; //数据集
XLabelsSource := 'x'; //x轴标示
YValues.ValueSource := 'y'; //y轴数值
XValues.ValueSource := 'xv'; //x轴数值
Marks.Style := smsValue; //图上标识显示x的值
Marks.Visible := True ;
end;运行中转换图表样式:
var tmp : Tchartseries;
begin
tmp := DBchart.Series[0];
ChangeSeriesType(tmp,TchartSeriesClass(TbarSeries));
end;变化样式之后
DBchart.AxisVisible := true; //显示坐标轴
DBchart.AllowPanning := pmNone; //不允许拉动坐标轴x坐标的label倾斜90度:设置:chart->axis->bottom->labels->angel->90;
代码:BottomAxis.LabelsAngle = 90;
解决方案 »
- 求助 关于处理重复信息的
- 求解!!关于转换的问题!
- 像【我的电脑】-【编辑】-【全部选定】这样的全选是怎么实现的?
- 200分求idhttp上传文件的方法。
- 本人是一DELPHI再菜不过的菜鸟,希望能得到大家的热心帮助!
- 为什么我的d7帮助文件中没有TExcelApplication等excel有关类的帮助内容?马上给分
- 画曲线
- 请问MS的Speech SDK5.1的TTS,合成语音后如何存为文件?
- RAD Studio XE2如何 输出 64位DLL
- ●先提供100分,帮我解决者500分相送,up也有分哦,并祝大家圣诞节和元旦快乐●
- Tserversocket如何检测或者判断客户的非法中断
- 谁有DBChart的用法质料....或推荐网站.....
dbc.Series[1].Marks.ArrowLength := 35 ;
可以使两个label的线的长度不一样,如果两者值差距过大,值低的数值还是会被挡着。