График по клику на легенде.

[kraw2]

Здравствуйте, уважаемые мастера.
Delphi 5. Chart. Имеется n Series c кучей точек с маркировкой цифр. Чтобы посмотреть один график тыкаю мышью по соотвествующей маркировке на легенде - показывается один график, тыкаю еще раз - всё восстанавливается:

procedure TForm1.Chart1ClickLegend(Sender: TCustomChart;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
var i,n,k: integer;
begin
  k:=0;
  for i:=0 to Sender.SeriesCount-1 do
    if Sender.Series[i].Active then k:=k+1;
  if k > 1 then begin
    n:=Sender.Legend.Clicked(X,Y);
    for i:=0 to Sender.SeriesCount-1 do
      if i<>n then
        Sender.Series[i].Active:=False;
  end
  else begin
    for i:=0 to Sender.SeriesCount-1 do
        Sender.Series[i].Active:=True;
  end;
  Sender.Refresh;
end;

procedure TForm1.Chart1GetLegendRect(Sender: TCustomChart;
  var Rect: TRect);
begin
  RectLegend:=Rect;
end;

Работает нормально когда у просматриваемого графика более 1 точки.
Если точка одна, то выдается ошибка Access violation по адресу...
Где нужно подшаманить чтобы гафик показывался и с одной точкой?
Благодарю за внимание.




___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE]
(кнопочка на панели форматирования с решёточкой #)
Не забывайте об этом!

Модератор.

[Stilet]

А известно на какой строке вылезает AV?
Я в коде криминала не вижу...

[kraw2]

После присвоения параметров перерисовки легенды:
RectLegend:=Rect в процедуре Chart1GetLegendRect

[Stilet]

А-а-а... Так то совсем другое дело
Покаж код. Там нужно проверочки на nil ставить знаичт.

[kraw2]

Да нет больше кода, связанного с легендой. Есть вначале код заполнения графиков точками и всё. Если бы где-то, что-то неправильно заполнялось - ошибка была уже на уровне отрисовки графиков. Как раз и вопрос то в том, где еще прописать какую процедуру при отрисовке, чтобы вставить эту проверку на nil?

[Stilet]

Ну ты всетки покажешь свою легендарную Chart1GetLegendRect, или каг?

[kraw2]

Chart1GetLegendRect процедура по событию OnGetLegendRect (см. в коде) предназначена для (перевод из Help):
__________
Случай OnGetLegendRect происходит всякий раз, когда Легенда Диаграммы собирается отображен.
Вы можете использовать этот случай, чтобы заставлять специфическую позицию Легенды и измерений.
Параметр Rect определяет встроенную позицию Легенды и измерений на экранных пикселях.
После чертежа Легенды, доступное пространство Диаграммы будет уменьшено, чтобы не перекрываться с Легендой если Вы не установили TChartLegend.СОБСТВЕННОСТЬ ResizeChart в Ложь.
При использовании этого случая вам понадобится использовать TChart.СЛУЧАЙ OnGetLegendPos также, чтобы поставлять точные координаты для каждого пункта Легенды.
___________
Легенда перерисовывается автоматически по координатам Rect. ResizeChart:=True;

[Stilet]

О-о-ой! туплю... Она же в топе темы... Сорри, сегодня не мой день.
Если этот обработчик события убрать, программа отработает норм?