1

Помогите пожалуйста с решением 1 вопроса. Использую такую процедуру

procedure TForm1.NotificationInsertText(RichEdit: TRichEdit; const atext: string; acolor: TColor; astyles: TFontStyles);
begin
with RichEdit do
begin
  SelAttributes.Color := acolor;
  SelAttributes.Style := astyles;
  SelText := atext;
end;
end;

для смены цвета текста в RichEdit. Если не использовать темы из вкладке Project => Options => Appearance, то цвет текста меняет всегда, как нужно. Когда я установил там тему для программы, цвета текста не меняется никак. Как решить проблему, чтобы цвет меняется в richedit при использовании темы? Включал/отключал ParentColor и ParentFont, не помогло.

1
  • А через графический редактор меняется?
    – SlimRG
    30 сен 2020 в 19:52

2 ответа 2

1

Использую такую процедуру

А при каких условиях она вызывается?

Включал/отключал

Можно и StyleElements в комбинации попробовать

++ старенький пример был, видели http://delphiworld.narod.ru/base/add_re_colored_line.html да, думаю правильно идете - отключить элемент с воздействия схемы оформления. но там своих вылезет проблем куча.

0

В новых версиях Delphi для изменения различных свойств (не только цвета) нужно просмотреть свойства StyleElements компонента или всей форми и поставить в False для возможности изменения программистом.

Ваш ответ

Нажимая на кнопку «Отправить ответ», вы соглашаетесь с нашими условиями использования и подтверждаете, что прочитали и поняли наши политику конфиденциальности и нормы поведения.

Всё ещё ищете ответ? Посмотрите другие вопросы с метками или задайте свой вопрос.