legend

[fobbass]

здравствуйте уважаемые коллеги,

может кто сталкивался при наведение курсора на legend текст закрашивается красным цветом и кусок DonutSeries выделяется (this is a default) как поменять на другой цвет или как обратится конкретному тексту в legend
Пробывал

procedure TForm1.Chart1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
var
  k: integer;
begin
    for k := 0 to DonutSeries1.Count - 1 do
      begin
        if DonutSeries1.Clicked(X, Y) = k then
        begin
          DonutSeries1.ExplodedSlice[k] := 15;
          Chart1.Legend.Item[k].Font.Color := clYellow;
        end
        else
          DonutSeries1.ExplodedSlice[k] := 0;
          Chart1.Legend.Item[k].Font.Color := clBlack;
      end;
end;

0 эмоции

- TeeChart 2 0 1 6

[fobbass]

кому интересно

Constructor TTeeHover.Create(...);
begin
  inherited;
  Font.Color:=clRed;
  Pen.Color:=clRed
  Pen.Width:=3;
end;