Текущий архив: 2002.07.01;
Скачать: CL | DM;

Вниз

как в ReachEdit разукрасить строки, сделать жирным?   Найти похожие ветки 

← →
volph   (2002-06-19 12:15) [0]

как в ReachEdit разукрасить строки? дайте конкретный пример

---

← →
Игорь Шевченко ©   (2002-06-19 12:26) [1]

Program Files/Borland/Delphi/Demos

---

← →
DeMoN-777 ©   (2002-06-19 12:26) [2]

Извиняй пример писать некогда, но на водку ;) дать могу:
RichEdit1.SelAttributes+F1

---

← →
DeMoN-777 ©   (2002-06-19 12:35) [3]

Больше никак не успеваю,

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;

Удачи.

---

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

Текущий архив: 2002.07.01;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.037 c