Bestimmten Bereich eines Bildes ausschneiden?

[OrNEC]

Hallo Jungs,

ich habe ein Image1 und Image2 auf dem Form liegen, nun möchte ich einen rechteckigen Teil aus Image1 ausschneiden und in Image2 anzeigen. Wie kann ich das anstellen? Muss zugeben, dass ich mit Grafik noch wenig was gemacht habe.

Habe leider im Image2 nur schwarze Fläche

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  Quelle, Ziel: TRect;
begin
  Quelle := Rect(Image1.Left, Image1.Top, Image1.Left + 100, Image1.Top + 100);
  Ziel := Rect(Image2.Left, Image2.Top, Image2.Width, Image2.Height);
  Image2.Canvas.CopyRect(Ziel, Image1.Canvas, Quelle);
end;

Vielen Dank!

[DeddyH]

Die Zielkoordinaten sind relativ zum Zielcanvas. Wenn Du die also auf dessen Width und Height setzt, bist Du an der rechten unteren Ecke. Klar, dass man dann nichts sieht.

[OrNEC]

Zitat von DeddyH:

Die Zielkoordinaten sind relativ zum Zielcanvas. Wenn Du die also auf dessen Width und Height setzt, bist Du an der rechten unteren Ecke. Klar, dass man dann nichts sieht.

Eh... kapiere ich nicht...

[DeddyH]

Ziel := Rect(0, 0, Image2.Width, Image2.Height);

[OrNEC]

Zitat von DeddyH:

Ziel := Rect(0, 0, Image2.Width, Image2.Height);

Ok... bleibt aber weiterhin schwarz.

[DeddyH]

Dann schau Dir die Quellkoordinaten nochmal an.

[himitsu]

Quelle ist wirklich richtig?

Und wie groß ist das Bitmap im Image2?

[OrNEC]

Quäle mich hier schon fast ne Stunden. Also ich plane folgendes, ich habe einen Player wo beim Abspielen ein Spektrum angezeigt wird, da springen also Balken auf einer PaintBox hoch und runter. Der Hintergrund vom Spektrum ist Image2, siehe ScreenshotCopyRec.

Spectrum.SetBackGround(True, Image2.Picture.Graphic);

Image2 muss jetzt das Bild von Image1 an der gleichen Stelle annehmen, damit der User ein einheitliches Bild sieht. Das klappt aber nicht, siehe ScreenshotCopyRec2.


Image2.Left := 7;
Image2.Top := 44;
Image2.Width := 30;
Image2.Heigth := 73;

Ist da vllt die GroupBox schuld?

[OrNEC]

Ich hab's, die GroupBox hat alle Parameter durcheinander gebracht.

Jetzt eine andere Frage, wo packe ich den Code, damit das beim Start der Anwendung abgearbeitet wird?

ObShow, OnPaint, OnResize machen da nicht mit.

[OrNEC]

Push... ist fast ein Tag vergangen und ich finde kein Ereignis wo ich CopyRect beim Start der Anwendung packen kann.
P.S. verwende Lazarus