[Konstantin-78]

Доброе время суток,

Есть TСhart (chDiagram) и у него 2 серии - sDayContribution и sDiffPower, при подводе мышки к точкам на TChart должен появляться hint.

Проблема в том что в следующем коде, hint появляется только для той серии, которая (в коде) указана последней (т.е. в конкретном случае для "sDiffPower")

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

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 не выводится.

Пушут, что понять на какой серии мышь находится можно строками

Код:

1	if sDayContribution.Clicked(X, Y) >= 0 then

и

Код:

1	if sDiffPower.Clicked(X, Y) >= 0 then

но как-то не очень помогает, то... да оно конечно различает серии, но тем неменее hint всеравно блокируется чем-то

Только помогает, если я создам приватную переменную и буду подставлять вместо "if sDayContribution.Clicked(X, Y) >= 0 then" и "if sDiffPower.Clicked(X, Y) >= 0 then"


Как быть?

[Alegun]

Сообщение от Konstantin-78

...Как быть?

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

procedure TForm1.chDiagramMouseMove(Sender: TObject; Shift: TShiftState; X,   Y: Integer); var  i, b: integer; begin   with chDiagram do    begin     b:= -1;     for i := 0 to SeriesCount-1 do      if Series[i].Clicked(X, Y) <> -1 then       begin        b:= Series[i].Clicked(X, Y);        Hint:= DateToStr(Series[i].XValue[b]);       end;     ShowHint:= b > -1;    end;{with} end;

Проверил, работает

[Konstantin-78]

А всеже почему в моем примере, в первом куске

Код:

1 2 3 4

SeriesIndexContrib := sDayContribution.Clicked(X, Y);   chDiagram.ShowHint := SeriesIndexContrib <> -1;   if (chDiagram.ShowHint) then     chDiagram.Hint:= DateToStr(sDayContribution.XValue[SeriesIndexContrib]);

hint не выводился, он заполнялся (я при отладке видел), но не выводился?

[Alegun]

Потому как свойство chDiagram.ShowHint было отключено вторым куском

[Konstantin-78]

Сообщение от Alegun

Потому как свойство chDiagram.ShowHint было отключено вторым куском

Я бы с удовольствием в это поверил, еслиб перед тем как задавать на форуме вопрос, не проверил бы этот блок с "условием" .Clicked(X, Y) <> -1

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21

procedure TFDiagram.chDiagramMouseMove(Sender: TObject; Shift: TShiftState; X,   Y: Integer); var   SeriesIndexDiff, SeriesIndexContrib: Integer; begin   if sDayContribution.Clicked(X, Y) <> -1 then   begin      SeriesIndexContrib := sDayContribution.Clicked(X, Y);     chDiagram.ShowHint := SeriesIndexContrib <> -1;     if (chDiagram.ShowHint) then       chDiagram.Hint:= DateToStr(sDayContribution.XValue[SeriesIndexContrib]);   end;        if sDiffPower.Clicked(X, Y) <> -1 then   begin      SeriesIndexDiff := sDiffPower.Clicked(X, Y);     chDiagram.ShowHint := SeriesIndexDiff <> -1;     if (chDiagram.ShowHint) then       chDiagram.Hint:= DateToStr(sDiffPower.XValue[SeriesIndexDiff]);   end; end;

в данном примере, всегда при наведении мышей на одну из линий на TChart, выполняется только один конкретный if.
Та он вообщем говоря криво работает, т.к. первый раз выводит hint нормально, а все последующие разы, если мышкой не выйти за границы TChart (т.е. мышку на форму не завести), то hint вообще перестает показываться. При этом при наведении мышкой опять на TChart, hint отображается как только мышка проходит границу TChart

[Alegun]

Проверок блоков в первом посте небыло, да всё ведь правильно, не хватает начальной инициализации переменных, в них всегда "положительный" мусор