richedit

← →
ded_di (2002-04-02 15:08) [0]

Подскажите пжалуста.
Как изменить текст в richedit, не теряя при этом форматирование.

← →
aus © (2002-04-02 16:39) [1]

SelLength, SelStart, SelAttributes....

← →
ded_di (2002-04-03 11:22) [2]

Не понял. Можно подробнее. Мне нужна автозамена без участия пользователя.

← →
Sat7 © (2002-04-03 11:47) [3]

Атрибуты выделенного фрагмента:
RichEdit1.SelStart:=10;
RichEdit1.SelLength:=20;
RichEdit1.SelAttributes.Size:=40;

Замена с 3-го по 6-ой символы на ABCD:
RichEdit1.Text:=Copy(RichEdit1.Text,1,2)+"ABCD"+Copy(RichEdit1.Text,7,Length(RichEdit1.Text)-6);

Если при замене ты залезаешь на границу смены атрибутов, они теряются.

← →
ded_di (2002-04-03 12:17) [4]

Да я все так и делаю
RxRichEdit1.FindText(oldStr,0,length(RxRichEdit1.Text),[stWholeWord,stSetSelection]); sp:=RxRichEdit1.SelStart; RxRichEdit1.Text:=copy(RxRichEdit1.Text,0,sp)+newStr+copy(RxRichEdit1.Text,sp,length(RxRichEdit1.Text)-sp);
Что значит
Если при замене ты залезаешь на границу смены атрибутов, они теряются.

Если у тебя 15 символов в richedit"e, и атрибуты меняются с 6-го символа на другие, а потом ты заменяешь с 3 по 12 символы на свой текст, то установленные до этого с 6-го символа атрибуты просто потеряются (ты их затрешь!), а выставятся те же самые, которые были установлены для символов до 6-го. О как!

← →
ded_di (2002-04-03 12:34) [6]

Да нет на самом деле атрибуты теряются и при таком коде, который я написал (я имею в виду любые атрибуты, во всем рич эдите). Но эту проблему я решил делая так:
cb:=TClipBoard.Create; cb.SetTextBuf(PChar(string(newStr))); RxRichEdit1.FindText(oldStr,0,length(RxRichEdit1.Text),[stWholeWord,stSetSelection]); RxRichEdit1.PasteFromClipboard; cb.Destroy;
Но теперь есть другой вопрос.
Рич Эдит не понимает правильно таблицы и их выравнивания? Или я ошибаюсь?

richedit Найти похожие ветки