请问如何在运行期改变图形的类型（如：‘将线型图改为饼型图’）？(100分)

L

leonwang

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-10-17

• #1

无！

 

P

peterwang

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-10-17

• #2

@_@

 

D

dongliu

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-10-17

• #3

VtChart1.ChartType:=2;//2即为类型
Chartfx1.ChartType:=2;

 

H

hubdog

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-10-17

• #4

Tchart改不了

 

R

rss

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-10-18

• #5

设计两个，隐藏一个，需要在切换一下。
我是这样做的。

 

W

www

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-10-18

• #6

rss的方法可行，我是这样做的。
chart1.series[0].Clear;
chart1.series[1].Clear;
chart1.Title.text.text:=inttostr(year)+'年签定合同金额情况';
for temp:=1 to 12do
begin
chart1.series[0].Add(a.htjine[temp],inttostr(temp)+'月',barcolor[temp]);
chart1.series[1].Add(a.htjine[temp],inttostr(temp)+'月',barcolor[temp]);
end;

chart1.series[0].Active:=true;
Chart1.series[1].Active:=false;
这是我的程序中的一个片段。

 

C

cytown

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-10-18

• #7

chart1.SeriesList[0].Active:=not chart1.SeriesList[0].Active;
chart1.SeriesList[1].Active:=not chart1.SeriesList[1].Active;

 

L

lhxu

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-10-20

• #8

我觉得rss的方法简单,也可靠

 

W

weisian

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-10-22

• #9

在TeeChart homepage的 fag 里有提到用
ChangeSeriesType method.
var tmp : TChartSeries;
begin
tmp := Series1;
ChangeSeriesType(tmp,TChartSeriesClass(TPieSeries));
end;

 

Z

zhshf

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-11-11

• #10

用TChart完全可以：
{转换SERIES类型过程}
procedure ChangeSeriesType(TarChart:TCustomChart;
TarSeries:TCustomSeries;tmpS:TChartSeriesClass);
var
tmpSeries:TChartSeries;
i:integer;
begin
i:=TarChart.SeriesList.IndexOf(TarSeries);
tmpSeries:=tmps.Create(TarChart);
tmpSeries.ParentChart:=TarChart;
while i<TarChart.SeriesList.IndexOf(tmpSeries)do
TarChart.SeriesUp(tmpSeries);
while i>TarChart.SeriesList.IndexOf(tmpSeries)do
TarChart.SeriesDown(tmpSeries);
tmpSeries.SeriesColor:=TarSeries.SeriesColor;
tmpSeries.DataSource:=TarSeries;
tmpSeries.Title:=TarSeries.title;
tmpSeries.Active:=true;
TarSeries.Free;
end;

//比如将Series1转换为TBarSeries型
ChangeSeriesType(Chart1,Series1,TBarSeries);
OK!

 

W

weisian

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-11-12

• #11

ChangeSeriesType 已经是 TChart method,能再用回同样名的
procedure 吗 ?

 

Z

zhshf

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-11-12

• #12

to weisian:
>在TeeChart homepage的 fag 里有提到用
>ChangeSeriesType method.
你用过吗？
DELPHI虽声称有这么个方法，但实际上并没有，你不妨试一试。

 

Z

zhshf

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-11-13

• #13

Sorry!上次的代码有些问题，应该这样：
{转换SERIES类型过程}
procedure ChangeSeriesType(TarChart:TCustomChart;
TarSeries:TCustomSeries;tmpS:TChartSeriesClass);
var
tmpSeries:TChartSeries;
i:integer;
begin
i:=TarChart.SeriesList.IndexOf(TarSeries);
tmpSeries:=tmps.Create(TarChart);
tmpSeries.ParentChart:=TarChart;
while i<TarChart.SeriesList.IndexOf(tmpSeries)do
TarChart.SeriesUp(tmpSeries);
while i>TarChart.SeriesList.IndexOf(tmpSeries)do
TarChart.SeriesDown(tmpSeries);
tmpSeries.SeriesColor:=TarSeries.SeriesColor;
tmpSeries.DataSource:=TarSeries;
tmpSeries.Title:=TarSeries.title;
tmpSeries.Active:=true;
TarSeries.Free;
end;

//比如将Series1转换为TBarSeries型
ChangeSeriesType(Chart1,Series1,TBarSeries);
OK!

 

W

weisian

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-11-22

• #14

>在TeeChart homepage的 fag 里有提到用
>ChangeSeriesType method.
>>你用过吗？
>>DELPHI虽声称有这么个方法，但实际上并没有，你不妨试一试。
有啊.我的project里画了数十个series的线型图,再把第一个的线型图换
成BarSeries.是这样写的:
tmpSeries := Chart1.Series[0];
ChangeSeriesType(tmpSeries,TChartSeriesClass(TBarSeries));

 

Z

zhshf

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-11-22

• #15

to weisian:
佩服！
我以前一直以为ChangeSeriesType是Chart的一个过程，谁知既然是一个全局
的过程。

weisian的答案是最好的，接受答案吧！

 

L

leonwang

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-11-27

• #16

多谢各位高手的解答！

 

M

mongol

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-06-20

• #17

比我想的水平高那么一点点