Bitmap Strecken Problem mit dieser Funktion

[thomas2009]

Hallo

ich suche eine andere Idee um ein Bitmap zu strecken
Mit dieser Funktion funktioniert gut aber das Problem, wenn ich wieder die originale Größe eingibe, dann bekomme ich die ursprüngliche Qaulität nicht ! sehr chlecht

also besser die Image strecken statt Bitmap

Delphi-Quellcode:

function TForm1.ResizeBmp(bitmp: TBitmap; wid, hei: Integer): Boolean;
var
  TmpBmp: TBitmap;
  ARect: TRect;
begin
  Result := False;
  try
    TmpBmp := TBitmap.Create;
    try
      TmpBmp.Width  := wid;
      TmpBmp.Height := hei;
      ARect := Rect(0,0, wid, hei);
      TmpBmp.Canvas.StretchDraw(ARect, Bitmp);
      bitmp.Assign(TmpBmp);
    finally
      TmpBmp.Free;
    end;
    Result := True;
  except
    Result := False;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
ResizeBmp(Image1.Picture.Bitmap ,StrToInt(Edit1.Text) , StrToInt(Edit2.Text));
end;

[Jelen]

Wie wär's, wenn Du das Original-Bitmap irgendwo speicherst und für jede Ausgabe nur die Kopie davon, also Dein TmpBmp, verwendest?

[Medium]

So lange du nicht in ganzzahligen Vielfachen ohne Interpolation skalierst, und ggf. sogar verkleinerst wirst du nie wieder die ursprüngliche Qualität 100%ig wieder erhalten wenn du einfach nur auf die Ausgangsgröße skalierst. Du solltest dir wie schon gesagt das Originalbild merken, und alle Skalierungen von diesem aus vornehmen. Es ist nämlich auch meist qualitätsmindernd wenn man von einer Vergrößerung vergrößert/verkleinert, bei voriger Verkleinerung sowieso. Besser immer vom Original ausgehen.