Как разрешить цвета текста шрифта метки в Delphi? (проблема с пользовательскими стилями)

Я пытаюсь установить цвета шрифта Label, например:

Посмотреть изображение

  • TLabel1.Font.Color := clGreen;
  • TLabel2.Font.Color := clBlue;
  • TLabel3.Font.Color := clRed;

Но когда я выбираю пользовательский стиль:

  • Проект -> Параметры -> Приложение -> Внешний вид -> Пользовательские стили
  • Включите «TableDark» и установите его как «стиль по умолчанию»:

Посмотреть изображение

И затем запускаю программу, вот что я получаю:

Посмотреть изображение

Цвет шрифта метки возвращается к белому (это происходит только в том случае, если я использую один из пользовательских стилей), но мне действительно нужно включить пользовательские стили в моей программе, и я также хочу, чтобы цвета шрифта для меток оставались цветными, а не белыми. .

Есть ли способ исправить это?


delphi delphi-10.3-rio vcl-styles
person Charles stealth    schedule 23.02.2021    source источник
comment
Это с VCL или FMX? Если VCL, вы пытались удалить бит seFont из свойства TLabel.StyleElements? Если вы используете FMX, пробовали ли вы использовать TLabel.FontColor вместо TLabel.Font.Color или удалить бит FontColor из свойства TLabel.StyledSettings?   -  person Remy Lebeau    schedule 23.02.2021

Ответы (1)


arrow_upward
5
arrow_downward

Стили Vcl определяют свойства (например, цвет) текста меток. Однако это может быть отменено

  • удаление seFont с ярлыков StyleElements

  • изменение Font свойств по мере необходимости

В коде вы можете, например. записывать

  Label4.StyleElements := Label4.StyleElements - [seFont];
  Label4.Font.Color := clRed;
person Tom Brunberg    schedule 23.02.2021