Доброе время суток,
Есть
TСhart (
chDiagram) и у него 2 серии -
sDayContribution и
sDiffPower, при подводе мышки к точкам на TChart должен появляться hint.
Проблема в том что в следующем коде, hint появляется только для той серии, которая (в коде) указана последней (т.е. в конкретном случае для "
sDiffPower")
Код:
procedure TFDiagram.chDiagramMouseMove(Sender: TObject; Shift: TShiftState;
X, Y: Integer);
var
SeriesIndexDiff, SeriesIndexContrib: Integer;
begin
SeriesIndexContrib := sDayContribution.Clicked(X, Y);
chDiagram.ShowHint := SeriesIndexContrib <> -1;
if (chDiagram.ShowHint) then
chDiagram.Hint:= DateToStr(sDayContribution.XValue[SeriesIndexContrib]);
SeriesIndexDiff := sDiffPower.Clicked(X, Y);
chDiagram.ShowHint := SeriesIndexDiff <> -1;
if (chDiagram.ShowHint) then
chDiagram.Hint:= DateToStr(sDiffPower.XValue[SeriesIndexDiff]);
end;
При "Step over", hint значения присваиваются (
chDiagram.Hint), только hint не выводится.
Пушут, что понять на какой серии мышь находится можно строками
Код:
if sDayContribution.Clicked(X, Y) >= 0 then
и
Код:
if sDiffPower.Clicked(X, Y) >= 0 then
но как-то не очень помогает, то... да оно конечно различает серии, но тем неменее hint всеравно блокируется чем-то
Только помогает, если я создам приватную переменную и буду подставлять вместо "
if sDayContribution.Clicked(X, Y) >= 0 then" и "
if sDiffPower.Clicked(X, Y) >= 0 then"
Как быть?