Форум по Delphi программированию

Delphi Sources



Вернуться   Форум по Delphi программированию > Все о Delphi > [ "Начинающим" ]
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

Ответ
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 13.06.2014, 20:56
Guneska Guneska вне форума
Прохожий
 
Регистрация: 15.11.2012
Сообщения: 24
Репутация: 10
Вопрос Embarcadero RAD Delphi XE6

Доброго времени суток, уважаемые форумчане. Подскажите, пожалуйста, как изменить цвет фона в RichEdit по кнопке и цвет текста после применения встроенного стиля в Embarcadero RAD Delphi XE6? Стили вибираю по пути Project->Options->Application->Appearance. Что-то заумное, прошу не предлагать, т.к. я полный нуб.
Код кнопки по которой меняется цвет фона RichEdit, если выбран "официальный" стиль Windows:
Код:
procedure TForm1.Button6Click(Sender: TObject);
begin
with colordialog1 do
begin
  if not execute then exit;
  RichEdit1.color:=color;

end;
end;

Последний раз редактировалось Guneska, 13.06.2014 в 21:53.
Ответить с цитированием
  #2  
Старый 14.06.2014, 11:22
MotoArhangel MotoArhangel вне форума
Новичок
 
Регистрация: 14.10.2012
Сообщения: 58
Версия Delphi: Delphi 10.4
Репутация: 10
По умолчанию

Код:
// Свойство SelAttributes определяет атрибуты выбранного текста в элементе
// управления редактированием с форматированием.
// Color - свойство атрибута отвечающее за цвет текста
// При нажатии на кнопку ButtonColor
procedure TForm1.ButtonColor1Click(Sender: TObject);
begin
  //для RichEdit1 устанавливаем выбранный цвет
  // ButtonColor1.SymbolColor- возвращет выбранный цвет
  RichEdit1.SelAttributes.Color:=ButtonColor1.SymbolColor;
end;
Пример с использованием TButtonColor
Ответить с цитированием
  #3  
Старый 14.06.2014, 17:51
phomm phomm вне форума
Новичок
 
Регистрация: 07.10.2013
Адрес: Тюмень
Сообщения: 50
Версия Delphi: 7/2007/XE+/FPC
Репутация: 22
По умолчанию

Я бы посоветовал автору проиллюстрировать скриншотами суть проблемы, а то непонятно, что именно не так.
Ответить с цитированием
Ответ


Delphi Sources

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра

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

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 03:20.


 

Сайт

Форум

FAQ

RSS лента

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2023

ВКонтакте   Facebook   Twitter