Прорисовка прозрачного и рястянутого PNG

[Armageddets]

Всем доброго времени суток, уважаемые эксперты. Есть проект, в котором состоит задача в том, чтобы вывести картинки различных форматов на форме с прозрачностью и растягиванием. Формат bmp и jpg выводятся отлично - без проблем. Для вывода картинок формата Png использую библиотеку PngImage.

Png:TPNGObject;

Загружаю картинку так:

  path:=ExtractFileDir(Application.ExeName);  
  PNG:=TPNGObject.Create;
  Png.Transparent:=True;
  Png.LoadFromFile(path+'\img\menu\Name.png');

Когда я просто вывожу png картинку через bitblt - все работает отлично/ Когда пытаюсь растянуть картинку png и вывести, тоже работает отлично вот так:

TransparentBlt(B.Canvas.Handle, 0, 0, 1280, 690, Png.Canvas.Handle, 0, 0, Png.Width, Png.Height, clBlack);

Начинаются проблемы когда я пытаюсь вывести картинку одновременно и растянутую и с прозрачностью. Применяю для этого TransparentStretchBlt, пробовал задавать различные параметры, но всегда рисуется не правильно. Ниже прилагаю варианты некоторые:

TransparentStretchBlt(B.Canvas.Handle, 700,200,540,50,   Png.Canvas.Handle, 0,0,Png.Width,Png.Height,0,0,0); //так плохо видно
B.Canvas.StretchDraw(Rect(700,200,1240,250),Png); //Так видно хорошо
TransparentStretchBlt(B.Canvas.Handle, 700,200,540,50,   Png.Canvas.Handle, 0,0,Png.Width,Png.Height,Png.Canvas.Handle,0,SRCPAINT); //так рисует всю картинку без прозрачности
TransparentStretchBlt(B.Canvas.Handle, 700,200,540,50,   Png.Canvas.Handle, 0,0,Png.Width,Png.Height,Png.Canvas.Handle,0,0); //так рисует не правильно с прозрачным центром

Прилагаю и картинку, что получается в итоге. Последние 3 цифры - это задание маски и не задавать ее не дает. Как ее правильно задавать, если маску я не делал?

function TransparentStretchBlt(DstDC: HDC; DstX, DstY, DstW, DstH: Integer;
                                                    SrcDC: HDC; SrcX, SrcY, SrcW, SrcH: Integer; 
                                                    MaskDC: HDC; MaskX, MaskY: Integer): Boolean;

Вопрос как правильно указать параметры для вывода картинки или может есть другие варианты вывода? Canvas.StretchDraw не применяю, так как у него в теории скорость работы меньше

[Pavia]

На Delphi7 я использовал следующий код

  Png:=TPngObject.Create;
  BitmapToPng(ImageControl.Image.Bitmap, png, False);
  png.CreateAlpha;
  Png.Draw(Canvas, Rect1);
  png.Destroy;

В TPngObject уже реализовано как надо. Хотя и не самым лучшим способом.

{Draws the image into a canvas}
procedure TPngObject.Draw(ACanvas: TCanvas; const Rect: TRect);
var
Header: TChunkIHDR;
begin
{Quit in case there is no header, otherwise obtain it}
if Empty then Exit;
Header := Chunks.GetItem(0) as TChunkIHDR;

{Copy the data to the canvas}
case Self.TransparencyMode of
{$IFDEF PartialTransparentDraw}
ptmPartial:
DrawPartialTrans(ACanvas{$IFDEF UseDelphi}.Handle{$ENDIF}, Rect);
{$ENDIF}
ptmBit: DrawTransparentBitmap(ACanvas{$IFDE F UseDelphi}.Handle{$ENDIF},
Header.ImageData, Header.BitmapInfo.bmiHeader,
pBitmapInfo(@Header.BitmapInfo), Rect,
{$IFDEF UseDelphi}ColorToRGB({$ENDIF}Transp arentColor)
{$IFDEF UseDelphi}){$ENDIF}
else
begin
SetStretchBltMode(ACanvas{$IFDEF UseDelphi}.Handle{$ENDIF}, COLORONCOLOR);
StretchDiBits(ACanvas{$IFDEF UseDelphi}.Handle{$ENDIF}, Rect.Left,
Rect.Top, Rect.Right - Rect.Left, Rect.Bottom - Rect.Top, 0, 0,
Header.Width, Header.Height, Header.ImageData,
pBitmapInfo(@Header.BitmapInfo)^, DIB_RGB_COLORS, SRCCOPY)
end
end {case}
end;

[Armageddets]

Спасибо огромное за помощь. Для моего примера даже не понадобилась строка

png.CreateAlpha;

Даже с вот этой строкой отлично сработало с прозрачностью и растягиванием:

Png.Draw(B.Canvas, Rect(700,200,1240,250));