Модераторы: Poseidon, Snowy, bems, MetalFan
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Выделение текста в RichEdit 
V
    Опции темы
Addmin
Дата 7.2.2007, 06:40 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 803
Регистрация: 3.2.2006
Где: сослан в Сибирь

Репутация: нет
Всего: 15
В Microsoft Word есть функция “Выделения текста цветом”. Можно ли добиться такого эффекта с обычным RichEdit?

Заранее спасибо!



--------------------
SimpleFit.ru - блог о том, как заниматься спортом нормальным людям
--
Стимул работы в Сибири - комары.
PM MAIL   Вверх
pushok
Дата 7.2.2007, 08:42 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 92
Регистрация: 7.2.2007

Репутация: нет
Всего: нет
Незнаю как программно выделять фрагмент текста, но если его удасться выделить, то у RichEdit есть свойство SelAttributes (может написано неправильно) в котором хранится цвет (и все остальное, как в TFont) выделенного фрагмента текста.
PM ICQ   Вверх
~FoX~
Дата 7.2.2007, 08:52 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


НЕ рыжий!!!
****


Профиль
Группа: Участник Клуба
Сообщений: 2819
Регистрация: 8.10.2003
Где: Зеленоград

Репутация: 13
Всего: 68
А что нам стандартная справка говорит?
Код

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;



--------------------
user posted image
…множественность никогда не следует полагать без необходимости…
PM MAIL WWW ICQ Jabber   Вверх
Coder
Дата 7.2.2007, 09:24 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 733
Регистрация: 13.12.2004

Репутация: 5
Всего: 11
~FoX~, это задает цвет шрифта, а не выделяет текст. как я понял нужно изменить фон текста.
PM MAIL   Вверх
MetalFan
Дата 7.2.2007, 09:43 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Аццкий Сотона
****


Профиль
Группа: Комодератор
Сообщений: 3815
Регистрация: 2.10.2006
Где: Moscow

Репутация: 62
Всего: 128
"выделяем" красным выделенный в данный момент текст.
пример:
Код

var
  lChrFmt2: TCharFormat2A;
begin
  ZeroMemory(@lChrFmt2, SizeOf(TCharFormat2A));
  lChrFmt2.cbSize := SizeOf(TCharFormat2A);
  lChrFmt2.dwMask := CFM_BACKCOLOR;
  lChrFmt2.crBackColor := RGB( 255, 0, 0);
  SendMessage( redt.Handle, EM_SETCHARFORMAT, SCF_SELECTION, Integer( @lChrFmt2 ))



з.ы. см.MSDN, много интересного узнаешь ;) 

Это сообщение отредактировал(а) MetalFan - 7.2.2007, 09:45


--------------------
There are always someone smarter than you...
PM MAIL   Вверх
Addmin
Дата 7.2.2007, 11:07 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 803
Регистрация: 3.2.2006
Где: сослан в Сибирь

Репутация: нет
Всего: 15
Цитата

это задает цвет шрифта, а не выделяет текст. как я понял нужно изменить фон текста

Да-да, именно так.

Цитата

"выделяем" красным выделенный в данный момент текст.

А с цветом как-нибудь попроще работать можно? smile Выбор цвета у меня предоставлен пользователю.



--------------------
SimpleFit.ru - блог о том, как заниматься спортом нормальным людям
--
Стимул работы в Сибири - комары.
PM MAIL   Вверх
Snowy
Дата 7.2.2007, 11:15 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 192
Всего: 484
Цитата(Addmin @  7.2.2007,  11:07 Найти цитируемый пост)
А с цветом как-нибудь попроще работать можно?
  lChrFmt2.crBackColor := ColorToRGB(твой_цвет);
PM MAIL   Вверх
Addmin
Дата 7.2.2007, 16:05 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 803
Регистрация: 3.2.2006
Где: сослан в Сибирь

Репутация: нет
Всего: 15
Спасибо, Snowy и MetalFan.


--------------------
SimpleFit.ru - блог о том, как заниматься спортом нормальным людям
--
Стимул работы в Сибири - комары.
PM MAIL   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Общие вопросы"
SnowyMetalFan
bemsPoseidon
Rrader

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Общие вопросы | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0547 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.