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

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

Цвет текста в RichEdit [D7, WinXP]

Earth ©   (2005-06-10 11:01:00) 

Как программно изменить цвет кусочека текста, ну допустим весь текст чёрный, а одно слово, красное?

---

Anatoly Podgoretsky   (2005-06-12 11:42:00) [1]

Или по очереди заполнять, или после заполнения выделять время и его подкрашивать.

---

Earth   (2005-06-12 10:16:00) [2]

Нет, это не подходит!
У меня есть:
Form4.RichEdit1.Lines.Add('Time'+TimeToStr(Time))
И мне нужно, чтобы только время было красным цветом, а всё остальное чёрным. Как это воплотить в жизнь?

---

Alexander Panov   (2005-06-11 21:38:00) [3]

Earth   (11.06.05 21:15) [12]
А там где начало выделения и длина, укказывать слова или что?

А помощь в Delphi почитать видимо не удается.

Read SelStart to determine the position of the first selected character, where 0 indicates the first character.

---

Earth   (2005-06-11 21:15:00) [4]

А там где начало выделения и длина, укказывать слова или что?

---

Galiaf   (2005-06-11 20:53:00) [5]

Я сам с такой проблемой встречался, так и не получил ответа.

---

Galiaf   (2005-06-11 20:52:00) [6]

Выделяешь кусок текста и перекрашиваешь:
 richedit1.SelStart:=начало выделения;
 richedit1.SelLength:=длинна выделения;
 richedit1.SelAttributes.Color:=цвет;

---

Shuric   (2005-06-11 17:36:00) [7]

[1] + [7] Все уже нашептали :)

---

Earth   (2005-06-11 17:20:00) [8]

Да нет, это-то я нашёл.
В моём случае допустим имеется строчка 'F3 Pressed  12:34:56' и только время должно быть красным, а всё остальное чёрным.

---

Virgo_Style   (2005-06-11 11:23:00) [9]

Earth   (10.06.05 19:21) [4]
Плохо искал.

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;

---

Earth   (2005-06-11 11:08:00) [10]

Я там ничего такого не нашёл. Если не трудно, то покажите пример кода.

---

Eraser   (2005-06-10 19:26:00) [11]

Earth   (10.06.05 19:21) [4]

каталог_с_делфи\Demos\RichEdit

---

Earth   (2005-06-10 19:21:00) [12]

Наверное, я по крайней мере не нашёл!

---

TUser   (2005-06-10 16:38:00) [13]

Неужели в хелпе нет примера?

---

Earth   (2005-06-10 16:34:00) [14]

А можно показать это на конкретном примере, а то я с Delphi не так уж давно работаю.

---

TUser   (2005-06-10 11:13:00) [15]

SelStart
SelLength
SellAttributes

---

Наверх