richEdit

← →
Softal © (2003-10-21 08:19) [0]

как в richEdit выводить текст в одной строке по символьно

← →
MBo © (2003-10-21 08:24) [1]

lines[1]:=lines[1]+"s";

← →
oleg2406 (2003-10-21 09:50) [2]

Подскажите пожалуйста , как выводить в richEdit (или в Memo) каждую строчку разными шрифтами (разным кеглем)?
Ведь свойство Font для всех строк компонента.

← →
TUser © (2003-10-21 09:52) [3]

Выделяешь нужный кусок текста. Назначаешь ему шрифт.

← →
oleg2406 (2003-10-21 12:38) [4]

Спасибо!
Только вот не могу найти в чем у меня ошибка.
Хотел, чтобы каждая строка с Edit1 вносилась в RichEdit кеглем увеличенным на 1.
Вот как у меня:
i:=8 - начальный размер шрифта;
count:=0 - начальная позиция для выделяемого текста.

в OnClick()
MyRichEdit.PlainText:=true; MyRichEdit.SelStart := count+1; MyRichEdit.SelLength := length(Edit1.Text); MyRichEdit.SelAttributes.Size := i; MyRichEdit.Lines.Append(Edit1.Text); ShowMessage(IntToStr(count)+" "+IntToStr(Length (Edit1.Text))); i:=i+1; count:=count+Length(Edit1.Text);

Только вот что-то не так, не могу пока понять что...
Подскажите пожалйуста.

← →
ZEE © (2003-10-21 12:48) [5]

> oleg2406 (21.10.03 12:38) [4]
> Спасибо!
> Только вот не могу найти в чем у меня ошибка.
> ...
> Только вот что-то не так, не могу пока понять что...
> Подскажите пожалйуста.

так по мойму должно работать
RichEdit1.SelStart:=length(RichEdit1.Text); RichEdit1.SelLength:=0; RichEdit1.SetText:=Edit1.Text; RichEdit1.SelAttributes.Size:=i; RichEdit1.Lines.Add(""); i:=i+1;

>...
>MyRichEdit.PlainText:=true;
> MyRichEdit.SelStart := count+1;
> MyRichEdit.SelLength := length(Edit1.Text);
> MyRichEdit.SelAttributes.Size := i;
> MyRichEdit.Lines.Append(Edit1.Text);
>...
Помоему сначала нужно добавить текст в РичЕдит, а потом выделять и изменять, а у тебя наоборот.

на счет кода от ZEE незнаю, непроверял

← →
oleg2406 (2003-10-21 13:06) [7]

Благодарю еще раз!
Работает!

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