ändern TDBChart Monat Formatanzeige

Question

Ich verwende ein TDBChart - von TeeChart Std ein Kreisdiagramm angezeigt werden, die eine SUM von Werten aus meiner PRICE Spalte in der db tut Ich verwende und es ist Sortierung die Daten auf Months - von einer DATE Spalte, die als datetime type in der Datenbank festgelegt ist.

Meine TDBChart zeigt folgendes:

Mein Problem: Wie kann ich den Monat machen anzuzeigen im Oktober 2016 und November 2016

(idealy Monaten Oktober 16. und 16. November).

Wie Sie sehen können, wird es derzeit als Zahlen angezeigt - 10-16 und 11-16.

Es scheint nicht möglich, eine Format-Option für dieses irgendwo innerhalb der Reihe Optionen zu finden.

Answer 1

Ich würde die Datetime als eine Zeichenfolge vor dem Hinzufügen der Punkte formatieren und ich würde es als Bezeichnung übergeben. Dh:

uses DateUtils; 

procedure TForm1.FormCreate(Sender: TObject); 
var tmpDate: TDateTime; 
    i: Integer; 
begin 
    for i:=0 to 1 do 
    begin 
    tmpDate:=IncMonth(Today,i); 
    Series1.AddPie(random*100,FormatDateTime('mmm-yy', tmpDate)); 
    end; 
end; 

---

EDIT:

Wenn Sie es zu einer Datenquelle bevölkern verbinden, dann werden die Etiketten automatisch hinzugefügt. Dann ist die einzige Option, die ich sehe, ohne die Quellen zu modifizieren wäre das OnGetMarkText Ereignis wie folgt zu verwenden:

procedure TForm1.Series1GetMarkText(Sender: TChartSeries; ValueIndex: Integer; 
    var MarkText: string); 
var i: Integer; 
    m, y: string; 
begin 
    i:=Pos('-',MarkText); 
    m:=Copy(MarkText,1,i-1); 
    y:=Copy(MarkText,i+1,Length(MarkText)-i); 
    MarkText:=ShortMonthNames[StrToInt(m)] + ' ' + y; 
end;