Mehrere Canvas zu einem zusammenfügen und speichern

[SirThornberry]

bitblt ist eine Windowsfunktion welche in der Unit "windows" declariert ist und somit immer verfügbar ist mit der Standardinstallation. Du schreibst bisher das du mehrere Canvas hast, zu was gehören aber diese Canvas? Zu einem TBitmap, TPictiure, TImage etc.? Nur mit Canvas hast du das Problem heraus zu finden wie hoch die einzelnen bilder sind.

Delphi-Quellcode:

var
  lTop: Integer;
begin
  lTop := 0;

  BitBlt(ZielCanvas.Handle, 0, lTop, Quellbildbreite1, Quellbildhoehe1, QuellCanvas1.Handle, 0, 0, SRCCOPY);
  lTop := lTop + Quellbildhoehe1;

  BitBlt(ZielCanvas.Handle, 0, lTop, Quellbildbreite2, Quellbildhoehe2, QuellCanvas2.Handle, 0, 0, SRCCOPY);
  lTop := lTop + Quellbildhoehe2;

  BitBlt(ZielCanvas.Handle, 0, lTop, Quellbildbreite3, Quellbildhoehe3, QuellCanvas3.Handle, 0, 0, SRCCOPY);