Добавление пользовательской печати в Delphi с помощью TMetafile и TMetafileCanvas

Delphi , Графика и Игры , MetaFile

При разработке приложений на Delphi иногда возникает необходимость добавить пользовательскую печать. Одним из способов реализации этой функции является использование компонентов TMetafile и TMetafileCanvas. Однако, как отметил один из пользователей, документация по этим компонентам оставляет желать лучшего. В этой статье мы рассмотрим, как работать с TMetafile и TMetafileCanvas, и предоставим несколько примеров кода на Object Pascal (Delphi).

Что такое TMetafile и TMetafileCanvas?

TMetafile — это компонент Delphi, который представляет собой метафайл, содержащий набор команд для рисования графических примитивов. Метафайл можно использовать для предварительного просмотра или печати. TMetafileCanvas — это Canvas, связанный с TMetafile, который позволяет рисовать на метафайле так же, как и на обычном Canvas.

Пример создания TMetafile

Давайте рассмотрим пример создания TMetafile и рисования на нем с помощью TMetafileCanvas:

var
  m: TMetafile;
  mc: TMetafileCanvas;
begin
  m := TMetafile.Create(Self);
  m.Width := 1000;
  m.Height := 1000;
  mc := TMetafileCanvas.Create(m, 0);
  try
    // Используйте mc так же, как и любой Canvas...
    mc.Brush.Color := clRed;
    mc.FillRect(0, 0, 100, 100);
    mc.Pen.Color := clBlack;
    mc.Pen.Width := 2;
    mc.MoveTo(0, 0);
    mc.LineTo(100, 100);
  finally
    mc.Free;
  end;
  // Вы можете использовать m для предварительного просмотра, печати или сохранения...
end;

В этом примере мы создаем TMetafile и связываем его с текущим формой. Затем мы создаем TMetafileCanvas, рисуем красный прямоугольник и черную линию на нем, а затем удаляем TMetafileCanvas.

Копирование TMetafile в буфер обмена

Чтобы скопировать TMetafile в буфер обмена, можно использовать метод Assign компонента Clipboard:

Clipboard.Assign(m);

Сохранение TMetafile в файл

Для сохранения TMetafile в файл можно использовать метод SaveToFile:

m.SaveToFile('C:\temp\myfile.emf');

Использование TMetafile для печати

Чтобы использовать TMetafile для печати, можно воспользоваться компонентом TPrinter и методом BeginDoc:

var
  P: TPrinter;
begin
  P := TPrinter.Create(nil);
  try
    P.BeginDoc;
    P.Canvas.Draw(0, 0, m);
    P.EndDoc;
  finally
    P.Free;
  end;
end;

В этом примере мы создаем TPrinter, начинаем печать с помощью BeginDoc, рисуем TMetafile на печать с помощью Canvas.Draw, а затем завершаем печать с помощью EndDoc.

Использование TMetafile в FastReport

Одним из альтернативных ответов было предложение изучить исходный код QuickReports, так как он использует metafiles под капотом для создания предварительного просмотра и отправки на печать. Аналогичным образом, в FastReport также используются metafiles для печати отчетов. Если у вас есть доступ к исходному коду FastReport, вы можете изучить, как он работает с TMetafile.

Заключение

В этой статье мы рассмотрели, как работать с TMetafile и TMetafileCanvas в Delphi для добавления пользовательской печати в приложение. Мы рассмотрели примеры создания TMetafile, рисования на нем, копирования в буфер обмена, сохранения в файл и использования для печати. Надеемся, что эта статья поможет вам разобраться с этими компонентами и реализовать пользовательскую печать в ваших проектах.

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

Данный контекст описывает использование компонентов TMetafile и TMetafileCanvas в Delphi для добавления пользовательской печати в приложение, с примерами кода на Object Pascal.

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

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

:: Главная :: MetaFile ::