Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2005.07.11;
Скачать: [xml.tar.bz2];

Вниз

Цвет текста в 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;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.47 MB
Время: 0.038 c
3-1117191709
ArtSam
2005-05-27 15:01
2005.07.11
DCOM, Socket. Помогите: как их настроить для обеспечения работы


1-1118653454
Navi
2005-06-13 13:04
2005.07.11
Что такое Text?


4-1116001195
NikNet
2005-05-13 20:19
2005.07.11
Как в PopupMenu сделать пункт жирной WinAPI


4-1115595703
NikNet
2005-05-09 03:41
2005.07.11
PopupMenu! как сделать для ListView (WinAPI)???


10-1095063443
Weare
2004-09-13 12:17
2005.07.11
Как корректно открыть Excel, взять оттуда значение ячейки и ...





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский