如何在CHART的某一点上画竖线(25分)

  • 主题发起人 主题发起人 scjyhezai
  • 开始时间 开始时间
S

scjyhezai

Unregistered / Unconfirmed
GUEST, unregistred user!
如何在CHART的某一点上画竖线
 
如何在CHART的某一点上画竖线
 
添加一个fast Line的series,从(22,22)到(22,23) 的竖线
series1.AddXY(22,22,'',clred);
series1.AddXY(22,33,'',clred);
 
那如何在CHART的某一点上画圆呢
 
fast Line都是一个一个点画的
圆的方程是什么?
 
搞定:
procedure TForm1.BitBtn2Click(Sender: TObject);
var
i:integer;
x,y,anl:double;
begin
series1.XValues.Order:=loNone;
for i:= 0 to 180 do
begin
anl:=i*3.1415926/180;
x:=10+10*cos(anl);
y:=10+10*sin(anl);
series1.AddXY(x,y,'',clred);
end;

for i:= 180 to 360 do
begin
anl:=i*3.1415926/180;
x:=10+10*cos(anl);
y:=10+10*sin(anl);
series1.AddXY(x,y,'',clred);
end;
end;
 
这是以(10,10)为圆心的圆
 
anl表示什么
 
anl是角度
 
多人接受答案了。
 
后退
顶部