Подписи к значениям TChart по оси Х

@FloppyDisc · Регистрация: 18.11.2015

Author24 — интернет-сервис помощи студентам

Проблема заключается в том, что подписи все одинаковые.
Знаю что код не правильный, но как сделать, чтобы подписи брались из столбца таблицы (StringGrid) по очереди и прописывались тоже так же?
Код:

Delphi

procedure TForm1.Chart1AxisList1MarkToText(var AText: String; AMark: Double);
var
i: Byte;
begin
  for i:= 1 to 10 do begin
   AText:= Stringgrid1.cells[4,i]; // думал пойдет, но берет только последнее значение
// как использовать тут AMark?
  end;
end;

@volvo · 19.12.2015, 13:04

Что у тебя в AMark передается? Какие значения? Пример приведи, лучше всего - скриншотом, как выглядит чарт на тот момент, когда ты хочешь подменить текст подписей.

@FloppyDisc · 19.12.2015, 14:00 **[ТС]**

volvo,

Сообщение от volvo

Что у тебя в AMark передается? Какие значения?

Не совсем понял...

Сообщение от volvo

Пример приведи, лучше всего - скриншотом

Скрин с датами, так должен выглядеть, точнее он так и выглядит, просто везде одно и тоже значение последней ячейки

Сообщение от volvo

как выглядит чарт на тот момент, когда ты хочешь подменить текст подписей

Как выглядит? Ну выглядит так же, только на оси абсцисс на шкале в место дат были числа от 1 до 10, с такими же равными интервалами.

@FloppyDisc · 19.12.2015, 14:06 **[ТС]**

Кстати, по вашему примеру же

Вот:

Delphi

procedure TForm1.Chart1AxisList1MarkToText(var AText: String; AMark: Double);
begin
  AText := DateTimeToStr(AMark); // но тут выводит все последовательно +1 месяц интервал вроде
end;

Если конечно надо, то вот, ось Y: по полю "сумма покупки"

Delphi

i: Integer;
begin
 
    With  Chart1LineSeries1 do begin
      for i:=1 to 10 do begin
       Chart1LineSeries1.AddY(StrToFloat(StringGrid1.Cells[9,i]), '', clRed);  
     end;
      end;

@volvo · 19.12.2015, 14:32

FloppyDisc, а стазу написать:

Pascal

  for i := 1 to 10 do
    Chart1LineSeries1.AddY(StrToFloat(StringGrid1.Cells[9, i]), StringGrid1.Cells[4, i], clRed);
  Chart1.BottomAxis.Marks.Source := Chart1LineSeries1.Source;
  Chart1.BottomAxis.Marks.Style := smsLabel;

- это слишком просто, нужно обязательно еще обработчик события добавить?

@Puporev · 19.12.2015, 19:30

Интересно почему у меня ругается на smsLabel?
В инспекторе объектов это выбираешь, нормально...

@volvo · 19.12.2015, 21:06

Сообщение от Puporev

Интересно почему у меня ругается на smsLabel?

Потому что модуль TAChartUtils не подключен, наверное?

@Puporev · 19.12.2015, 21:23

Естественно. Ты мне это уже писал, но я забыл.

@FloppyDisc · 20.12.2015, 01:03 **[ТС]**

Мы, чайники, такие, не ищем легких путей

@volvo Супер-модератор 32835 / 21172 / 8148 Регистрация: 22.10.2011 Сообщений: 36,431 Записей в блоге: 8
	19.12.2015, 13:04	2
	Что у тебя в AMark передается? Какие значения? Пример приведи, лучше всего - скриншотом, как выглядит чарт на тот момент, когда ты хочешь подменить текст подписей. 0

@FloppyDisc Особый статус 623 / 221 / 164 Регистрация: 18.11.2015 Сообщений: 1,086
	19.12.2015, 14:00 [ТС]	3
	volvo, Сообщение от volvo Что у тебя в AMark передается? Какие значения? Не совсем понял... Сообщение от volvo Пример приведи, лучше всего - скриншотом Скрин с датами, так должен выглядеть, точнее он так и выглядит, просто везде одно и тоже значение последней ячейки Сообщение от volvo как выглядит чарт на тот момент, когда ты хочешь подменить текст подписей Как выглядит? Ну выглядит так же, только на оси абсцисс на шкале в место дат были числа от 1 до 10, с такими же равными интервалами. Миниатюры 0

@Puporev Почетный модератор 64300 / 47595 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	19.12.2015, 19:30	6
	Интересно почему у меня ругается на smsLabel? В инспекторе объектов это выбираешь, нормально... 0

@volvo Супер-модератор 32835 / 21172 / 8148 Регистрация: 22.10.2011 Сообщений: 36,431 Записей в блоге: 8
	19.12.2015, 21:06	7
	Сообщение от Puporev Интересно почему у меня ругается на smsLabel? Потому что модуль TAChartUtils не подключен, наверное? 1

@Puporev Почетный модератор 64300 / 47595 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	19.12.2015, 21:23	8
	Естественно. Ты мне это уже писал, но я забыл. 0

@FloppyDisc Особый статус 623 / 221 / 164 Регистрация: 18.11.2015 Сообщений: 1,086
	20.12.2015, 01:03 [ТС]	9
	Мы, чайники, такие, не ищем легких путей 0

Подписи к значениям TChart по оси Х

Решение