Einzelnen Beitrag anzeigen

Hansa

Registriert seit: 9. Jun 2002
Ort: Saarland
7.554 Beiträge
 
Delphi 8 Professional
 
#10

Re: TChart richtig beschriften

  Alt 29. Jan 2009, 14:56
Aha, das muss man erst mal finden.Nächstes Problem:der Platz unterhalb der Bottomaxis reicht nur für 2 Zeilen.Eventuell werden 5 gebraucht.LabelsMultiline gibts noch, das steuert aber nur, ob #13 oder ein Leerzeichen das Zeilenumbruchzeichen ist. Mit #13 gings ja, sofern mehr Platz da wäre.und da noch ein Schönheitsfehler :die Werte sind zentriert, was bei Zahlen komisch aussieht.

Hier ist noch der Source :

Delphi-Quellcode:
procedure TfrmLinieChart.chStatGetAxisLabel(Sender: TChartAxis;
  Series: TChartSeries; ValueIndex: Integer; var LabelText: String);
begin
  inherited;
  if Sender = chStat.BottomAxis then begin
    LabelText := MonatStr [ValueIndex + 1];
    if ValueIndex mod 2 = 0 then
      LabelText := LabelText + #13 + IntToStr(ValueIndex+ 100)
    else
      LabelText := LabelText + #13 + IntToStr(ValueIndex+1);
  end;
end;
Miniaturansicht angehängter Grafiken
chart_197.jpg  
Gruß
Hansa
  Mit Zitat antworten Zitat