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 для возможности изменения программистом.

Новый участник
Володимир Кундис — новый участник сайта. Будьте снисходительны, задавая уточняющие вопросы, комментируя и отвечая. Почитайте про нормы поведения.

Ваш ответ

By clicking “Отправить ответ”, you agree to our terms of service and acknowledge that you have read and understand our privacy policy and code of conduct.

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