Word-овские подчеркивание в Делфи ХЕ7

[SASFM]

Всем привет. Скажите пожалуйста как можно подчеркнуть неправильно написанных слов в Делфи ХЕ7 Word-овским стилом? Я могу определить и покрасить нужных слов, но покрасить - это не решения проблема, а нужна подчеркнуть именно так как в Word. Есть ли какая нибудь функция или процедура для этого? Заранее спасибо.

[cotseec]

если текст в TRichEdit, то можно пользовать ITextFont::SetUnderline, устанавливая соответствующие виды подчеркивания (tomNone, tomSingle, tomWords, tomDouble, tomDotted, tomDash, tomDashDot, tomDashDotDot, tomWave, tomThick, tomHair, tomDoubleWave, tomHeavyWave, tomLongDash, tomThickDash, tomThickDashDot, tomThickDashDotDot, tomThickDotted, tomThickLongDash)
пример использования TOM, получение доступа к ITextFont там имеется

если текст в TMemo, то в рукопашную, занимаясь собственной отрисовкой.
имхо, в RichView проще, он для такого и предназначен

[SASFM]

Сообщение от cotseec

если текст в TRichEdit, то можно пользовать ITextFont::SetUnderline

Это же для С++, а мне нужно для Делфи

[cotseec]

Сообщение от SASFM

Это же для С++, а мне нужно для Делфи

по ссылке с примером разве не Delphi?
Screen.png

[SASFM]

Сообщение от cotseec

по ссылке с примером разве не Delphi?
Вложение 78025

Это точно, спасибо.