2 Images unterinanderfügen

[Hawkeye219]

Hallo Christopher,

wenn Du die Methode Draw von TCanvas benutzt, wird es etwas einfacher:

Delphi-Quellcode:

// Erste Bitmap zuweisen
imgPreview.Picture.Assign (Image1.Picture);
// Gesamtbreite einstellen
with imgPreview.Picture.Graphic do
  Width := Width + Image2.Width;
// Zweite Bitmap rechts neben die erste auf den Canvas des Gesamtbildes zeichnen
imgPreview.Canvas.Draw (Image1.Width, 0, Image2.Picture.Graphic);

Jetzt läßt sich auch Deine Frage leicht beantworten:

Delphi-Quellcode:

// Erste Bitmap zuweisen
imgPreview.Picture.Assign (Image1.Picture);
// Gesamthöhe einstellen
with imgPreview.Picture.Graphic do
  Height := Height + Image2.Height;
// Zweite Bitmap unter die erste auf den Canvas des Gesamtbildes zeichnen
imgPreview.Canvas.Draw (0, Image1.Height, Image2.Picture.Graphic);

Gruß Hawkeye