Мой Kbyte.Ru
Рассылка Kbyte.Ru
Группы на Kbyte.Ru
Партнеры Kbyte.Ru
Реклама
Сделано руками
Сделано руками
> Исходные коды - Неизвестно -

Delphi - Элементы управления Windows

Все примеры / Интерфейс / Элементы управления Windows

Как изменить цвет шрифта выделенного текста в RichEdit?

Автор: Неизвестно | добавлено: 29.01.2011, 17:59 | просмотров: 6877 (2+) | комментариев: 0 | рейтинг: *x0
Функция, которая позволяет изменять цвет шрифта выделенного фрагмента текста в компоненте RichEdit на Delphi.

Код

procedure RESetTextColor(p_theRE: TRichEdit; p_nColor: TColor;
 p_nFrom, p_nTo: Integer);
var
 n: Integer;
begin
 n := p_theRE.SelStart;
 p_theRE.SelStart := p_nFrom;
 p_theRE.SelLength := abs(p_nFrom - p_nTo) + 1;
 p_theRE.SelAttributes.Color := p_nColor;
 p_theRE.SelStart := n;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
 RichEdit1.Text := 'Пример для Kbyte.Ru';
 RESetTextColor(RichEdit1, clBlue, 1, 4);
end;
Об авторе

Неизвестно

Нет информации об авторе...
Неизвестно
Последние комментарии (всего: 0)

Добавлять комментарии могут только зарегистрированные пользователи сайта.
Если у Вас уже есть учетная запись на Kbyte.Ru, пройдите процедуру авторизации OpenID.
Если Вы еще не зарегистрированы на Kbyte.Ru - зарегистрируйтесь.


Нет комментариев...

Авторизация
 
OpenID
Зарегистрируйся и получи 10% скидку на добавление своего сайта в каталоги! Подробнее »
Поиск по сайту
Реклама
Счетчики