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;