Steema Central

Code: Select all

uses Series, TeCanvas;

var seriesIndex: Integer;

procedure TForm1.FormCreate(Sender: TObject);
var i: Integer;
begin
  Chart1.View3D:=false;
  Chart1.Legend.CheckBoxes:=true;

  for i:=0 to 11 do
  begin
    with Chart1.AddSeries(TFastLineSeries) as TFastLineSeries do
    begin
      FillSampleValues;
    end;
  end;

  seriesIndex:=-1;
end;

procedure TForm1.Chart1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
var i: Integer;
    tmpR: TRect;
begin
  if PointInRect(Chart1.Legend.RectLegend, X, Y) then
  begin
    for i:=0 to Chart1.Legend.Items.Count-1 do
    begin
      tmpR:=Rect(Chart1.Legend.Left, Chart1.Legend.Items[i].Top,
                 Chart1.Legend.Left + Chart1.Legend.Width,
                 Chart1.Legend.Items[i].Top + Chart1.Canvas.textHeight('W'));

      if PointInRect(tmpR, X, Y) then
      begin
        if (seriesIndex<>-1) and (seriesIndex<>i) then
          Chart1[seriesIndex].Pen.Width:=1;

        seriesIndex:=i;
        Chart1[seriesIndex].Pen.Width:=2;
        break;
      end;
    end;
  end
  else
  begin
    if (seriesIndex>-1) then
      Chart1[seriesIndex].Pen.Width:=1;
    seriesIndex:=-1;
  end;
end;