Bildbereich ausschneiden

[DocZenith]

hier mein code, er setzt die zwei bilder nicht in dem bitmap objekt videoimage zusammen.

Delphi-Quellcode:

  SourceBitmap := videoimage;

  TargetBitmap.Width := 30;
  TargetBitmap.Height:= 150;

  TargetBitmap2.Width := 30;
  TargetBitmap2.Height:= 150;

// Ausschneiden des ersten Bildbereichs
  BitBlt(TargetBitmap.Canvas.Handle,0,0,30,150, SourceBitmap.Canvas.Handle, 330, 300, SRCCOPY);

// Originalbild neu laden
  sourcebitmap := videoimage;

//Ausschneiden des zweiten Bildbereichs
  BitBlt(TargetBitmap2.Canvas.Handle,0,0,30,150, SourceBitmap.Canvas.Handle, 360, 300, SRCCOPY);

// Zur Überprüfung beide Objekte darstellen
  paintbox1.Canvas.Draw(0,0,TargetBitmap);
  paintbox2.Canvas.Draw(0,0,TargetBitmap2);

//Beide Objekte zu einem Bitmapobjekt zusammensetzen
  for y := 0 to 150 do
  begin
    for x := 0 to 29 do
    begin
    videoimage.Canvas.Pixels[x,y] := TargetBitmap.Canvas.Pixels[x,y];
    end;
    for x := 31 to 59 do
  begin
    videoimage.Canvas.Pixels[x,y] := TargetBitmap2.Canvas.Pixels[x,y];
  end;
  end;

  videoimage.Width := 62;
  videoimage.Height:= 150;