Sind die Images überhaupt sichtbar? Wenn nein, solltest du lieber gleich TBitmaps benutzen.
Delphi-Quellcode:
// Ich gehe mal davon aus, dass alle Bitmaps die gleiche Höhe haben
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.Draw(0, 0, ALeft);
for i := 0 to MidCount - 1 do
ADest.Draw(ALeft.Width + AMid.Width * i, 0, AMid);
ADest.Draw(ADest.WIdth - ARight.Width, 0, ARight);
end;
So würde es jedenfalls mit der GR32-Lib funktionieren, wahrscheinlich musst du den Code noch etwas anpassen.
Zitat von
3_of_8:
Dann musst du halt das ganze 1 Pixel weniger machen. Und TImage hat auch eine Width, Height, Canvas usw.
TImage.Canvas ist nichts anderes als TImage.Picture.Bitmap.Canvas
.