请先参看我原来发的http://expert.csdn.net/Expert/topic/3045/3045683.xml?temp=6.653994E-02这帖子!
我后来发现仍然不能解决问题!线段发生了折点!并不是我要的正确答案!
请高手解决这个问题!
-----------------------------
本贴UP有分!解决后另开贴给分!谢谢!
我后来发现仍然不能解决问题!线段发生了折点!并不是我要的正确答案!
请高手解决这个问题!
-----------------------------
本贴UP有分!解决后另开贴给分!谢谢!
偷懒的办法到有一个,用两条不同颜色的series,然后连起来。^_^
还希望大家鼎力支持!看看哪位仁兄能解决!
=============
大家共有的财富!
begin
series1.DataSource :=adoquery1 ;
series1.Clear ;
while not adoquery1.eof do
begin
if adoquery1.FieldValues['aVal']>0.5 then
begin
//调节画笔的颜色
series1.Add(adoquery1.FieldValues['aVal'],vartostr(adoquery1.FieldValues['aDate']),clYellow);
end
else
//调节画笔的颜色
series1.Add(adoquery1.FieldValues['aVal'],vartostr(adoquery1.FieldValues['aDate']), clBlue);
adoquery1.next; end;
end;
你的线,我不知道能不能用lineto和moveto 画出来,如果能可能简单一点