Создать картику

[mish@]

Привет всем!
У меня есть image1, image2, image3, как слепить их месте и сохранить как единную картинку?

[Alex Cones]

Canvas.CopyRect в помощь.

[mish@]

Спасибо
http://www.az-design.ru/index.shtml?...3/SB20CopyRect

[mish@]

ой...
я смог с image1 на image2 перекинуть одну картинку! а как с image1,3 перекинуть на image2, так чтоб они шли попорядку в начале 1image потом 3...4...5... и неограниченное число?

[Пепел Феникса]

http://programmersforum.ru/showthread.php?t=57206

[mish@]

Спасибо! Но чёт я пробовал, но не получалось сдлеать так, чтоб они были по горизонтали. Как?

[Пепел Феникса]

какие координаты задатите там и будет.

[mish@]

Вот такой кодик получился

var
S,D:TRect;
begin
 D.Left:=0;
 D.Top:=0;
 D.BottomRight.X:=260;
 S:=D;
 Image4.Canvas.CopyRect(D,Image1.Canvas,S);
 D.Left:=65;
 Image4.Canvas.CopyRect(D,Image2.Canvas,S);
 Image4.Canvas.CopyRect(D,Image3.Canvas,S);
 Image4.Canvas.CopyRect(D,Image4.Canvas,S);

и всё равно в нём баги. картинки ровно не выстраиваются.
Подскажите пожалста как исправить?

[Пепел Феникса]

var
S,D:TRect;
begin
 D.Left:=0;
 D.Top:=0;
 D.BottomRight.X:=260;
 D.Bottom:=Image4.Height;
 S:=D;
 Image4.Canvas.CopyRect(D,Image1.Canvas,S);
 D.Left:=S.Right;
 D.Right:=D.Right+S.Right;
 Image4.Canvas.CopyRect(D,Image2.Canvas,S);
 D.Left:=D.Left+S.Right;
 D.Right:=D.Right+S.Right;
 Image4.Canvas.CopyRect(D,Image3.Canvas,S);

примерно так.
правда при таком коде все три картинки должны быть одинаковыми.

[mish@]

Чёт не пашет, в начале и в конце есть картинки а между ними пусто