Форум: "Основная";
Текущий архив: 2004.02.29;
Скачать: [xml.tar.bz2];
Вниз
RichEdit форматирование текста ?! Найти похожие ветки
← →
atmospheric (2004-02-18 14:46) [0]есть форматированый текст сохраненный в RTF.
пример:
Вариант № %variant% //выравнивание право
%vopros% //жирный высота 14
%otvet% //знак табуляции в начале строки
я загружаю этот файл в RichEdit. Далее надо переменные %variant%, %vopros%, %otvet%, подставить свои значения.
вродебы все просто, НО - впрос не один, а их несколько, тоже самое с ответами. те надо строку %vopros% повторить в RichEdit еще n кол-во раз, но когда я это делаю у нее пропадает форматирование.
Как быть ?
← →
Loneron (2004-02-18 14:54) [1]Код в студию
← →
Loneron (2004-02-18 15:03) [2]Советую сначала, полностью сформировать текст, а потом его отформатировать. При вставке RichEdit1.Text := RichEdit1.Text + "123" форматирование может потеряться.
← →
atmospheric (2004-02-18 15:10) [3]а формотировани в RTF файле, а не ручками производится
← →
Loneron (2004-02-18 15:19) [4]
> строку %vopros% повторить в RichEdit еще n кол-во раз, но
> когда я это делаю у нее пропадает форматирование
Приведите код вот этой операции
← →
atmospheric (2004-02-18 15:51) [5]а как вообще скопировать форматирование одной строки и пременить ее другой ?
там только есть SelAttributes, DefAttributes
← →
Loneron (2004-02-18 16:02) [6]Выделяешь символ (SelStart, SelLength, SelEnd), запоминаешь SelAttributes. Выделяешь другой символ и присваиваешь запомненное значение TextAttributes.
← →
Loneron (2004-02-18 16:05) [7]bufAttr: TTextAttributes;
...
RichEdit1.SelStart := ..;
RichEdit1.SelLength := 1;
bufAttr.Assign(RichEdit1.SelAttributes);
RichEdit1.SelStart := ..;
RichEdit1.SelLength := 1;
RichEdit1.SelAttributes.Assign(bufAttr);
← →
atmospheric (2004-02-18 17:11) [8]что то не пашет :(
← →
atmospheric (2004-02-18 17:16) [9]
VO := "%vopros%";
k := pos(VO, RichEdit1.Text);
if k <> 0 then
begin
RichEdit1.SelStart := k-1;
RichEd1it1.SelLength := length(VO);
//vop := RichEdit1.SelAttributes;
vop.Assign(RichEdit1.SelAttributes);
end;
RichEdit1.SelAttributes := vop;
RichEdit1.Lines.Add("xxx");
← →
atmospheric (2004-02-18 17:46) [10]ау ?!
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2004.02.29;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.01 c
