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

Поиск:

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


Новичок



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

Репутация: нет
Всего: нет
На ровном месте споткнулся, целый день бьюсь, не могу сделать выделение цветом выделенного франмента текста в RichEdit.

В word'e это выглядит так: Selection.Range.HighlightColorIndex = wdTurquoise

А в RichEdit??? 
PM MAIL   Вверх
Albinos_x
Дата 1.5.2006, 20:09 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Evil Skynet
****


Профиль
Группа: Комодератор
Сообщений: 3288
Регистрация: 28.5.2004
Где: X-6120400 Y-1 4624650

Репутация: 26
Всего: 108
этот вопрос наверно из общих вопросов...
 smile 
Код

...
  RichEdit1.SelStart:=N;    // N - номер символа откуда изменять
  RichEdit1.SelLength:= Len;    //  Len - количество изменяемых символов
  RichEdit1.SelAttributes.Color:= clBlue;    // цвет
  RichEdit1.SelAttributes.Style:= [fsBold];   // стиль жирный
...
  

Это сообщение отредактировал(а) Albinos_x - 1.5.2006, 20:11


--------------------
"Кто владеет информацией, тот владеет миром"    
Уинстон Черчилль
PM MAIL ICQ   Вверх
spp2
Дата 1.5.2006, 22:39 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: нет
Код

  RichEdit1.SelAttributes.Color:= clBlue;    // цвет


Устанавливает цвет шрифта выденного текста, я же пытаюсь добиться выделение цветом выделенного текста, есть разница. 
PM MAIL   Вверх
Alexeis
Дата 2.5.2006, 11:22 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Амеба
Group Icon


Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Репутация: 109
Всего: 459
spp2, тогда просто 
Код

  RichEdit1.SelStart:=N;    // N - номер символа откуда изменять    
  RichEdit1.SelLength:= Len;

p.s. не забудь фокус передать richedit у , а то до тех пор выделение не видно.

 


--------------------
Vit вечная память.

Обсуждение действий администрации форума производятся только в этом форуме

гениальность идеи состоит в том, что ее невозможно придумать
PM ICQ Skype   Вверх
spp2
Дата 2.5.2006, 12:31 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: нет
Нашел на http://www.rsdn.ru/Forum/?mid=1499009,
рецепт от _spin_
Код

uses Richedit;

procedure TForm1.Button1Click(Sender: TObject);
//http://www.rsdn.ru/Forum/?mid=1499009
var
  CF: TCharFormat2;
begin
  FillChar(CF.cbSize, SizeOf(TCharFormat2), 0);
  CF.cbSize := SizeOf(TCharFormat2);
  // Цвет фона
  CF.crBackColor := clYellow;
  CF.dwMask := CFM_BACKCOLOR;
  SendMessage(RichEdit1.Handle, EM_SETCHARFORMAT, SCF_SELECTION, Integer(@CF));
{  // Цвет шрифта
  CF.crTextColor := clGreen;
  CF.dwMask := CFM_COLOR;
  SendMessage(RichEdit1.Handle, EM_SETCHARFORMAT, SCF_SELECTION, Integer(@CF));
}
end;
 
PM MAIL   Вверх
Демо
Дата 2.5.2006, 13:03 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1278
Регистрация: 3.11.2005

Репутация: 30
Всего: 50
spp2, 
Сам пробовал? 

Сорри, сам лопухнулся с проверкой. 

Это сообщение отредактировал(а) Демо - 2.5.2006, 13:05


--------------------
    
PM MAIL ICQ Skype   Вверх
Rennigth
Дата 2.5.2006, 13:17 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


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

Репутация: 49
Всего: 76
Цитата(spp2 @  2.5.2006,  12:31 Найти цитируемый пост)
Нашел на http://www.rsdn.ru/Forum/?mid=1499009,
рецепт от _spin_

http://forum.vingrad.ru/index.php?showtopi...mp;#entry464833
smile 


--------------------
(* Honesta mors turpi vita potior *)
PM MAIL ICQ   Вверх
spp2
Дата 2.5.2006, 15:28 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: нет
Да, один к одному.
Значит я плохо искал на Vingrad  
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.0939 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


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

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