22 lines
514 B
Plaintext
22 lines
514 B
Plaintext
type TSPdfImageRange = class(TSPdfAbstractRange)
|
|
public
|
|
function Do();override;
|
|
public
|
|
Page: PdfPage;
|
|
Image: PdfImage;
|
|
end;
|
|
|
|
function TSPdfImageRange.Do();
|
|
begin
|
|
// println("image = {}, x = {}, y = {}, w = {}, h = {}", image, x, y, w, h);
|
|
self.Page.DrawImage(self.Image, self.X, self.Y, self.W, self.H);
|
|
|
|
if sysparams["_PDF_IMAGE_DEBUG_"] then
|
|
begin
|
|
self.Page.SetLineWidth(0.1);
|
|
self.Page.SetRGBStroke(0.8, 0.8, 0);
|
|
self.Page.Rectangle(X, Y, W, H);
|
|
self.Page.Stroke();
|
|
end
|
|
end;
|