Создание нативных диалогов в Delphi: копирование стиля FMX

Delphi , Программа и Интерфейс , Диалоги и Фреймы

Введение в тему

Создание нативных диалогов в Delphi, которые внешне напоминают стандартные диалоги FMX (FireMonkey), может быть непростой задачей, особенно если необходимо скопировать стиль и цвета. В данной статье мы рассмотрим, как можно получить цвета стандартных диалогов TDialogService.MessageDialog и использовать их для создания собственных диалогов.

Получение цветов стандартного диалога

Для начала, давайте разберемся, как получить цвета, используемые в стандартном диалоге TDialogService.MessageDialog. Это может быть необходимо для создания собственного диалога, который внешне будет соответствовать стандартным диалогам FMX.

Использование функций WinAPI

Чтобы получить цвета стандартных элементов диалога, можно использовать функции WinAPI для работы с темами Windows. Пример кода, который демонстрирует, как это можно сделать:

procedure GetThemeBackground(AImage: TImage; ATheme: HTHEME; APartID: Integer);
var
  stream: TMemoryStream;
  bitmap: TBitmap;
begin
  bitmap := TBitmap.Create;
  try
    bitmap.Width := Round(AImage.Width);
    bitmap.Height := Round(AImage.Height);
    DrawThemeBackground(ATheme, bitmap.Canvas.Handle, APartID, 0,
                        Rect(0, 0, bitmap.Width, bitmap.Height), nil);
    stream := TMemoryStream.Create;
    try
      bitmap.SaveToStream(stream);
      AImage.Bitmap.LoadFromStream(stream);
    finally
      stream.Free;
    end;
  finally
    bitmap.Free;
  end;
end;

procedure GetThemes;
var
  theme: HTHEME;
begin
  theme := OpenThemeData(0, 'TASKDIALOG');
  if theme <> 0 then
    try
      // Цвет клиентской области
      GetThemeBackground(imgClient, theme, TDLG_PRIMARYPANEL);
      // Цвет нижней панели кнопок
      GetThemeBackground(imgBottom, theme, TDLG_SECONDARYPANEL);
    finally
      CloseThemeData(theme);
    end;
end;

В этом примере кода мы создаем две процедуры: GetThemeBackground и GetThemes. В GetThemes мы инициализируем объект HTHEME для работы с темами Windows, а затем вызываем функцию GetThemeBackground для каждого элемента, который мы хотим раскрасить в стандартные цвета: клиентскую область и нижнюю панель с кнопками. Для этого создаем два изображения imgClient и imgBottom, которые будут содержать соответствующие цвета.

Работа с икониками диалога

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

Применение полученных данных

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

Заключение

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

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

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

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

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

:: Главная :: Диалоги и Фреймы ::