Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   GUI-Design mit VCL / FireMonkey / Common Controls (https://www.delphipraxis.net/18-gui-design-mit-vcl-firemonkey-common-controls/)
-   -   Delphi Beschriftung in TChart einfügen (https://www.delphipraxis.net/108851-beschriftung-tchart-einfuegen.html)

DelphiManiac 20. Feb 2008 12:53


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

bluesbear 20. Feb 2008 13:12

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);

DelphiManiac 20. Feb 2008 13:48

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:
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


Alle Zeitangaben in WEZ +1. Es ist jetzt 01:40 Uhr.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz