Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.02.29;
Скачать: CL | DM;

Вниз

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;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.032 c
3-93771
zamkom
2004-02-02 20:44
2004.02.29
Corrupt file - other then header


1-93960
OlimPer
2004-02-16 22:03
2004.02.29
ShellListView


1-93856
Khabibulin
2004-02-16 17:02
2004.02.29
ScrollBars


6-94071
Alex-drob
2003-12-22 13:55
2004.02.29
Pop3


6-94049
dolphin1
2003-12-24 13:01
2004.02.29
ICQ