Разработка высококачественных графических приложений в Delphi с использованием 24-битных битмапов

Delphi , Графика и Игры , Bitmap

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

Проблема отображения красного прямоугольника в сером цвете на Windows

Вопрос, поднятый пользователем Hartmut, заключается в том, что при попытке нарисовать красный прямоугольник на TPicture.Bitmap в среде Windows, результат отображается в серых тонах, в то время как на Linux все работает корректно. Проблема связана с использованием 32-битного формата битмапа, который включает канал альфа (прозрачность), что приводит к неправильному отображению цвета.

Решение проблемы

Для решения проблемы необходимо убедиться, что битмап, на котором выполняется рисование, имеет 24-битный формат. Это достигается путем создания нового битмапа с 24-битным форматом пикселя и копирования исходного изображения в него. Пример кода на Object Pascal:

procedure TForm1.LoadAndShowPicture(fspec: string);
var
  bmp: TBitmap;
begin
  BM_valid:=false;              // Отключаем событие PaintBox1Paint
  Picture1.LoadFromFile(fspec);
  // Создаем битмап с 24-битным форматом
  bmp := TBitmap.Create;
  try
    bmp.PixelFormat := pf24bit;
    bmp.SetSize(Picture1.Width, Picture1.Height);
    bmp.Canvas.Draw(0, 0, Picture1.Bitmap);
    Picture1.Bitmap.Assign(bmp);
  finally
    bmp.Free;
  end;
  self.SetBounds(20,20,Picture1.Width,Picture1.Height);
  Apply_Edits(Picture1.Bitmap); // Рисуем красный прямоугольник
  BM_valid:=true;               // Включаем событие PaintBox1Paint
  PaintBox1.Invalidate;
end;

Альтернативное решение

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

Заключение

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

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

Вопрос пользователя связан с ошибкой отображения цвета при работе с графическими приложениями на Delphi в среде Windows, используя 32-битный битмап с альфа-каналом, и предлагается решение через создание 24-битного битмапа для корректной визуализации.

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

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

:: Главная :: Bitmap ::