Использование клавиши PrintScreen

ВЫВОД ГРАФИЧЕСКИХ ИЗОБРАЖЕНИЙ

Вывод текстовой информации

Базовые операции с принтером

Последовательность использования методов принтера следующая:

1. Вызов метода BeginDoc.

2. Вывод информации на Canvas.

3. Распечатка документа с помощью метода EndDoc.

Пример.

begin

Printer.BeginDoc;

//вывод информации

Printer.Canvas.TextOut(10, 10, ‘Печать’);

Printer.Canvas.Rectangle(10, 10, 100, 100);

Label1.Caption:= ’Печать страницы #’+IntToStr

(Printer.PageNumber);

Printer.NewPage;

Printer.EndDoc;

end;

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

var

TextPrint: System.Text;

Line: Integer;

begin

//ассоциируем значение текстовой переменной с принтером

AssignPrn(TextPrint);

//открыть файл

Rewrite(TextPrint);

//печать тем же шрифтом, что и в Memo

Printer.Canvas.Font:= Memo1.Font;

//вывод содержимого Memo1

for Line:= 0 to Memo1.Lines.Count-1 do

Writeln(TextPrint.Memo1.Lines[Line]);

//завершить вывод информации

System.Close;

end;

Распечатка содержимого ASCII-файла.

Procedure PrintFile(FileName: String);

var

F: TextFile;

S: String;

Row: Integer;

begin

AssignFile(F, FileName);

Reset(F);

Row:= 0;

Printer.BeginDoc;

While not eof(F) do

begin

Readln(F, S);

Printer.Canvas.TextOut(0, Row, S);

Row:= Row + 20;

if Row >= Printer.PageHeight then Printer.NewPage;

end;

Printer.EndDoc;

CloseFile;

end;

Графическое изображение формы можно вывести следующим образом:

begin

Printer.BeginDoc;

Printer.Draw(0, 0, Image);

Printer.EndDoc;

end;

Чтобы этот пример отработал необходимо на этапе проектирования свойству формы AutoRedraw присвоить значение true. Это будет означать, что графическое изображение формы будет преобразовано в растровое и через свойство Image будет напечатано.

Для того чтобы использовать клавишу PrintScreen сначала надо получить уведомление о том, что она нажата. Свойству формы KeyPreview на стадии проектирования необходимо присвоить значение true и в обработчике события, связанного с отпусканием клавиши OnKeyUp, записать следующее:

//распечатка клиентской области формы

Procedure TForm1.FormKeyUp(Sender: TObject; var Key: Word;

Shift: TShiftState);

Var

B: TBitmap;

begin

if key = vk_SnapShot then

begin

B:= GetFormImage;

Printer.BeginDoc;

Printer.Canvas.Draw(0, 0, B);

Printer.EndDoc;

end;

end;

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

Пример.

//распечатка всей формы

Procedure TForm1.FormKeyUp(Sender: TObject; var Key: Word;

Shift: TShiftState);

Var

B: TBitmap;

begin

if key = vk_SnapShot then

begin

B:= TBitmap.Create;

B.Assign(ClipBoard);

Printer.BeginDoc;

Printer.Canvas.Draw(0, 0, B);

Printer.EndDoc;

end;

end;

Дата добавления: 2014-01-07