| Версия для печати
Нажмите сюда для просмотра этой темы в оригинальном формате |
| Форум на Исходниках.RU > VCL > RichEdit: верхние/нижние индексы |
| Автор: Vit 17.01.04, 16:57 |
| 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; SCF_ALL применить ко всему тексту SCF_SELECTION применить к веделенному тексту SCF_WORD | SCF_SELECTION применить к выделенным словам Взято из MSDN. Проверено на Delphi7. Это работает. Попробый сделать сам, чтобы верхние/нижние индексы имели меньший размер. Тем более это работает в rxRichEdit. Вот, взято из http://forum.vingrad.ru/index.php?act=ST&f=2&t=15446 |