Уже когда-то задавал аналогичны вопрос тока по РичЕдиту. Никто не знал. Щас уже в принципе пофиг где, главное как можно скорее найти где. Чё собственно надо: компонент, в котором можно програмно переключаться между режимами ввода строчного текста и тескта с верхними и нижними индексами.

2 Полудненко Олег
А чем тебя CapsLock с Shift'ом разочаровали ??

Chess64 вообщето я говорю не про большие и маленькие буквы а про верхние и нижние индексы...

Неужели никто не шарит??

RTF это не поддерживает, по крайней мере его стандартная реализация. Единственное, что приходит в голову, это отображение в ввиде HTML или использование Word как COM объекта.

Вроде бы компонент RxRichEdit умеет это делать
хотя честно говоря я сам с ним не работал и не уверен

Vit что ты имееш в виду под изображением в ХТМЛ? Если енто есть просто изображение, то оно мене не подходит, желательно с редактированием.

А может просто взять MS Word и его к себе на форму бросить и не мучится?

Читаю я тут, читую, и мне вдруг идея пришла... А попробуй генить html-текст, и выводить его. Там, где тебе нужно вывести индексы, исполбзуй теги sub и sup. Вывод - на ТВебБроузер.

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.

Это сообщение отредактировал(а) Seti - 12.12.2003, 14:46

Seti спасибо за пример. Ща будем пытаться чё-нить сотворить. Ещё один вопрос: есть ли RxRichEdit в Delphi6?

Morpheus мдя, енто совсем не будет извратно...

Seti чё-то 6-я Делфа отказывается TCharFormat воспринимать... Обидно, неужели прийдётся на 7-ю переезжать

Unregistered, TCharFormat объявлек в модуле RichEdit. По крайней мере, в Delphi 7. Могу тебе посоветовать:
1) попробовать подключить модуль Uses RichEdit, если ты вдруг забыл
2) Поискать в папке $(DELPHI) файлы *.pas, содержащие текст "TCharFormat"; возможно в Delphi 6 этот тип объявлен в другом модуле.

Полудненко Олег,
Да, Rx Library есть для Delphi6.

Seti ОГРОМНОЕ СПАСИБО!!!! Всё пашет. Вот тока как размер по высоте менять