|
楼主 |
发表于 2010-2-14 23:59:00
|
显示全部楼层
查到 AddXY的定义是这样子的。应该有4个参数 ,但是上面的程序只有3个参数,?难道那个可以省略吗??
{ Adds a new point into the Series. }
Function TChartSeries.AddXY( Const AXValue,AYValue:Double;
Const ALabel:String; AColor:TColor):Integer;
var t : Integer;
Begin
FX.TempValue:=AXValue;
FY.TempValue:=AYValue;
if (not Assigned(FOnBeforeAdd)) or FOnBeforeAdd(Self) then
Begin
result:=FX.AddChartValue; // (FX.TempValue); // 7.0
FY.InsertChartValue(result,FY.TempValue);
for t:=2 to ValuesList.Count-1 do
With ValuesList[t] do InsertChartValue(result,TempValue);
if Assigned(FColors) then
FColors.Insert(result,{$IFDEF CLR}TObject{$ELSE}Pointer{$ENDIF}(AColor))
else
if AColor<>clTeeColor then
begin
GrowColors;
FColors.Insert(result,{$IFDEF CLR}TObject{$ELSE}Pointer{$ENDIF}(AColor));
end;
if (ALabel<>'') or (FLabels.Count>0) then { speed opt. 5.02 }
Labels.InsertLabel(result,ALabel);
if IUpdating=0 then { 5.02 }
NotifyNewValue(Self,result);
end
else result:=-1;
end; |
|