Распечатка TPanel и его содержимого в Delphi

Delphi , Компоненты и Классы , TPanel

Иногда бывает необходимо распечатать содержимое TPanel с его дочерними элементами, такими как TImage, другие панели и контролы, чтобы получить точную копию того, что отображается на экране. В данной статье мы рассмотрим, как это можно сделать в Delphi.

Проблема

У вас есть TPanel, на котором расположены дочерние элементы, такие как TImage, другие панели и контролы. Недавно вам сказали, что было бы полезно иметь возможность распечатывать содержимое этого панели на бумаге, так же, как оно отображается на экране. Ваша задача - найти способ сделать это.

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

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

procedure TForm.PrintPanelToBitmap(Panel: TPanel; Bitmap: TBitmap);
begin
  Bitmap.Width := Panel.Width;
  Bitmap.Height := Panel.Height;
  Bitmap.PixelFormat := pf24bit; // чтобы избежать палитр

  // Копирование области панели с формы в отдельный битмап
  Bitmap.Canvas.CopyRect(Rect(0, 0, Bitmap.Width, Bitmap.Height),
    Panel.Parent.Canvas,
    Rect(Panel.Left, Panel.Top, Panel.Left + Panel.Width - 1, Panel.Top + Panel.Height - 1));
end;

После копирования содержимого панели в битмап, его можно распечатать с помощью функции PrintBitmap, которую можно найти в интернете.

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

Было найдено старое сообщение на Usenet, которое предлагает решение, копирующее содержимое панели в битмап, который затем можно распечатать:

procedure TForm.PrintPanelClick(Sender: TObject);
var
  Bitmap: TBitmap;
  FromLeft, FromTop, PrintedWidth, PrintedHeight: INTEGER;
begin
  Printer.BeginDoc;
  try
    Bitmap := TBitmap.Create;
    try
      Bitmap.Width := Panel1.Width;
      Bitmap.Height := Panel1.Height;
      Bitmap.PixelFormat := pf24bit; // чтобы избежать палитр

      // Копирование области панели с формы в отдельный битмап
      Bitmap.Canvas.CopyRect(Rect(0, 0, Bitmap.Width, Bitmap.Height),
        Form.Canvas,
        Rect(Panel1.Left, Panel1.Top, Panel1.Left + Panel1.Width - 1, Panel1.Top + Panel1.Height - 1));

      // Предполагается, что есть 10% отступы слева, справа и сверху
      // Предполагается, что соотношение сторон битмапа > ~0,75 для режима портрета
      PrintedWidth := MulDiv(Printer.PageWidth, 80, 100); // 80%
      PrintedHeight := MulDiv(PrintedWidth, Bitmap.Height, Bitmap.Width);
      FromLeft := MulDiv(Printer.PageWidth, 10, 100); // 10%
      FromTop := MulDiv(Printer.PageHeight, 10, 100); // 10%

      PrintBitmap(Printer.Canvas,
        Rect(FromLeft, FromTop, FromLeft + PrintedWidth, FromTop + PrintedHeight),
        Bitmap);
    finally
      Bitmap.Free;
    end;
  finally
    Printer.EndDoc;
  end;
end;

procedure PrintBitmap(Canvas: TCanvas; DestRect: TRect; Bitmap: TBitmap);
var
  BitmapHeader: pBitmapInfo;
  BitmapImage: Pointer;
  HeaderSize, ImageSize: DWORD;
begin
  GetDIBSizes(Bitmap.Handle, HeaderSize, ImageSize);
  GetMem(BitmapHeader, HeaderSize);
  GetMem(BitmapImage, ImageSize);
  try
    GetDIB(Bitmap.Handle, Bitmap.Palette, BitmapHeader^, BitmapImage^);
    StretchDIBits(Canvas.Handle,
      DestRect.Left, DestRect.Top, // Начало назначения
      DestRect.Right - DestRect.Left, // Ширина назначения
      DestRect.Bottom - DestRect.Top, // Высота назначения
      0, 0, // Начало источника
      Bitmap.Width, Bitmap.Height, // Ширина и высота источника
      BitmapImage,
      TBitmapInfo(BitmapHeader^),
      DIB_RGB_COLORS,
      SRCCOPY);
  finally
    FreeMem(BitmapHeader);
    FreeMem(BitmapImage);
  end;
end;

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

Заключение

В этой статье мы рассмотрели, как распечатать содержимое TPanel и его дочерних элементов в Delphi. Мы обсудили два подхода к решению этой проблемы: копирование содержимого панели в битмап и последующую распечатку битмапа. Мы также предоставили рабочий пример кода, который вы можете использовать в своем проекте.

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

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

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

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

:: Главная :: TPanel ::