Помогите очень нужно !

[andreyv]

Помогите решить такую задачу ! Есть две картинки и их надо запхать в один Image! Пример : есть Image 600x200 и есть две картинки 300x200 и 300x200 нужно запхать в этот один Image эти две картинки!!!!!!!!!!!!!!!

 

[European]

нужно запхать

Берете пхатель и запхаете

 

[andreyv]

Ну я серьезно ! мне не до шуток мне нужно поместить две картинки в один Image !

 

[European]

Загружаете картинки в 2 или по очереди в одну переменную TBitmap и рисуете ее на канве TImage. Тут есть код: https://codeby.net/threads/22394.html
Где проблема?

 

[andreyv]

Мне нужно загрузить картинку не из ресурса а с любого места !

 

[ProgeRock]

Так чтоли?

procedure TForm1.Button1Click(Sender: TObject);
var
rec:trect;
begin
rec:=Rect(,,,); {координаты вашего места}
Image1.Canvas.CopyRect(Rect(0,0,300,200), {Canvas места},rec);
rec:=Rect(,,,); {и здесь}
Image1.Canvas.CopyRect(Rect(300,0,600,200),{и здесь},rec);
end;