想在chart中实现series由用户选择可见不可见，请问怎么实现(50分)

孤

孤云

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-04-03

• #1

数据库中有12列（3列为一组相关信息），在最需要的情况下需要同时显示，但是总让同时让他们显示感觉有点别扭，所以让用户进行选择
不知道应该怎么做，找不到visible这个属性

怎么改变图行的形状，如由线形图改为直方图，饼图等

 

孤

孤云

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-04-03

• #2

第一个解决了用Active属性

不知道第二个怎么做
请高手帮帮忙

 

B

boy2002cn

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-04-03

• #3

Unit
TeeShape
Declaration
TChartShapeStyle = (chasRectangle, chasCircle, chasVertLine, chasHorizLine, chasTriangle, chasInvertTriangle, chasLine, chasDiamond);
Description
TChartShapeStyle defines the list of possible values for the TChartShape.Style property.

chasRectangle The shape is a rectangle
chasCircle The shape is a circle
chasVertLine The shape is a vertical line
chasHorizLine The shape is an horizontal line
chasTriangle The shape is a triangle
chasInvertTriangle The shape is an inverted triangle
chasLine The shape is a line
chasDiamond The shape is a diamond

设置这个就行了

 

孤

孤云

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-04-04

• #4

TO boy2002cn
还是不大懂，怎么设置，上面的内容不是Unit Teeshape里的内容吗？
是不是加Unit Teeshape
怎么改变图形形式，能不能给个例子
谢谢！

 

B

boy2002cn

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-04-04

• #5

设置series的ShapeStyle还是什么来的一个属性就行了，我这里没有D没法给你写具体的代码

 

孤

孤云

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-04-05

• #6

实在找不着属性
高手帮帮忙
我只知道设置图形的形式
IF serie1 is TCustomBarSeries THEN
serie1.BarStyle:=TBarStyle(ComboBox.ItemIndex);
但是怎么从bar图形改变从line图形，请高手帮帮忙
怎么设置

 

B

boy2002cn

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-04-05

• #7

看错了，我用过的是DecisionGraph，你看强制转换能不能解决这个问题

 

B

boy2002cn

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-04-05

• #8

对不起了，找高手吧[]

 

E

edison_zuo

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-04-05

• #9

我以前有个项目里面实现过这个　用了个函数如下：
function CreateNewSeries(parentchart:TDBChart;Serinfo:TSeriesInfo;(自己建立的东东)index:integer):TChartSeries

begin
Case seriesinfo.Seriestype of
1:result:=CreateNewBarSeries(parentchart,serinfo,index);
2:result:=CreateNewLineSeries(parentchart,serinfo,index);
....
else
result:=null
end;

然后再分别对每种方式对应的函数写入信息就好了

 

孤

孤云

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-04-07

• #10

To edison_zuo
提示：Undeclared identifier: 'TSeriesInfo'
在帮助里也没找到CreateNewBarSeries这个函数
还是不大明白
能否详细点
谢谢！

 

E

edison_zuo

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-04-07

• #11

TSeriesInfo是我们项目自己创建的 里面放的是Series的信息 CreateNewSeries函数也是自己创建的哈 里面包含的CreateNeBarSeries等函数也是自己创建的 里面就是如何把Series需要的信息写入 如果你实在需要的话 我可以把那部分给你看哈 但是里面也很多都是关于如何得到Series标签和对应的值哈 我主要是给你一个思路

 

孤

孤云

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-04-07

• #12

谢谢edison_zuo
我的邮箱xiaolin0058@163.com