Hallo Wissende,
mit folgender Routine erstelle ich eine Verkleinerung eines gewählten JPG´s. Die Grössenverhältnisse stimmen dabei. Es wird also nix verzerrt. Leider sind die Ergebnisse aber mehr als miserabel. Es sind Treppchen zu sehen, da wo schräge Kanten verlaufen sollten.
Wie kann ich das Problem umgehen respektive lösen?
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
tbmpDest : TBitmap32;
tbmpSource: TBitmap32;
SaveDlg: TSaveDialog;
begin
with TOpenPictureDialog.Create(nil) do
begin
if Execute then
begin
tbmpSource := TBitmap32.Create;
tbmpSource.LoadFromFile(FileName);
tbmpDest := TBitmap32.Create;
tbmpDest.SetSize(550, 412);
tbmpDest.Draw(tbmpDest.BoundsRect, tbmpSource.BoundsRect, tbmpSource);
Image1.Picture.Bitmap.Assign(tbmpDest);
SaveDlg := TSaveDialog.Create(nil);
if SaveDlg.Execute then
tbmpDest.SaveToFile(SaveDlg.FileName);
SaveDlg.Free;
tbmpDest.Free;
end;
end;
end;