Как включить изображение курсора мыши в скриншоты с использованием FireMonkey

Delphi , ОС и Железо , Монитор и Экран

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

Проблема

Разработчики, работающие с FireMonkey, сталкиваются с проблемой добавления изображения курсора мыши в скриншоты, которые сделаны не только с формы, но и со всего экрана. Стандартный метод рисования курсора, используемый в проектах VCL, не работает в проектах FireMonkey из-за отсутствия метода Draw.

Решение

Для решения данной проблемы необходимо использовать функцию DrawIcon из модуля WinAPI.Windows, однако эта функция не поддерживает работы с битмапами типа FMX.Types.TBitmap, которые используются в FireMonkey. Следовательно, нужно создать временный битмап типа Vcl.Graphics.TBitmap, на котором будет выполнено рисование курсора, а затем перенести изображение в TImage на форме.

Шаги решения:

1. Создайте временный битмап типа TBitmap из модуля Vcl.Graphics.
2. Используйте функцию DrawIcon для рисования курсора на временном битмапе.
3. Создайте временный поток памяти (MemoryStream).
4. Запишите временный битмап в поток памяти с помощью метода SaveToStream.
5. Загрузите изображение из потока памяти в TImage на форме, используя метод LoadFromStream.

Пример кода:

uses
  Vcl.Graphics,
  Winapi.Windows;

// Создаем временный битмап
var
  TmpBitmap: TBitmap;
begin
  TmpBitmap := TBitmap.Create;
  try
    // Настраиваем размеры битмапа
    TmpBitmap.Width := Screen.Width;
    TmpBitmap.Height := Screen.Height;
    // Копируем скриншот в битмап
    BitBlt(TmpBitmap.Canvas.Handle, 0, 0, TmpBitmap.Width, TmpBitmap.Height, Screen.CaptureHandle, 0, 0, SRCCOPY);

    // Рисование курсора на временном битмапе
    if DrawIcon(TmpBitmap.Canvas.Handle, 0, 0, GetCursorHandle) then
    begin
      // Создаем временный поток памяти
      var
        TmpMemoryStream: TMemoryStream;
      begin
        TmpMemoryStream := TMemoryStream.Create;
        try
          // Сохраняем битмап в поток
          TmpBitmap.SaveToStream(TmpMemoryStream);
          // Загружаем изображение из потока в TImage
          Image1.Bitmap.LoadFromStream(TmpMemoryStream);
        finally
          TmpMemoryStream.Free;
        end;
      end;
    end;
  finally
    TmpBitmap.Free;
  end;

Заключение

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

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

Статья посвящена решению проблемы включения изображения курсора мыши в скриншоты при разработке приложений с использованием FireMonkey.

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

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

:: Главная :: Монитор и Экран ::