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