Bildbereich ausschneiden

[Hawkeye219]

Hallo,

es sollte auch mit CopyRect ohne temporäre Bitmap funktionieren:

Delphi-Quellcode:

procedure TForm.CutImage;
  var lBMP : TBitmap;
begin
  // Bitmap erzeugen
  lBMP := TBitmap.Create;
  try
    // Originalbild laden
    lBMP.LoadFromFile('C:\WINDOWS\Kaffeetasse.bmp');
    // Mittleren Teil nach (0,0) kopieren
    lBMP.Canvas.CopyRect(Rect(0, 0, 64, 64), lBMP.Canvas, Rect(32, 32, 96, 96));
    // Bild auf die gewünschte Zielgröße beschneiden
    lBMP.Width := 64;
    lBMP.Height := 64;
    // Bild speichern
    lBMP.SaveToFile ('E:\Tasse.bmp');
  finally
    // Bitmap freigeben
    lBMP.Free;
  end;
end;

Gruß Hawkeye