TaChart Achsenbeschriftung als "integer" Zahlen..

[corpsman]

Sers,
wieh hier bereits gestartet bastle ich mal wieder mit TaChart herum.

Dieses mal versuche ich die Beschriftung der Achsen auf "Ganze" Zahlen zu setzen.

Dazu habe ich die Option aipInteger (TChartAxis.Intervals.Options) gesetzt. Das funktioniert bei der x-Achse perfekt, bei der Y-Achse komischerweise nur Manchmal :/

Bargraphissue.png (50.3 KiB) 180 mal betrachtet

Jemand ne Idee wie ich das hin bekomme ?

[corpsman]

Ok, so gehts:

Code: Alles auswählen

Procedure TForm1.Chart1AxisList0MarkToText(Var AText: String; AMark: Double);
Begin
  AText := inttostr(round(max(0, AMark)));
End; 

Aber so "richtig" fühlt sich das nicht an ...

[wp_xyz]

Muss ich mir mal genauer ansehen, aber fürs erste ist eine Abhilfe, zusätzlich auch die Intervals.Option aipCount zu setzen (zusammen mit allen anderen Options, außer aipGraphCoords).

[EDIT]
Nein, vergiss das. Ich habe den Fehler inzwischen gefunden und in Laz/main behoben. Falls du eine Release Version verwendest, kannst du das mit einer Zeile selbst fixen:

Öffne Unit TACustomSource, suche procedure TIntervalChartSource.CalculateIntervals(). Füge vor der Zeile "if aipUseNiceSteps in Params.Options" die Zeile "bestCount := 0" ein:

Code: Alles auswählen

procedure TIntervalChartSource.CalculateIntervals(
  AParams: TValuesInRangeParams; out ABestStart, ABestStep: Double);
...
begin
  CalcMinMaxCount(minCount, maxCount);
  bestCount := 0;
  if aipInteger in Params.Options then begin
    ...
  end;
  bestCount := 0;  // <---- DIESE ZEILE EINFÜGEN
  if aipUseNiceSteps in Params.Options then begin  
  ...

[corpsman]

*g*,
es freut mich dass meine Frage zu einer Verbesserung für alle geführt hat, da ich die head version nutze, werde ich einfach pullen und alles sollte funktionieren .
Danke fürs dran bleiben.