Создание Прозрачного Индикатора Занятости в Delphi с UpdateLayeredWindow

Delphi , Графика и Игры , Компоненты и Графика

Статья на тему "Создание прозрачного индикатора занятости в Delphi с использованием UpdateLayeredWindow"

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

Прежде всего, разработчик создал форму без границ (BorderStyle = bsNone) и установил для неё цвет фона в чёрный (Color = clBlack), а также включил свойство AlphaBlend с уровнем прозрачности 180. Однако для динамического создания текстовых сообщений этого недостаточно, поэтому необходимо применить более сложные техники.

Шаги по созданию индикатора занятости:

Шаг 1: Создание битмапа

Сначала создаём битмап с использованием функции CreateDIBSection. Это позволяет получить указатель на память, где хранится изображение (битовые данные). Важно правильно задать структуру BITMAPINFOHEADER.

var
  h: TBitmapInfoHeader;
begin
  FillChar(h, SizeOf(TBitmapInfoHeader), 0);
  h.biSize := SizeOf(TBitmapInfoHeader);
  h.biWidth := DesiredWidth; // Ширина битмапа
  h.biHeight := DesiredHeight; // Высота битмапа
  h.biPlanes := 1;
  h.biBitCount := 32; // 32 бита на пиксель (ARGB)
  h.biCompression := BI_RGB;
end;

Шаг 2: Рендеринг текста

Следующим шагом является отрисовка текста поверх битмапа. Для этого используем устройство контекста CreateCompatibleDC и функции SetTextColor, SetBkColor, DrawText для установки цвета текста, фона и непосредственно отрисовки.

Шаг 3: Настройка прозрачности

Чтобы сделать фон текста полупрозрачным, необходимо модифицировать цветные компоненты каждого пикселя в зависимости от значения альфа-канала. В коде это делается путём умножения RGB-компонентов на значение альфа.

Шаг 4: Отображение битмапа

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

Пример кода:

procedure ShowLoadingIndicator(const AText: string; const AlphaValue: Byte);
var
  hdcSrc, hdcDst: HDC;
  bmp, oldBmp: HBITMAP;
  bitmapInfo: TBitmapInfo;
  rect: TRect;
begin
  // Инициализация структур и создание битмапа...
  // ...

  with bitmapInfo.bmiHeader do
  begin
    biSize := SizeOf(TBitmapInfoHeader);
    biWidth := Width; // Ширина текста + запас
    biHeight := -Height; // Вверх ногами для корректного отображения
    biPlanes := 1;
    biBitCount := 32;
    biCompression := BI_RGB;
  end;

  bmp := CreateDIBSection(hdcSrc, bitmapInfo, nil, Pointer(@pvBits), nil, 0);
  try
    // Рендеринг текста и настройка прозрачности...
    // ...

    hdcDst := GetDC(Handle);
    try
      UpdateLayeredWindow(
        Handle,
        hdcSrc,
        nil,
        @Size,
        bmp,
        Pointer(@Point),
        0,
        @BlendFunction,
        ULW_ALPHA
      );
    finally
      ReleaseDC(Handle, hdcDst);
    end;
  finally
    // Освобождение ресурсов...
  end;
end;

Заключение:

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

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

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

Альтернативный ответ:

В случае возникновения трудностей с антиалиасингом текста на прозрачном фоне, можно попробовать использовать другие шрифты, например Tahoma или Verdana. Также полезной может оказаться информация из вопроса "Как я могу добавить полупрозрачный слой на свою форму?".

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

Создание прозрачного индикатора занятости в Delphi с использованием функции UpdateLayeredWindow для отображения статуса приложения.

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

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

:: Главная :: Компоненты и Графика ::