Исправление ошибки с неожиданным изменением цвета фона в Delphi при использовании `TColorDialog`

Delphi , Графика и Игры , Цвета и Палитра

Исправление ошибки с неожиданным изменением цвета фона в Delphi при использовании TColorDialog

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

Описание проблемы

Разработчик, новый в использовании Delphi, столкнулся с проблемой при работе с компонентом TColorDialog. Проблема заключается в том, что при закрытии диалога выбора цвета без выбора какого-либо цвета из предложенных, фон приложения и сохраненные настройки в файле конфигурации .ini неожиданно устанавливаются в черный цвет.

Пример кода

Вот пример кода, который вызывает данную проблему:

procedure TEinstellungenF.BtnBackgroundClick(Sender: TObject);
var
  filename: String;
  ini: TIniFile;
begin
  // ...
  ColorDialog1.Execute();
  try
    ini.WriteInteger('Farben', 'Hintergrundfarbe', ColorDialog1.Color);
  finally
    ini.Free;
  end;
  // ...
  FrmMain.Color := TColor(Ini.ReadInteger('Farben', 'Hintergrundfarbe', ColorDialog1.Color));
  // ...
end;

Подтвержденный ответ

Решение проблемы заключается в проверке возвращаемого значения метода Execute компонента TColorDialog. Согласно документации:

Execute открывает диалог выбора цвета, возвращая true, если пользователь выбрал цвет и нажал OK, или false, если пользователь отменил выбор.

Рекомендации по исправлению

Добавим проверку значения, возвращаемого методом Execute, чтобы убедиться, что пользователь действительно выбрал цвет перед его сохранением и применением:

if ColorDialog1.Execute then
begin
  ini.WriteInteger('Farben', 'Hintergrundfarbe', ColorDialog1.Color);
  FrmMain.Color := ColorDialog1.Color;
  // Обновляем другие элементы интерфейса или сохраняем цвет в нужных местах
end
else
begin
  // Пользователь отменил выбор, оставляем цвет без изменений
end;

Заключение

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

Создано по материалам из источника по ссылке.

Исправление ошибки в Delphi, связанной с изменением цвета фона на черный после использования `TColorDialog` без выбора цвета.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: Цвета и Палитра ::