Как использовать верхние и нижние индексы?

RichEdit поддерживает верхние/нижние индексы;

Вот как это делается:

Code:

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;

SCF_ALL применить ко всему тексту

SCF_SELECTION применить к веделенному тексту

SCF_WORD | SCF_SELECTION применить к выделенным словам

Взято из MSDN. Проверено на Delphi7. Это работает. Попробый сделать сам, чтобы верхние/нижние индексы имели меньший размер.

Тем более это работает в rxRichEdit.

TRichEdit