Bilder schneiden / zuschneiden

[Cicaro]

Für CopyRect():

Delphi-Quellcode:

var
  von, nach: TRect;
begin
  von := Rect(x, y, x + breite, y + hoehe);
  nach := Rect(x, y, x + breite, y + hoehe);

  // von image2 auf image1 kopieren
  image1.Canvas.CopyRect(nach, image2.Canvas, von);
end;

Für BitBlt():

Delphi-Quellcode:

begin
  Windows.BitBlt(image1.Canvas.Handle, x, y, breite, hoehe, image2.Canvas.Handle, x, y, SRCCOPY);
end;

BitBlt() arbeitet schneller als CopyRect, da es direkt an die Windows-Bibliothek geleitet wird (CopyRect nimmt noch einen Umweg durch die Delphi-Library ^^).