Главная страница
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.033 c
14-94148
Knight
2004-02-04 23:41
2004.02.29
Есть ли место 486-му в современной локалке?


7-94195
Dima_dvp
2003-10-24 01:27
2004.02.29
DircetX или OpenGL запущен или нет.


14-94139
Goida
2004-02-04 15:52
2004.02.29
Кто знает, где можно хорошую музыку скачать?


1-93897
VID
2004-02-11 14:55
2004.02.29
Как выделить некий текст в TEmbeddedWB ?


1-93962
neteditor
2004-02-18 17:50
2004.02.29
Наследование TForm: Resource not found