Bild verlustfrei verkleinen TGraphi32

[Karstadt]

Hallo.

Delphi-Quellcode:

procedure TForm1.Resizepicture(var Datei: TJpegImage; width, height: Integer);
var bmp:TBitmap;
begin
   Try
     bmp:=TBitmap.Create;
     try
     If Datei.width>Datei.Height then
     begin
       bmp.width:=width;
       bmp.height:=height;
     end
     else
     begin
        bmp.width:=height;
        bmp.Height:=width;
     end;

     bmp.canvas.StretchDraw(Rect(0,0,bmp.width,bmp.height),Datei);
     Datei.assign(bmp);

     finally
       bmp.free;
     end;

   except
     on e:exception do
     begin
       beep;
     end;
   end;
end;

Nun wenn es sich um kleine Bilder handelt 100x75 wird das bild pixelig.. Die Anwendung IrfanView macht das viel besser!

Ich habe mir wurde die TGrafik32 empfohlen. Da ich in diese Koponente neu bin wollte ich fragen, wie ich ein Bild verkleinen kann mit TGraphi32.

hat jemand ein Beispiel? Danke