TChart Raster individuell anpassen

[Friday]

Hallo,
bei einem TChart (Standard von XE3) habe ich ein Raster für die X-Achsen-Werte 1, 2, 3, 4 etc.
Nun möchte ich ab einem bestimmten Wert das Raster auf z.B. <x>.2 ändern: Also 1, 2, 3, 4, 5.2, 6.2, 7.2 etc.
Ist sowas möchlich und wenn ja wie?
Das einzige was mir momentan einfällt, ist das Raster komplett zu deaktivieren und alles manuell im AfterDraw zu zeichnen. Schöner wäre es natürlich die Funktionalität der Komponente in Anspruch zu nehmen.

danke

[Der schöne Günther]

Der Chart hat ein OnGetAxisLabel -Event. Das kannst du füllen.

[Friday]

Danke, aber was hilft mir dieses Event? Selbst zeichnen müsste ich das Raster ja dann doch, warum dann nicht im OnAfterDraw Event?
Sprich was habe ich für Vorteile mit dem OnGetAxisLabel Event?

Ich hatte ja gehofft dass TChart das zeichnen des Rasters weiterhin übernehmen kann und ich nur eine Verschiebung des Rasters ab einerm gewissen X-Achsen-Wert definiere.

[Der schöne Günther]

Sorry, ich habe nicht ordentlich gelesen und dachte du wolltest nur die Achsenbeschriftung, nicht die tatsächlichen Positionen der Achsenmarkierungen anpassen.

Man scheint das einmal mit dem OnGetNextAxisLabel -Event machen zu können, ich durchschaue das aber ehrlich gesagt selbst nicht so wirklich.

Die andere Möglichkeit wäre, einfach alle Items deiner Achse zu nehmen die größer als dein Schwellwert sind und die weiter nach rechts zu rücken:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
const
   shiftAfterPosition = 4.0;
   shiftByValue = 0.2;
var
   axis: TChartAxis;
   itemIndex: Integer;
   itemValue: Double;
begin
   axis := Chart1.Axes.Bottom;

   for itemIndex := Pred(axis.Items.Count) downto 0 do
      if (axis.Items[itemIndex].Value > shiftAfterPosition) then begin
         itemValue := axis.Items[itemIndex].Value;
         axis.Items.Remove( axis.Items[itemIndex] );

         itemValue := itemValue + shiftByValue;
         axis.Items.Add( itemValue, axis.LabelValue(itemValue) );
      end;
end;

[Friday]

danke schöner Günther, das funktioniert wunderbar

[Friday]

nun habe ich doch noch eine Folge-Frage: Durch das Verschieben des Rasters habe ich an einer Stelle (bzw. sogar an zwei Stellen wegen eines Zusatz-Axen-Item) sehr eng aufeinanderfolgende Raster und damit noch viel eng aufeinanderfolgendere Minor-Ticks. Kann ich diese nicht für einen (bzw. 2) Raster-Schritt einzeln deaktivieren?