2

Вот этот известный способ работал у меня на Borland Delphi 6:

MyProgressBar.Brush.Color := clWindow;
tmpColor := clGreen;
SendMessage(MyProgressBar.Handle, PBM_SETBARCOLOR, 0, tmpColor);
tmpColor := clRed;
SendMessage(MyProgressBar.Handle, PBM_SETBARCOLOR, 0, tmpColor);

После конвертации проекта на последнюю версию Embarcadero Delphi 10.2 этот же самый код никаких изменений не вызывает. Фон остается по-прежнему серый, а цвет полосы прогресса один раз рисуется зеленым, все следующие действия SendMessage цвета на красный не меняют.

Пробовал также параметры: BackgroundColor, BarColor - не помогают.

1 ответ 1

4

Если включены темы оформления, подобный подход невозможен. Подробнее у Microsoft.
Вы можете отключить темы (Project > Options > Application. Снять галочку с опции "Enable Runtime Themes"), только убедитесь, что:

  1. вы выставляете данную опцию для всех конфигураций или хотя бы для той конфигурации, в которой будете тестировать проект (В опциях сверху есть выпадающий ComboBox, где вы выбираете Debug/Release/All)

введите сюда описание изображения

  1. включен стиль по умолчанию (Windows) - в меню Project > Options > Application/Appearance

введите сюда описание изображения

Тогда всё заработает. Но также заработает и обычное присваивание цвета свойствам TProgressBar, например:

MyProgressBar.BackgroundColor := clRed;
MyProgressBar.BarColor := clYellow;

введите сюда описание изображения

6
  • Я попробовал, галочку снял, сохранил изменения, но ничего не изменилось - при открытии окна галочка снова вернулась. В чем тут дело?
    – AVM
    27 дек 2017 в 17:19
  • Цвет ProgressBar тоже меняться не стал
    – AVM
    27 дек 2017 в 17:27
  • @AVM Дополнил ответ 27 дек 2017 в 17:28
  • Спасибо большое, теперь все заработало!
    – AVM
    27 дек 2017 в 17:42
  • @AVM Если ответ является решением, отметьте его галочкой. Здесь так заведено.
    – zed
    29 дек 2017 в 22:01

Ваш ответ

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

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