Изменить TDBChart месяц Формат отображения

Question

Я использую TDBChart - от TeeChart Std, чтобы отобразить круговую диаграмму, которая выполняет SUM значений из моего PRICE колонки внутри БД я использую, и это сортировка в данные по Months - из DATE столба, который установлен как datetime type в базе данных.

My TDBChart отображает следующее:

Моя проблема: Как мне сделать это отобразить месяц в октябре-2016 и ноябре-2016

(Idealy Oct- 16 и 16 ноября соответственно).

Как вы можете видеть, в настоящее время он отображается как цифры - 10-16 и 11-16.

Невозможно найти параметр формата для этого в любом месте внутри параметров серии.

Answer 1

Я бы отформатировал дату-время как строку перед добавлением очков, и я передам ее как метку. То есть:

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:

Если вы заселение его подключения к источнику данных, то метки автоматически добавляются. Тогда единственный вариант я вижу, без изменения источников будет использовать OnGetMarkText событие следующим образом:

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;