Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

Восстановить пароль

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 01.08.2010, 20:15   #11
MyLastHit
Очень суровый
Участник клуба
 
Аватар для MyLastHit
 
Регистрация: 17.12.2009
Сообщений: 1,988
По умолчанию

А как можно в коде управлять цветом отдельной строки в RichEdit. Мне нужно к примеру чтоб она была синей. Пробовал RichEdit.Lines.Color := ...
не понимает...
Ненавижу быть как все, но люблю, чтобы все были как я.
MyLastHit вне форума Ответить с цитированием
Старый 01.08.2010, 20:49   #12
DomiNick
Студент, не
Старожил
 
Аватар для DomiNick
 
Регистрация: 29.01.2009
Сообщений: 2,067
Лампочка

Хм.....
Ну вот набросал функцию... Вроде работает...
Код:
// Сама функция (куда нибудь после implementation её вставить, может ещё прототип объявить понадобится):

Procedure ColorRichString(RichEdit: TRichEdit; Index: Integer; Color: TColor);
Var i, k: Integer;
Begin
k:=0;
for i:=0 To Index-1 Do
      k:=k+Length(RichEdit.Lines.Strings[i])+2;
RichEdit.SelStart:=k;
RichEdit.SelLength:=Length(RichEdit.Lines.Strings[Index]);
RichEdit.SelAttributes.Color:=Color;
RichEdit.SelLength:=0; // чтоб выделение сбросилось
End;

// Использование:

Procedure TForm1.Button1Click(Sender: TObject);
Begin
ColorRichString(RichEdit1, // Контрол TRichEdit в котором нужно покрасить строку
                SpinEdit1.Value, // Номер окрашиваемой строки (нумерация с нуля)
                ColorGrid1.ForegroundColor // Цвет в который окрашиваем
                );
End;
I am the First of Cyber Evolution...
I am the First to Program your Future...
DomiNick вне форума Ответить с цитированием
Старый 02.08.2010, 00:21   #13
MyLastHit
Очень суровый
Участник клуба
 
Аватар для MyLastHit
 
Регистрация: 17.12.2009
Сообщений: 1,988
По умолчанию

Огромное спасибо за код)) разобрался с цветом. А как быть скажем с Жирностью, курсивом, подчеркиванием? Как они вызываются?
Ненавижу быть как все, но люблю, чтобы все были как я.
MyLastHit вне форума Ответить с цитированием
Старый 02.08.2010, 00:43   #14
DomiNick
Студент, не
Старожил
 
Аватар для DomiNick
 
Регистрация: 29.01.2009
Сообщений: 2,067
По умолчанию

А про это я уже давал ссыль... На предыдущей странице...
I am the First of Cyber Evolution...
I am the First to Program your Future...
DomiNick вне форума Ответить с цитированием
Старый 02.08.2010, 01:23   #15
MyLastHit
Очень суровый
Участник клуба
 
Аватар для MyLastHit
 
Регистрация: 17.12.2009
Сообщений: 1,988
По умолчанию

DomiNick спасибо тебе огромное!
Остался последний вопрос: У меня в РичЭдите стоит Скрол. Строки в РичЭдите регулярно добавляюся (пока программа работает). Как сделать так чтобы Скрол не торчал на месте, а опускался к последней строчке?(т.е. всегда был в низу с каждой новой строчкой)
Ненавижу быть как все, но люблю, чтобы все были как я.
MyLastHit вне форума Ответить с цитированием
Старый 02.08.2010, 01:48   #16
DomiNick
Студент, не
Старожил
 
Аватар для DomiNick
 
Регистрация: 29.01.2009
Сообщений: 2,067
Вопрос

Хм... А как ты добавляешь-то строки?
Если я добавляю из таймера текст вот так:
Код:
RichEdit1.Lines.Add(TimeToStr(Now)+':  NewText!');
то оно само опускается вниз...
I am the First of Cyber Evolution...
I am the First to Program your Future...
DomiNick вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Работа с текстом!!! elf80 Microsoft Office Excel 2 24.09.2009 09:54
Работа с текстом fakir9999 Общие вопросы Delphi 3 04.06.2009 16:28
Работа с текстом. J0n1cK Помощь студентам 1 30.05.2009 15:19
Работа с текстом boostman Общие вопросы Delphi 5 14.09.2008 12:57
Работа с текстом wwww Общие вопросы Delphi 5 18.12.2007 17:23