if (
       StretchDIBits( { Number of Scanlines }
       DestDC, { Destination }
       WinPntsPartial[1].x, { Dest. (x) Left }
       WinPntsPartial[2].y, { Dest. (y) Top }
       dw, { Dest. Width }
       -dh, { Dest. Height }
       sx, { Src. (x) Left }
       sy, { Src. (y) Top }
       sw, { Src. Width }
       sh, { Src. Height }
       lpNewBits, { Image Bits }
       BitmapHeader^, { Bitmap Info }
       DIB_RGB_COLORS, { Color Table }
       SRCCOPY) { Raster Operation Code }
       > 0) then begin

      Inc(NumVectorCount);
      goto DoneSblt;
    end;

  ImageEnViewDst := TImageEnView.Create(nil);
  ImageEnViewDst.IEBitmap.ParamsEnabled := True;
  ImageEnViewDst.IO.LoadFromFile(ImgFName);
  ImageEnViewDst.EnableAlphaChannel := True;
  ImageEnViewDst.IEBitmap.AlphaChannel;
  ImageEnViewDst.IEBitmap.Flip(fdVertical);
  hDIBInfo := ImageEnViewDst.IO.IEBitmap.CreateDIB;

  { Load source image directly into ImageEN }
  ImageEnViewDst := TImageEnView.Create(nil);
  ImageEnViewDst.IEBitmap.ParamsEnabled := True;
  ImageEnViewDst.IO.LoadFromFile(ImgFName);
  ImageEnViewDst.EnableAlphaChannel := True;
  ImageEnViewDst.IEBitmap.AlphaChannel;
  ImageEnViewDst.IEBitmap.Flip(fdVertical);
  hDIBInfo := ImageEnViewDst.IO.IEBitmap.CreateDIB;

// Draw a transparent PNG onto a canvas
var
  bmp: TBitmap;
  ieb: TIEBitmap;
  aRect: TRect;
begin
  bmp := TBitmap.Create;
  ieb := TIEBitmap.Create;
  try
    bmp.LoadFromFile( 'D:\Background.bmp' );

    ieb.Read( 'AlphaImage.png' );
    if ieb.HasAlphaChannel( True ) = False then
      raise Exception.create( 'Image has no alpha!' );

    // Calculate destination rect so PNG is centered on our background image
    aRect := GetImageRectWithinArea( ieb.Width, ieb.Height, Rect( 0, 0, bmp.Width, bmp.Height ));
    ieb.RenderToCanvasWithAlpha( bmp.Canvas,
                                 aRect.Left, aRect.Top, aRect.Right - aRect.Left, aRect.Bottom - aRect.Top,
                                 0, 0, ieb.Width, ieb.Height,
                                 255, rfFastLinear );
  finally
    bmp.Free;
    ieb.Free;
  end;
end;

{ Draw Form Canvas }
DrawDC := GetDC(Self.Handle);
SetMapMode(DrawDC, MM_LOENGLISH);
SetViewPortOrgEx(DrawDC, 0, ClientHeight, nil);

{ Background Canvas }
bDC := CreateCompatibleDC(GetDC(0));
SetMapMode(bDC, MM_LOENGLISH);
SetViewPortOrgEx(bDC, 0, Self.ClientHeight, nil);

  if (not Pipe.ToPlotter) then begin
    GetClipBox(DestDC, ClipRect);
    crTL := ClipRect.TopLeft;
    crBR := ClipRect.BottomRight;
    crWd := ClipRect.Right - ClipRect.Left;
    crHt := ClipRect.Top - ClipRect.Bottom;

    if (MemCnv.Handle <> DestDC) then ShowMessage('Canvas Handle Mismatch!');

    if IsTransparent then begin
      ieCnv := TIECanvas.Create(MemCnv);

      SelClipRgn := SelectClipRgn(ieCnv.GDICanvas.Handle, Rgn);

      Use_MM_LOENGLISH := False; //True;
      if Use_MM_LOENGLISH then begin { Alpha Blend does not work properly with this mapping mode }
        ieBmp.Flip(fdVertical); { Flip it }

        //ieBmp.Resample(crWd, crHt);
        //ieBmp.DrawToCanvasWithAlpha(ieCnv.GDICanvas, crTL.X, crBR.Y);

        ieBmp.RenderToCanvasWithAlpha(ieCnv.GDICanvas, crTL.X, crBR.Y, crWd, crHt, sx, sy, sw, sh, 255, rfFastLinear, ielNormal, 1);
      end
      else begin
        { Use Pixels }
        pxTL := crTL;
        pxBR := crBR;
        
        LPtoDP(DestDC, pxTL, 1); { Convert clipping rectangle to canvas pixels }
        LPtoDP(DestDC, pxBR, 1);

        pxWd := Abs(pxBR.X - pxTL.X);
        pxHt := Abs(pxTL.Y - pxBR.Y);

        SetMapMode(ieCnv.GDICanvas.Handle, MM_TEXT); { Change mapping mode to pixels }
        SetViewPortOrgEx(ieCnv.GDICanvas.Handle, 0, 0, nil); { Set origin to upper-left corner }

        //ieBmp.Resample(pxWd, pxHt);
        //ieBmp.DrawToCanvasWithAlpha(ieCnv.GDICanvas, pxTL.X, pxTL.Y, 255, 1);

        ieBmp.RenderToCanvasWithAlpha(ieCnv.GDICanvas, pxTL.X, pxTL.Y, pxWd, pxHt, 0, 0, ieBmp.Width, ieBmp.Height, 255, rfFastLinear, ielNormal, 1);
      end;
      ieCnv.Free;
    end;