Delphi7中如果作雷达图啊? ( 积分: 145 )

  • 主题发起人 主题发起人 blackpearl
  • 开始时间 开始时间
B

blackpearl

Unregistered / Unconfirmed
GUEST, unregistred user!
在网上搜了一下,说Teechart能够实现雷达图的功能,费了老半天装上了一个(也不知道装对了没有),但在它的所有图表类型中还是没有发现“雷达图”呀?
请问,有作过雷达图的大虾们,怎么弄的吗?非常感谢~
 
装个控件,把Flash嵌进去不就完了吗
 
我有JavaScript做过!
没用D做过!
在JavaScript中用层就行!

帮顶
 
to:kenmnb2000
能推荐一个控件吗?

to:lifangchao2008
JavaScript不熟啊,唉,JavaScript的层直接就可以成雷达图了?
 
呵呵,雷达?这个词语很新鲜哦。
自己创建一个控件继承自PaintBox,然后在里面画不就行了么?
个人感觉里面没什么呀,就是一个圆和一些图形啊。
加一个定时器来画旋转的线不行么?
 
to:dinglj1760
就是那种在Excel里面可以成的雷达图呀,实在不行也就只能自己画了,就是一堆同心圆,然后加上几个点,并连成线,不用旋转的。

主要没玩过画图的功能,不会啊,汗颜……
 
Flash不需要特别去找控件的,你把Flash ActiveX OCX导入就可以用了
 
自己画图话,用Canvas就可以了,画圆还是点线都很方便,你要动画形式也成,准备一个后台缓冲Canvas,不可见的,先在后台缓冲Canvas上画好再CopyRect到显示的Canvas中,速度很快,我的C4 1.7的破办公机器都能跑130帧
 
To Hydra0:
您能给我一个利用canvas画一堆同心圆的例子吗?还有在同心圆上任意取两点,连成线的例子?
谢谢:)
 
for I := 0 to 4do

begin

ChartRect.Left:= 50 + I * 35;
ChartRect.Top:= 50 + I * 35;
ChartRect.Bottom:= 450 - I * 35;
ChartRect.Right:= 450 - I * 35;
Img.Canvas.Ellipse(ChartRect);
end;

连线是很简单的,用MoveTo和LineTo连2个点
 
Teechat的第七版可以做雷达图
delphi自带的那个版本老了一点
楼主可以去盒子上去下载
PS:安装的时候可能费点劲
 
多人接受答案了。
 
后退
顶部