Прикладом використання функції друку може слугувати ‘Програма тестування’. Для того, щоб описати нашу процедуру, потрібно задати умови, за яких ця процедура активується. Якщо нам потрібно почати друк після клацання на кнопці 'Друкувати', то нам ніщо не підійде краще, ніж подія Onclick. Тому доцільно буде використати цю подію.
Вивід тексту на канву здійснюється за допомогою методу TextOut, який описується таким чином:
procedure TextOut(X, Y: Integer; const Text: string);
Процедура TextOut прописує рядок тексту Text на канві, починаючи з позиції з координатами (X, Y).
При виводі тексту на канву фон надпису оприділяється властивістю канви Brush. А властивість кисті Color задає колір фону. Параметри тексту задаються відповідною властивістю канви Font.
Для початку необхідно підключити модуль Printers.
Приклад процедури:
procedure TForm1.MyPrintClick(Sender: TObject);
var x,y,i:integer;
begin
with meResult,Lines,Printer do
begin
Canvas.Font:=Font; //шрифт
Canvas.Font.Color := clBlue; //колір тектсу
Canvas.Font.Size := 10;//розмір шрифту
BeginDoc; //оголошуємо початок друку
x:=200; y:=100; //задаємо розміщення тексту на сторінці в пікселях
for i:=0 to Count-1 do
begin Canvas.TextOut(x,y,Lines[i]); виведення
y:=y+Canvas.TextHeight(Lines[i])
end;
EndDoc;//завершення друку
Clear; end; end;
