ОБСУЖДЕНИЕ

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

5 ответов 6,2 тыс.
Автор темы
Помогите решить такую задачу ! Есть две картинки и их надо запхать в один Image! Пример : есть Image 600x200 и есть две картинки 300x200 и 300x200 нужно запхать в этот один Image эти две картинки!!!!!!!!!!!!!!!
 
Ну я серьезно ! мне не до шуток мне нужно поместить две картинки в один Image !
 
Загружаете картинки в 2 или по очереди в одну переменную TBitmap и рисуете ее на канве TImage. Тут есть код: https://codeby.net/threads/22394.html
Где проблема?
 
Мне нужно загрузить картинку не из ресурса а с любого места !
 
Так чтоли?
Код:
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;