Images zusammenfügen

[100nF]

juhuu es funktioniert!!

vielen dank!!

ich musste den code nur ein bisschen abändern, jetzt sieht er so aus:

Delphi-Quellcode:

procedure CombineBitmaps(ALeft, AMid, ARight, ADest: TBitmap; const AMidCount: Integer);
var
  i: Integer;
begin
  ADest.Height := ALeft.Height;
  ADest.Width := ALeft.Width + AMid.Width * AMidCount + ARight.Width;
  ADest.Canvas.draw(0, 0, ALeft);
  for i := 0 to AMidCount - 1 do
    ADest.canvas.Draw(ALeft.Width + AMid.Width * i, 0, AMid);
  ADest.canvas.Draw(ADest.WIdth - ARight.Width, 0, ARight);
end;

gruss
urbanbruhin

[Gameboy]

Geht sowas auch mit jpg Bildern?
Ich habe Zwei Bilder ein großes Bild auf das ein kleineres Bild rechts unten bündig gesetzt werden soll und dann als neues Bild gespeichert werden.

[DeddyH]

Ich bin nicht sicher, aber IIRC kommt man an den Canvas eines JPEGImage nicht direkt heran. Aber man kann ja beide Bilder in Bitmaps umwandeln, zusammenpinseln und das Ergebnis wieder in ein JPEG zurückwandeln.