27 lines
661 B
Plaintext
27 lines
661 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);
|
|
|
|
{$DEFINE WordToPdfTEST}
|
|
{$IFDEF WordToPdfTEST}
|
|
// Page.SetLineWidth(0.5);
|
|
// Page.SetGrayStroke(0.5);
|
|
// Page.MoveTo(0, self.Y);
|
|
// Page.LineTo(90, self.Y);
|
|
// Page.Stroke();
|
|
self.Page.SetLineWidth(0.1);
|
|
self.Page.SetGrayStroke(0.5);
|
|
self.Page.Rectangle(0, Y, 900, H);
|
|
self.Page.Stroke();
|
|
{$ENDIF}
|
|
end;
|