GR32 Resampler

[gandime]

entweder du meinst es so

Delphi-Quellcode:

var b,bb: TBitmap32;
begin
  bb := TBitmap32.Create;
  b:=TBitmap32.Create;
  bb.LoadFromFile(OldFile);
  b.Assign(bb);
  b.Draw(rect(0,0,b.width-1,b.height-1),rect(0,0,Resx-1,resy-1),b);
  b.Width := ResX;
  b.height := ResY;
  b.SaveToFile('C:\ka.jpg');
end;

oder ich weiss nicht was du meinst