Einzelnen Beitrag anzeigen

DelphiManiac

Registriert seit: 5. Dez 2005
742 Beiträge
 
#3

Re: Beschriftung in TChart einfügen

  Alt 20. Feb 2008, 14:48
@Bluesbear:

Danke für deine Antwort, habe es dank deiner Hilfe gelöst:

Delphi-Quellcode:
procedure TMainGUI.chtKennlinieAfterDraw(Sender: TObject);
var
  xPos: Integer;
  yPos: Integer;
begin
  xPos := chtKennlinie.BottomAxis.CalcPosValue(TempIntern);
  yPos := chtKennlinie.LeftAxis.CalcPosValue(120); // Anzeigen auf der Höhe von 120 %
  chtKennlinie.Canvas.TextOut(xPos+5,yPos, IntToStr(SollWertFanIntern)+ ' % bei '
      +IntToStr(TempIntern)+ ' °C');
end;
siehe Screenshot!

Danke nochmal
Miniaturansicht angehängter Grafiken
2008-02-20_144701_107.jpg  
  Mit Zitat antworten Zitat