Probleme mit StretchDraw

[DeddyH]

Jaja, ignoriert mich einfach mal wieder *grmpf*.

[edit] Nochmal: ich persönlich würde das eher so machen

Delphi-Quellcode:

var bmp: TBitmap;
begin
  bmp := TBitmap.Create;
  try
    bmp.Width := StrToIntDef(edtBreite.Text,150);
    bmp.Height := StrToIntDef(edtHoehe.Text,150);
    bmp.Canvas.StretchDraw(Rect(0,0,bmp.Width,bmp.Height),Image.Picture.Graphic);
    Image.Picture.Assign(bmp);
  finally
    bmp.Free;
  end;
end;

[/edit]