Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2005.07.11;
Скачать: CL | DM;

Вниз

Цвет текста в RichEdit   Найти похожие ветки 

 
Earth   (2005-06-10 11:01) [0]

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


 
TUser ©   (2005-06-10 11:13) [1]

SelStart
SelLength
SellAttributes


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

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


 
TUser ©   (2005-06-10 16:38) [3]

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


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

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


 
Eraser ©   (2005-06-10 19:26) [5]

Earth   (10.06.05 19:21) [4]

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


 
Earth   (2005-06-11 11:08) [6]

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


 
Virgo_Style ©   (2005-06-11 11:23) [7]

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 17:20) [8]

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


 
Shuric ©   (2005-06-11 17:36) [9]

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


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

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


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

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


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

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


 
Alexander Panov ©   (2005-06-11 21:38) [13]

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-12 10:16) [14]

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


 
Anatoly Podgoretsky ©   (2005-06-12 11:42) [15]

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



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

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

Наверх




Память: 0.47 MB
Время: 0.042 c
1-1119346635
Гость233
2005-06-21 13:37
2005.07.11
Отловить появляение вертикальной полосы прокрутки в TListView


4-1115833822
RealGaffer
2005-05-11 21:50
2005.07.11
Размер файла


1-1119362934
<Lelik>
2005-06-21 18:08
2005.07.11
Про TreeView


14-1118603404
focor
2005-06-12 23:10
2005.07.11
+++Windows MOBILE+++


14-1118735280
Сатир
2005-06-14 11:48
2005.07.11
Сабж





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский