Mouseover-Hinweis für TChart Serie Wert

Ich bin mit einem TChart in Delphi 7, und ich möchte dem display einige Balken. Ich bin mit dem folgenden code zum einrichten der Serie-Werten aus einer Datenbank-Abfrage:

  chart1.FreeAllSeries;

  chart1.SeriesList.Clear;

  chart1.AddSeries(TBarSeries.Create(Self));
  TBarSeries(chart1.Series[0]).BarStyle:=bsRectGradient;

  with query1 do
    begin
      Close;
      Execute;

      while not EoF do
        begin
          chart1.Series[0].Add(FieldAsFloat('sum_actual_days'), FieldAsString('contract_no'));
          Next;
        end;

    end;

Bar (Wert) zeigt nun die Beschriftung, die unter der bar, und in einem gelben Rechteck über der bar.

Statt der Wiederholung der label-Wert-zweimal, ich habe einige zusätzlichen Informationen aus der Abfrage, die ich zeigen möchte oben in der bar statt der Bezeichnung (oder, vorzugsweise, als ein mouseover-Tipp). Kann das mit der TChart? Und wie... ?

InformationsquelleAutor ObiWanKenobi | 2009-06-25
  1. 3

    Diese kann getan werden, mit einem TChart mithilfe des Diagramms, OnMouseMove-Ereignis. So etwas sollte für den Einstieg:

    procedure TForm1.Chart1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
var
  SeriesIndex: Integer;
begin
  SeriesIndex := Series1.Clicked(X, Y);

  Chart1.ShowHint := SeriesIndex <> -1;

  if Chart1.ShowHint then
  begin
    query1.RecNo := SeriesIndex; { this may need to be SeriesIndex + 1 }
    Chart1.Hint := query1.FieldByName('YourFieldNameHere').AsString;
  end;
end;

    Natürlich, die Abfrage, die Sie zum füllen der Tabelle muss noch geöffnet sein, damit dieser code funktioniert.

    InformationsquelleAutor Dave Elsberry
  2. 1

    Den "Mark-Tipps" - tool bietet eine Ereignis, um benutzerdefinierte text (OnGetText-Ereignis):

    procedure TForm1.ChartTool1GetText(Sender: TMarksTipTool;
  var Text: String);
var Index : Integer;
begin
  Index:=Series1.Clicked(Chart1.GetCursorPos);

  Text:='Hello point '+IntToStr(Index);
end;
    InformationsquelleAutor David Berneda
  3. 0

    Gibt es die "Mark-Tipps" - tool, das erlaubt Ihnen zu zeigen, ein Hinweis wenn Sie über eine bar. Aber ich bin mir nicht sicher, ob Sie können ändern Sie die Spitze, um zu zeigen, benutzerdefinierte Daten statt der predifined Stile.

    InformationsquelleAutor The_Fox
  4. 0

    Können Sie legte eine Platte in das Diagramm, und verwenden Sie es als Hinweis. Mit der NearestPoint tool es funktioniert sehr gut.

    Mouseover-Hinweis für TChart Serie Wert

    Fügen Sie zunächst die NearestPoint Werkzeug, um die Tabelle (Doppel-klicken Sie auf das Diagramm, wählen Sie " Extras /Add).

    Dann fügen Sie ein Panel, um das Diagramm (in Diagramm-Komponente) und style es nach Ihren Bedürfnissen.

    Verwenden Sie dann das OnMouseMove-Ereignis:

    procedure TForm1.Chart1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
var i:integer;
    px,py:integer;

begin   
  if PtInRect(Chart1.ChartRect,Point(X,Y)) then
    begin
      i:=ChartTool1.GetNearestPoint(Series1,X,Y);
      if (Series1.XValues.Count>0) and (i<Series1.Count) and (i>=0) then
        begin
          px:=Series1.CalcXPos(i);
          py:=Series1.CalcYPos(i);
          //You can add any data here to your panel, even you can put Images to it or anything else
          Panel_Hint.Caption:=TimeToStr(Series1.XValue[i])+' • '+FloatToStrF(Series1.YValue[i],ffNumber,20,2);
          Panel_Hint.Visible:=true;
          Form1.Canvas.Font.Assign(Panel_Hint.Font);
          Panel_Hint.Width:=Form1.Canvas.TextWidth(Panel_Hint.Caption)+8;
          Panel_Hint.Left:=px-Panel_Hint.Width div 2;
          Panel_Hint.Top:=py-Panel_Hint.Height-2;
        end
      else
        Panel_Hint.Visible:=false;
    end;
end;

    Wenn Sie möchten, können Sie deaktivieren die NearestPoint tool, aber wir müssen Sie schnell finden den entsprechenden Punkt.

    InformationsquelleAutor Fenistil
Schreibe einen Kommentar