Скачать: CL | DM;

Разные стили шрифта в одном 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.

---

← →
Leonid Troyanovsky ©   (2006-05-21 18:35) [4]

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

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


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

--
Regards, LVT.

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.053 c