Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Общие вопросы > Как прочесть по клику на сноске графика ее содерж.

Автор: sanik 13.9.2005, 23:54

С этим TeeChart всегда полная задница огурцов

имеется график,
на нем показываются аннотации к выбранным точкам - а содержимое берется
из датасета из определенного поля (calc)

а поскольку это поле берет данные динамически из разных источников (ну дикая прога, ничего не поделаешь)
мне надо при нажатии на соотвествующую аннотацию узнавать ЧТО ЗА АННОТАЦИЯ

то есть определенные аннотации я не могу править-редактировать

TeeChart 7

все почти сделано....
я кликаю на комментарий к точке, она позволяет его редактировать

но на другого типа комментариях нельзя вызывать окно редактирвоания и мне надо этот признак как-то применить

я узнаю по клику номер индекс аннотации Tag

затем могу ее спрятать сделать невидимой, но поскольку в чарте они привязаны к определенной серии и к определенному датасурсу(полю) для аннотаций (но так как содержимое этого поля создается динамически - то я не могу узнать чья это аннотация акромя как анализировтаь текст самой аннотации, это легче - так как эти специфические аннотации всегда имеют стандартное начало "D = блаблбла....")

Код


procedure TForm.DBChart1DblClick(Sender: TObject);
var
index: integer;
Position: TSeriesMarkPosition;
begin

with DBChart1.ScreenToClient(Mouse.CursorPos) do begin

index := Series1Pressure.Marks.Clicked(X, Y);

if index > 0 then begin
mnuMarkAction.Tag := index;

/// If Series1Pressure.Marks[index]. тут надо что-тот придумать чтоб не шло на акцию меню, если это не та аннотация что мне нужна

mnuMarkAction.Popup(Mouse.CursorPos.X, Mouse.CursorPos.Y);

Abort;
end;
end;

end;