Hi
,
folgenden Code verwende ich, um 2 Images in ein anderes nebeneinander zusammenzufügen.
Delphi-Quellcode:
procedure TfrmMain.DrawWaagerecht;
begin
imgPreview.picture.assign(image1.picture.bitmap);
imgPreview.Picture.Bitmap.Width := imgPreview.Picture.Bitmap.Width + image1.picture.bitmap.width;
imgPreview.picture.Bitmap.Canvas.CopyRect(rect(image1.Picture.width,0,image2.picture.Width +
image1.picture.width,image2.picture.height),image2.picture.bitmap.Canvas, rect(0, 0,
image2.picture.width, image2.picture.Height));
end;
Aber wie sieht das mit untereinander aus? Ich habe es erst selbst versucht, es klappte jedoch nicht und in der
DP fand ich auch nichts Verwendbares.