Gantt Balken fügst du folgendermaßen zur TChartSeries hinzu:
Delphi-Quelltext
1:
| iGantt := AddGantt(Startwert, Endwert, positionY, Label); |
Die Funktion gibt einen Index zurück, mit dem du dir den Balken zur Laufzeit
zurückgeben lassen kannst.
Die Achsen beschriftest du über das Ereignis
TChart.OnGetAxisLabel
Delphi-Quelltext
1: 2: 3: 4: 5: 6: 7:
| procedure ChartGetAxisLabel(Sender: TChartAxis; Series: TChartSeries; ValueIndex: Integer; var LabelText: String); begin
if Sender = ChartOccupancy.LeftAxis then LabelText := Text;
end; |
Moderiert von
Tino: Delphi-Tag hinzugefügt.