Wenn es Dir um das Zeichnen der X-Achse und individueller Beschriftung geht, kannst Du Dir eine
procedure anlegen:
Danks für die Info. Wenn ich mit Bordmitteln nicht weiterkomme, werde ich mit deiner Hilfe weitermachen.
Ich bin schon ein wenig weiter. In einer Testumgebung geht es nun.
Delphi-Quellcode:
XAxis.UnitType := utMilliSecond;
XAxis.Size := 130;
Range.StartDate := trunc(Date);
with Series[0] do
begin
AutoRange := arEnabled;
ChartType := ctXYLine; //ctXYLine ist wichtig für Datum/Zeitfunktionen
XAxis.MajorUnitTimeFormat := 's,zzz';
XAxis.TextBottom.Angle := 50;
XAxis.MajorUnitSpacing := 20;
XAxis.XYValuesOffset := 60;
XAxis.AutoUnits := false;
d := EncodeDate(2010, 05, 1) + I * 5;
AddSingleXYPoint(0, 0, Date );
AddSingleXYPoint(0, 1, Date + EncodeTime(0, 0, 0, 4));
AddSingleXYPoint(0, 10, Date + EncodeTime(0, 0, 0, 8));
AddSingleXYPoint(0, 3, Date + EncodeTime(0, 0, 0, 12));
end;
Range.RangeTo := 15;
end;
Und Du hast Recht, diese Demos funktionieren nicht oder nicht mehr.
Mal sehen, ob sie die Demos anpassen.