Delphi.Заметки программиста

       

Печать изображений


Печать изображений может показаться очень сложным делом, однако свойство Printer.Canvas содержит метод:

procedure StretchDraw(const Rect: TRect; Graphic: TGraphic );

который легко справляется с этой задачей. При обращении к нему в качестве первого параметра указывается прямоугольная область, отводимая на поверхности листа для распечатки изображения, а в качестве второго — объект класса TGraphic, в котором хранится изображение, например:

with Printer do begin   BeginDoc;   Canvas.StretchDraw(Canvas.ClipRect, Image1.Picture.Graphic);   EndDoc; end;



Содержание раздела