34 lines
1.0 KiB
Plaintext
34 lines
1.0 KiB
Plaintext
type TSPdfImageRange = class(TSPdfBasicRange)
|
|
public
|
|
function Create();
|
|
function Do();override;
|
|
|
|
public
|
|
Image: PdfImage;
|
|
Type: string;
|
|
end;
|
|
|
|
function TSPdfImageRange.Create();
|
|
begin
|
|
class(TSPdfBasicRange).Create();
|
|
{self.}Image := nil;
|
|
{self.}Type := "";
|
|
end;
|
|
|
|
function TSPdfImageRange.Do();
|
|
begin
|
|
// println("image = {}, x = {}, y = {}, w = {}, h = {}", {self.}image, {self.}endx, {self.}endy, {self.}width, {self.}DynamicHeight);
|
|
if {self.}Type = "emf" then
|
|
{self.}TSPage.PdfPage.DrawEmf({self.}Image, {self.}EndX, {self.}EndY, {self.}Width, {self.}DynamicHeight);
|
|
else
|
|
{self.}TSPage.PdfPage.DrawImage({self.}Image, {self.}EndX, {self.}EndY, {self.}Width, {self.}DynamicHeight);
|
|
|
|
if sysparams["_PDF_IMAGE_DEBUG_"] then
|
|
begin
|
|
{self.}TSPage.PdfPage.SetLineWidth(0.1);
|
|
{self.}TSPage.PdfPage.SetRGBStroke(0.8, 0.8, 0);
|
|
{self.}TSPage.PdfPage.Rectangle({self.}EndX, {self.}EndY, {self.}Width, {self.}DynamicHeight);
|
|
{self.}TSPage.PdfPage.Stroke();
|
|
end
|
|
end;
|