Подстрочный текст в RichEdit, Delphi

[celvin]

Добрый вечер. Дана такая задача: в компонент RichEdit вводится неравенство, например,
Неравенство.JPG
Изменение шрифта и его цвета при вводе строки получилось, но не знаю как сделать, чтобы после "х" вводился индекс, т.е. подстрочный текст. Каким образом это можно сделать?

[Stilet]

Мне кажется что Ричэдит этого всетки не умеет.
Разве что для подстрочных символом размер шрифта уменьшить в половину...

[celvin]

Кое что нарыл, но не знаю то, что нужно ли это. Вот ссылка. Можно ли его как то применить?

[celvin]

Как оказалось, решение все таки есть. RichEdit поддерживает верхние/нижние индексы. Например, можно сделать так:

uses RichEdit;
...
procedure TForm1.Button1Click(Sender: TObject);
var
  CF: TCharFormat;
begin
  cf.cbSize := sizeof(cf);
  cf.dwMask := CFM_OFFSET;
  cf.yOffset := -70; // смещение по y; положительное/отрицательное для смещение верх/вниз
  RichEdit1.Perform(EM_SETCHARFORMAT, SCF_SELECTION, integer(@cf));
end;