https://forum.sources.ru Форум на Исходниках.RU Форум на Исходниках.RU https://forum.sources.ru/index.php?showtopic=43197&view=findpost&p=282873 Sat, 17 Jan 2004 16:57:45 +0000 https://forum.sources.ru/index.php?showtopic=43197&view=findpost&p=282873 Вот как это делается:


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.

Вот, взято из http://forum.vingrad.ru/index.php?act=ST&f=2&t=15446]]> Vit VCL