Наши проекты:
Журнал · Discuz!ML · Wiki · DRKB · Помощь проекту |
||
ПРАВИЛА | FAQ | Помощь | Поиск | Участники | Календарь | Избранное | RSS |
[54.224.52.210] |
|
Сообщ.
#1
,
|
|
|
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 |