Главная страница
    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.48 MB
Время: 0.042 c
5-1089734822
boband
2004-07-13 20:07
2005.07.11
Формула прозрачности


4-1116090783
Waso
2005-05-14 21:13
2005.07.11
прерывание от LPT


6-1112691724
_Andrey
2005-04-05 13:02
2005.07.11
popup сообщение


14-1118328590
PVOzerski
2005-06-09 18:49
2005.07.11
Объявлено о смерти проекта Virtual Pascal...


3-1117565042
mefisto
2005-05-31 22:44
2005.07.11
Backup базы MSSQL Server 2000 в Делфях





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