Как изменить размер PNG картинки?

[highklass]

Как изменить размер PNG картинки?

[DemonicAlligator]

Тебе масштабировать, или просто обрезать надо?

[highklass]

Обрезать не надо, просто уменьшить размер и сохранить под другим названием

[RXL]

highklass, см. классы TPicture, TGraphic, TCanvas.

[highklass]

Код:

procedure TForm1.Button1Click(Sender: TObject);
Var
png,dib:TPngimage;
newwidth,newheight,a,b:integer;
begin
if OpenDialog1.Execute
then
NewWidth:=48;
NewHeight:=48;
png:= TPNGImage.Create;
png.Loadfromfile(OpenDialog1.FileName);
dib:=TPNGImage.Create;
GetPNGSize(png,a,b);
dib.Width:=newwidth;
dib.Height:=newheight;
dib.Canvas.StretchDraw(Rect(0,0,newwidth,newheight),png);
png.Free;
png:=dib;
dib:=nil;
png.SaveToFile(ChangeFileExt('E:\','00000000000.png'));
end;
end.

Результат:

До

После

Как качественно уменьшить изображение? Чтобы было без заднего черного фона?