小问题一个关于DBchart的，高手请进，在线等……(100分)

L

lcmlhs

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-08-07

• #1

就是我想把显示的图形变　一下，比如原来是柱状图，我想改为饼状图，我想在程序里控制，怎样写代码呢，我试了下面的
DBChart1.Series[1].Style:=pie;
可是不行啊，高手救命！！！

 

Z

zywcd

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-08-07

• #2

需要删除当然的series重新生成。并设置series类型。

 

L

lcmlhs

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-08-07

• #3

这个知道，关键怎么重新设置呢，代码怎么写？？

 

Z

zywcd

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-08-07

• #4

你试试这样的，
var t : Integer;
Line : TPieSeries;
begin
for t:=0 to 9 do
begin
Line:=Chart1.AddSeries(TPieSeries);
Line.Title:='Line '+IntToStr(t);
end;

 

M

macwong

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-08-07

• #5

with (tlineseries.create(nil)) do begin
name:=name;
parentChart:=dbchart;
active:=false;
Marks.ArrowLength := 8;
Marks.Style := smsValue;
Marks.Visible := False;
SeriesColor := xxxxx;
ShowInLegend := False;
Title := title;
Dark3D := False;
Pointer.HorizSize := 2;
Pointer.InflateMargins := True;
Pointer.Style := psCircle;
Pointer.VertSize := 2;
Pointer.Visible := True;
XValues.DateTime := False;
XValues.Name := 'X';
XValues.Multiplier := 1;
XValues.Order := loAscending;
YValues.DateTime := False;
YValues.Name := 'Y';
YValues.Multiplier := 1;
YValues.Order := loNone;
end;

 

网

网中戏

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-08-08

• #6

开始做2个图
隐藏柱状图显示饼状图

 

P

protossgffnxk

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-08-08

• #7

var
tmpSeries:TChartSeries;

....
tmpSeries := DBChart1.Series[0];
case RzComboBox2.ItemIndex of
0:begin
ChangeSeriesType(tmpSeries,TChartSeriesClass(TpieSeries)); //饼
end;
1:begin
ChangeSeriesType(tmpSeries,TChartSeriesClass(TBarSeries)); //条
end;
2:begin
ChangeSeriesType(tmpSeries,TChartSeriesClass(TLineSeries));
end;
3:begin
ChangeSeriesType(tmpSeries,TChartSeriesClass(THorizBarSeries));
end;
4:begin
ChangeSeriesType(tmpSeries,TChartSeriesClass(TAreaSeries));
end;
5:begin
ChangeSeriesType(tmpSeries,TChartSeriesClass(TPointSeries));
end;
6:begin
ChangeSeriesType(tmpSeries,TChartSeriesClass(TFastLineSeries));
end;
end

 

L

lcmlhs

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-08-09

• #8

各个图示的颜色怎么处理呢？？
我用的是
　　if 是第一个series那么
　　tmpseries1.SeriesColor:=clGreen;
　　if 是第二个series那么
tmpseries1.seriescolor:=clred;
可是这样不行啊，最后还是统一的红色！！，怎么办呢，高手救命！！

 

L

lcmlhs

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-08-09

• #9

大侠救命啊，有没有高手啊？？？

 

L

lcmlhs

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-08-09

• #10

在线等之，希望大家能帮我一下

 

L

lcmlhs

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-08-10

• #11

我动态增加的两个tBARseries，分别为series1,series2,它们紧挨在一起，怎样让它们之间有间距呢？

 

L

lcmlhs

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-08-10

• #12

以上的都勉强自行解决了，可是还有一个小问题，就是怎样加Y轴和X轴的标题呢？？