PNG laden und Transformieren

[SebastianZ]

Nach kurzen googlen folgende (gerade getestete) Lösung:

Du musst die Unit Vcl.Imaging.pngimage einbinden.

Delphi-Quellcode:

  procedure copy_to_resized_png( tar, src:string; w, h: Integer);
  var
    bmp: TBitmap;
    png, output: TPngImage;
  begin
    png := TPngImage.Create;
    png.LoadFromFile( src);
    bmp := TBitmap.Create;
    bmp.Width := w;
    bmp.Height := h;

    bmp.Canvas.StretchDraw( RECT( 0, 0, w, h), png);

    output := TPngImage.Create;
    output.Assign( bmp);
    output.SaveToFile( tar);

    output.Free;
    bmp.Free;
    png.Free;
  end;

Quelle: https://juststrcpy.wordpress.com/200...e-in-delphi-1/