![]() |
Beschriftung in TChart einfügen
Liste der Anhänge anzeigen (Anzahl: 1)
Hallo ich habe zurzeit ein TChart auf dem ich eine vertikale Linie zeichne,
die X-Achse ist die Temperatur, und die Temperatur (also den X-Wert) würde ich gerne oben (wie im Screenshot) darstellen. Vielleicht könnt ihr mir ja dabei helfen. Gruß DelphiManiac |
Re: Beschriftung in TChart einfügen
Im AfterDraw Event des Charts auf den Canvas malen, ungefähr so (nur als Beispiel):
Delphi-Quellcode:
xPos := Chart.BottomAxis.CalcPosValue(Temperatur);
yPos := Chart.LeftAxis.CalcPosValue(Chart.LeftAxis.Minimum); Chart.Canvas.MoveTo(xPos, yPos); Chart.Canvas.LineTo(xPos, yPos - 20); |
Re: Beschriftung in TChart einfügen
Liste der Anhänge anzeigen (Anzahl: 1)
@Bluesbear:
Danke für deine Antwort, habe es dank deiner Hilfe gelöst:
Delphi-Quellcode:
siehe Screenshot!
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; Danke nochmal |
Alle Zeitangaben in WEZ +1. Es ist jetzt 02:02 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz