Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

Форум программистов _ Delphi - Multimedia, Графика, Игры _ Помогите очень нужно !

Автор: andreyv 10:04:2008, 11:52

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

Автор: European 10:04:2008, 12:11

Цитата(andreyv @ 10:04:2008 - 13:52)

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

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

Автор: andreyv 10:04:2008, 12:29

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

Автор: European 10:04:2008, 12:45

Загружаете картинки в 2 или по очереди в одну переменную TBitmap и рисуете ее на канве TImage. Тут есть код: ]]>http://forum.codeby.net/go.php?http://forum.codeby.net/topic22394.html]]>
Где проблема?

Автор: andreyv 10:04:2008, 13:14

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

Автор: ProgeRock 13:04:2008, 13:50

Так чтоли?

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;