JPEG "on the Fly" Größe ändern

[DeddyH]

Versuch es mal mit BitBlt statt StretchDraw.

[edit] Oder der Canvas-Methode CopyRect() [/edit]

[edit2] Also in etwa so:

Delphi-Quellcode:

procedure Ausschnitt(const src: TGraphic;      // Quellgrafik
                     const dest: TBitmap;      // Zielbitmap
                     aWidth, aHeight: Integer; // Breite und Höhe des Ausschnitts
                     X: Integer = 0;           // X-Position
                     Y: Integer = 0);          // Y-Position
var tempBMP: TBitmap;
begin
  tempBMP := TBitmap.Create;
  try
    tempBMP.Assign(src);
    dest.Width := aWidth;
    dest.Height := aHeight;
    BitBlt(dest.Canvas.Handle,0,0,aWidth,aHeight,tempBMP.Canvas.Handle,X,Y,SRCCOPY);
  finally
    tempBMP.Free;
  end;
end;

[/edit2]