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

[roy456myth]

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

[roy456myth]

ding

[genispan]

这个貌似没这功能

[gzmhero]

自己修改TeeChart控件原代码。

[roy456myth]

.. 怎么改啊。。不会
给点提示

[skylkj]

直接用Chart1.Canvas.TextOut吧

[roy456myth]

...谁能说详细点啊

[roy456myth]

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'

[skylkj]

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

[roy456myth]

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

[skylkj]

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

[ZXF110110]

先描述出每种线段颜色代表什么，这样可以吗

[roy456myth]

打印机是黑白的。。。我开始也是用颜色来区分

[ZXF110110]

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;参考

[ZXF110110]

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

[roy456myth]

关键是客户的打印机是黑白的，不能打彩色