Создание масштабируемого фонового паттерна в FMX с использованием повторяемого битмапа

Delphi , ОС и Железо , Windows

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

Проблема

В FMX-приложениях пользователи могут свободно изменять размеры форм. Использование статического изображения для фона может привести к потере качества при растягивании, так как это вызывает деформацию изображения. Требуется способ повторения небольшого битмап-паттерна по обеим осям, чтобы заполнить всю область формы, сохраняя при этом качество при изменении размеров.

Решение

Для достижения желаемого эффекта необходимо использовать компонент TTilerEffect, который позволяет повторять битмап в соответствии с изменяемыми размерами формы. Документацию по использованию TTilerEffect можно найти в официальной документации Embarcadero.

Свойства HorizontalTileCount и VerticalTileCount определяют количество повторений битмапа по горизонтали и вертикали соответственно. Благодаря тому, что эти значения являются числами с плавающей точкой, можно адаптировать их в соответствии с изменением размеров формы.

Альтернативный подход

В качестве альтернативы можно добавить компонент TImage на форму, сделать все остальные компоненты его дочерними (чтобы они отображались поверх), установить свойство Align в значение alClient, загрузить битмап и установить свойство WrapMode в imTile. Это позволит битмапу повторяться по всей форме при её изменении.

Пример кода

procedure TForm1.FormCreate(Sender: TObject);
var
  Image: TImage;
begin
  Image := TImage.Create(nil);
  with Image do
  begin
    Parent := Self; // Устанавливаем родительской формой
    Align := alClient; // Фон занимает весь клиентский район формы
    Stretch := True; // Разрешаем масштабирование
    WrapMode := imTile; // Устанавливаем режим повторения
    // Загрузка битмапа
    Picture.LoadFromFile('path_to_your_bitmap.bmp');
  end;
end;

В данном примере создается новый компонент TImage, который загружает битмап и настраивается таким образом, чтобы он повторялся и заполнял всю форму при изменении её размеров.

Используя эти методы, разработчики могут создать масштабируемый фоновый паттерн, который сохранит своё качество и будет адаптироваться к различным размерам формы в приложениях на FMX.

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

Создание фонового паттерна в FMX с использованием повторяемого битмапа, который адаптируется к изменению размеров формы.

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

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

:: Главная :: Windows ::