Tad писал(а):
Нашкодил и смылся. Предположительно, "шкодство" заключается в следующем:
#pas
// Добавлен метод в файле PlotSeries.pas, не забывайте описание класса
procedure TPlotSeries._work_doColor;
begin
FSeries.Color := ToInteger(_Data);
FGrapher.ReDraw; // А может и не надо...
end;
------------ Дoбавленo в 19.20:
Второе "шкодство" -- это "оживление" события onAdd
Где-то я давал уже рекомендации... В теме от Леонид-а же.
------------ Дoбавленo в 19.35:
Например, так:
#pas
procedure TPlotSeries._work_doAdd;
var y,x:real;
begin
y := ReadReal(_Data, _data_ValueY);
x := ReadReal(_Data, _data_ValueX);
if _prop_Step <> 0 then
if FSeries.Count = 0 then
x := 0
else
x := FSeries.Values[FSeries.Count-1].x + _prop_Step;
FSeries.Add(y, x);
FGrapher.ReDraw;
_hi_CreateEvent(_Data,@_event_onAdd); // Вот оно - Дерево !!!
end;