Привет всем! Поставили задачу перевести графики с TeeChart на DevExpress.
Бары перенеслись легко а вот с Line diagram возникла проблема -
1 график - это ти чарт, 2 - то что получилось в девэкспрессе.
данные одни и те же
то есть у меня есть несколько серий, у каждой серии ось х - дата время, естественно разные, получить значение в одну и ту же точку нереально. ти чарт умел как то масштабировать, а в девэксе не получается.
добавляю серии в девэкс так
вверху цикл по сериям, это уже внутри этого цикла -
Код: YieldAbsolutecxGridChartVIew.ViewData.CategoryCount := 300; //// тут тоже вопрос - это число значений по оси х, но при дате времени нафига ему это?
if aYieldAbsoluteADOStoredProc.RecordCount>0 then
begin
aTempcxGridChartSeries := YieldAbsolutecxGridChartVIew.CreateSeries;
aTempcxGridChartSeries.Tag := aAccountsADOStoredProc.FieldByName('ЦветВДиаграмме').AsInteger;
aTempcxGridChartSeries.DisplayText := aAccountsADOStoredProc.FieldByName('ИмяСерии').AsString;
aTempcxGridChartSeries.OnCustomDrawValue := YieldRelativecxGridChartVIewSeriesCustomDrawValue;
YieldAbsolutecxGridChartVIew.BeginUpdate;
aYieldAbsoluteADOStoredProc.First;
I := 0;
while not aYieldAbsoluteADOStoredProc.Eof do
begin
YieldAbsolutecxGridChartVIew.ViewData.Categories[I] := aYieldAbsoluteADOStoredProc.FieldByName('ДатаВремя').Value;
YieldAbsolutecxGridChartVIew.ViewData.Values[aTempcxGridChartSeries.Index, I] := aYieldAbsoluteADOStoredProc.FieldByName('Значение').Value;
I := I+1;
aYieldAbsoluteADOStoredProc.Next;
end;
YieldAbsolutecxGridChartVIew.EndUpdate;
end;