|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
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
|
|||
|
|||
Код:
// Свойство SelAttributes определяет атрибуты выбранного текста в элементе // управления редактированием с форматированием. // Color - свойство атрибута отвечающее за цвет текста // При нажатии на кнопку ButtonColor procedure TForm1.ButtonColor1Click(Sender: TObject); begin //для RichEdit1 устанавливаем выбранный цвет // ButtonColor1.SymbolColor- возвращет выбранный цвет RichEdit1.SelAttributes.Color:=ButtonColor1.SymbolColor; end; |
#3
|
|||
|
|||
Я бы посоветовал автору проиллюстрировать скриншотами суть проблемы, а то непонятно, что именно не так.
|