TChart, абсциссы -pi, -pi/2, 0, pi/2, pi, 3pi/2 ...

[forlazarus]

Здравствуйте.
Рисую графики функций на отрезке, используя TChart. Хотелось бы, чтобы точки оси абсцисс указывались не числами вида 1, 2, 3 и т.п., а точками -pi, -pi/2, 0, pi/2, pi, 3pi/2, 2pi...
Подскажите, что и как изменить в Chart1, Chart1.BottomAxis или Chart1LineSeries1.

Например, так (сделано в KmPlot):



Спасибо за помощь.

[DedFrend]

Могу предложить такой вариант

https://disk.yandex.ru/d/LncUi3gVlD4BUQ

Откровенно говоря, я считаю самым правильным в таких случаях просто делать подпись к оси
вида "X. *pi" . Потому что в том виде, как вы хотите, вы неизбежно огребете проблем в виде
перекрывающихся или недописанных marks .
Кстати с самой подписью у меня не заладилось. Свойство Title.caption имеется, но подпись не видна.
Разбираться пока лень

[Снег Север]

Демки изучайте. В частности - axis.
Page Customized marks demonstrates how painting of the marks of an axis can be controlled by modifying their properties, such as Marks.LabelBrush, Marks.Frame, or Marks.LabelFont. Highlighting of individual marks can be done by assigning a handler to the axis event OnMarksToText:

Код: Выделить всё

procedure TForm1.ChartCustomMarksAxisList1MarkToText(var AText: String; AMark: Double);
begin
  if AMark = 3 then
    AText := '*' + AText + '*';
end;


[forlazarus]

Могу предложить такой вариант

https://disk.yandex.ru/d/LncUi3gVlD4BUQ

Откровенно говоря, я считаю самым правильным в таких случаях просто делать подпись к оси
вида "X. *pi" . Потому что в том виде, как вы хотите, вы неизбежно огребете проблем в виде
перекрывающихся или недописанных marks .
Кстати с самой подписью у меня не заладилось. Свойство Title.caption имеется, но подпись не видна.
Разбираться пока лень

Поработал с вашим примером, вот, что получилось.
https://piccy.info/view3/15129621/eff85 ... ad03/orig/

ChartCustomMarksAxisList1MarkToText

Спасибо за наводку.
Немного позже, будет время, напишу подробнее.

[DedFrend]

Интересные у вас ссылки. Второй раз получаю "Your IP is blacklisted"

[forlazarus]

Интересные у вас ссылки. Второй раз получаю "Your IP is blacklisted"

Выбрал первый попавшийся хостинг картинок в поисковике, извините.

Изменённый ваш проект:
https://disk.yandex.ru/d/0z26gWNGzbStBA

Итоги.
Работают следующие вещи:
Ваша находка - XdivPi.Scale := pi;
Выставление
fmPiForm.Chart1.BottomAxis.Intervals.Count:=round(abs(Xmax-Xmin)/pi)*2;
(не спрашивайте почему так, эмпирически подобрал)
fmPiForm.Chart1.BottomAxis.Intervals.nicesteps='0.5|1.0'
fmPiForm.Chart1.BottomAxis.Intervals.Options:=[aipUseCount,aipUseNiceSteps]
Находка Снег Север'a - cобытие OnMarkToText для BottomAxis,
моя функция getstringforrealpi по превращению десятичных дробей в простые...

P.S. Если ссылка недоступна, скажите, попробую отправить иначе.