Mouseover astuce pour TChart valeur de série

Je suis à l'aide d'un TChart en Delphi 7, et je veux afficher des graphiques à barres. J'utilise le code suivant pour définir la série de valeurs à partir d'une requête de base de données:

  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;

Chaque barre (valeur) est maintenant montrer l'étiquette à la fois en dessous de la barre, et dans un rectangle jaune au-dessus de la barre.

Au lieu de répéter la valeur de l'étiquette à deux reprises, j'ai quelques informations supplémentaires à partir de la requête que je voudrais montrer au-dessus de la barre au lieu de l'étiquette (ou, de préférence, comme un indice du passage de la souris). Cela peut être fait avec le TChart? Et comment... ?

InformationsquelleAutor ObiWanKenobi | 2009-06-25
  1. 3

    Cela peut être fait avec un TChart en utilisant le graphique de l'événement OnMouseMove. Quelque chose comme cela devrait vous aider à démarrer:

    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;

    Bien sûr, la requête que vous avez utilisé pour remplir le tableau doit toujours être ouvert pour que ce code fonctionne.

    InformationsquelleAutor Dave Elsberry
  2. 1

    La "Marque" Conseils de l'outil fournit un événement pour la fourniture de texte personnalisé (OnGetText de l'événement):

    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

    Il est la "Marque" Conseils de l'outil qui vous permet d'afficher un indice quand vous passez au dessus d'un bar. Mais je ne suis pas sûr si vous pouvez modifier l'astuce pour afficher les données personnalisées au lieu de la predifinis les styles.

    InformationsquelleAutor The_Fox
  4. 0

    Vous pouvez mettre un Panneau dans le Graphique, et de l'utiliser comme indicateur. Avec le NearestPoint outil, il fonctionne très bien.

    Mouseover astuce pour TChart valeur de série

    D'abord ajouter le NearestPoint outil pour le graphique (Double-cliquez sur le graphique, sélectionnez Outils /Ajouter).

    Puis ajouter un Panneau à la carte (dans le composant Graphique) et le style en fonction de vos besoins.

    Puis utilisez l'événement OnMouseMove:

    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;

    Si vous le souhaitez, vous pouvez désactiver la NearestPoint outil, mais nous en avons besoin pour trouver facilement le point correspondant.

    InformationsquelleAutor Fenistil