Hi,
so, nachdem ich nach langer Zeit wieder mal was mit Delphi mache, habe ich auch schon die erste Frage.
Die beiden folgenden Prozeduren fügen 2 Images senkrecht bzw. waagerecht aneinander. (Den Code habe ich hier irgendwo mal im forum aufgegabelt.)
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;
procedure TfrmMain.DrawSenkrecht;
begin
imgPreview.Picture.Assign (Image1.Picture);
with imgPreview.Picture.Graphic do Height := Height + Image2.Height;
imgPreview.Canvas.Draw (0, Image1.Height, Image2.Picture.Graphic);
end;
Danach wird das Bild nach JPG gebracht und gespeichert.
Wenn ich jetzt das mit Bildern, die größer als 2000 * 2000 px sind, stürzt das Programm fast ab.
Gibt es eine Möglichkeit das zu beschleunigen?
Über Anregungen würde ich mich freuen.
Chrissi91