teechart 能否在曲线上标注曲线名称

Question

我用 line 画了一个曲线图，上面有多条曲线，为了区分，怎么在每条曲线上标注曲线的名称呢？

Answer 1

自己修改TeeChart控件原代码。

Answer 2

 for i := 0 to LBBH.Items.Count - 1 do
  begin
    DBChartDis.SeriesList[i].Active := True;
          Canvas.TextOut('2007-8-24','初始测量值','编号'); \\318行
    if i = 0 then
      with adoDis1 do
      begin
        Close;
        SQL.Clear;
        SQL.Text := 'Select * From bs_Displacement Where 编号=' + QuotedStr(LBBH.Items.Strings[0])
                  + ' and 测量日期 Between ' + StartDate + ' and ' + EndDate;
        Open;
      end;
    if i = 1 then
      with aDoDis2 do
..........
.......
---------------------------------
是这样写吗
编译提示错误 [错误] Unit_deformation.pas(318): Incompatible types: 'Integer' and 'String'

Answer 3

DBChartDis.Canvas.TextOut(x,y,text);
x和y是坐标,integer型的,text是你要显示的文字内容

Answer 4

我的横坐标是时间，纵坐标是decimal型的。而且都是从数据库中查询出来。。改怎么写

Answer 5

x,y和你的坐标没关系,是对应控件的位置的,比如0,0就是chart的左上角

Answer 6

procedure TForm1.Chart2MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
  var
  I:Integer;
begin  if Series2.GetCursorValueIndex>-1 then
     Chart2.Canvas.TextOut(x,y,'红色');
  if Series1.GetCursorValueIndex>-1 then
     Chart2.Canvas.TextOut(x,y,'绿色')
end;参考

Answer 7

你还要打印出来啊 ，但是TCHAR上的线条是可以打印出颜色的啊