Разные стили шрифта в одном RichEdit

← →
vishnia (2006-05-21 15:09) [0]

Можно ли в одном RichEdit вывести информацию так:
Автор: Иванов
Название: Какая-то книга
и как?

← →
@Lex © (2006-05-21 16:03) [1]

This example requires a TRichEdit and a TButton. Leave the default text, usually "RichEdit1", in the lines property. The DefAttributes will apply to this text.

procedure TForm1.Button1Click(Sender: TObject);

begin
with RichEdit1.SelAttributes do
begin
Color := clRed;
Height := Height + 5;
end;
RichEdit1.Lines.Add("This line of text will be red.");
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
RichEdit1.DefAttributes.Color := clBlue;
RichEdit1.DefAttributes.Style := [fsBold, fsItalic];
end;

← →
vishnia (2006-05-21 16:18) [2]

Спасибо @Lex .

← →
Andy BitOff © (2006-05-21 18:05) [3]

vishnia (21.05.06 16:18) [2]
За что интересно?

За то, что @Lex умеет прекрасно копипастить? Ну тогда, да. =)

Вам достаточно было заглянуть в справку по TRichEdit.

> Andy BitOff © (21.05.06 18:05) [3]

> За то, что @Lex умеет прекрасно копипастить? Ну тогда, да.

Уважил потому, что.

--
Regards, LVT.

Разные стили шрифта в одном RichEdit Найти похожие ветки