| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Разные стили шрифта в одном RichEdit [D7, Win2k, WinXP]

vishnia ©   (2006-05-21 15:09:00) 

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

---

Leonid Troyanovsky   (2006-05-21 18:35:00) [1]

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

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


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

--
Regards, LVT.

---

Andy BitOff   (2006-05-21 18:05:00) [2]

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

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

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

---

vishnia   (2006-05-21 16:18:00) [3]

Спасибо @Lex .

---

@Lex   (2006-05-21 16:03:00) [4]

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;

---

Наверх