Форум программистов
 
Контакты: о проблемах с регистрацией, почтой и по другим вопросам пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail.

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

Восстановить пароль
Повторная активизация e-mail

Ответ
 
Опции темы
Старый 15.11.2015, 16:57   #1
le7o
Форумчанин
 
Регистрация: 19.05.2011
Адрес: РФ, Курганская область, г. Курган
Сообщений: 116
Репутация: 34
По умолчанию Вопрос по использованию компонента RichEdit

Добрый день.

Подскажите пожалуйста каким образом можно форматировать текст в выделенном (setfocus) RichEdit (их на форме несколько)?

Некое подобие одной панели с кнопками (жирный, курсив, цвет текста и.п.) для нескольких RichEdit на форме.
le7o вне форума   Ответить с цитированием
Старый 15.11.2015, 18:47   #2
Stilet
Белик Виталий :)
Профессионал
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Адрес: Украина, Донецкая область, г. Краматорск
Сообщений: 57,957
Репутация: 6832
По умолчанию

Ну править свойство SelAttributes конечно же...
Код:

if ActiveControl is TRichEdit then with TRichEdit(ActiveControl).SelAttributes do begin
 И понеслась править атрибуты...
end;

__________________
I'm learning to live...
Stilet вне форума   Ответить с цитированием
Старый 15.11.2015, 19:27   #3
SQLPowerUser
Форумчанин
 
Аватар для SQLPowerUser
 
Регистрация: 19.01.2015
Сообщений: 140
Репутация: 182
Стрелка Из личной копилки

Для загрузки файлов > 64 Кб, надо установить RichEdit1.MaxLength := $7FFFFFF0;
Полезные ссылки
http://delphisite.ru/faq/vizualnye-komponenty/trichedit
http://articles.org.ru/cn/?c=101
SQLPowerUser вне форума   Ответить с цитированием
Старый 17.11.2015, 17:22   #4
le7o
Форумчанин
 
Регистрация: 19.05.2011
Адрес: РФ, Курганская область, г. Курган
Сообщений: 116
Репутация: 34
По умолчанию

Цитата:
Сообщение от Stilet Посмотреть сообщение
Ну править свойство SelAttributes конечно же...
Код:

if ActiveControl is TRichEdit then with TRichEdit(ActiveControl).SelAttributes do begin
 И понеслась править атрибуты...
end;


Не совсем понял по использованию делаю допустим такой код:

Код:

procedure TForm1.sButton1Click(Sender: TObject);
begin
if ActiveControl is TsRichEdit then
  with TsRichEdit(ActiveControl).SelAttributes do
  begin
   Style:=[fsbold];
  end;

end;

На форме три richedit и не срабатывает.
le7o вне форума   Ответить с цитированием
Старый 17.11.2015, 17:36   #5
Аватар
Модератор
Заслуженный модератор
 
Аватар для Аватар
 
Регистрация: 17.11.2010
Адрес: Северодонецк.ua
Сообщений: 17,869
Репутация: 6285
По умолчанию

Удобный способ при нескольких ричэдитах - в ActionList набросать стандартных Action-ов из группы Format. На них нацелить бесфокусные кнопки типа SpeedButton. Без всякого обработчика при клике по такой кнопке будет форматироваться ричэдит, имеющий фокус ввода
__________________
Если бы архитекторы строили здания так, как программисты пишут программы, то первый залетевший дятел разрушил бы цивилизацию
Аватар вне форума   Ответить с цитированием
Старый 17.11.2015, 17:40   #6
le7o
Форумчанин
 
Регистрация: 19.05.2011
Адрес: РФ, Курганская область, г. Курган
Сообщений: 116
Репутация: 34
По умолчанию

Аватар, спасибо действительно при использовании SpeedButton способ предложенный Stilet работает на ура.

Аватар, Ваш способ тоже подходит))

Последний раз редактировалось le7o; 17.11.2015 в 18:02.
le7o вне форума   Ответить с цитированием
Ответ

Опции темы

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

Быстрый переход

Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Вопрос по классам делфи и их использованию. Solrainer7 Общие вопросы Delphi 6 12.07.2010 19:16
Вопрос по использованию Worksheet? Vadim_abs Microsoft Office Excel 8 11.11.2009 12:54
Вопрос по использованию SQLite в delphi ROFF Помощь студентам 1 06.05.2009 09:26
Вопрос по использованию OLE yngwie Общие вопросы C/C++ 0 19.03.2009 01:56
вопрос по использованию конструкции if zetrix Microsoft Office Excel 0 31.10.2006 08:52


05:40.


Powered by vBulletin® Version 3.8.8 Beta 2
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.

RusProfile.ru


Справочник российских юридических лиц и организаций.
Проекты отопления, пеллетные котлы, бойлеры, радиаторы
интернет магазин respective.ru