Помощник
 |
|
Разработка бизнес сайтов Нужны клиенты? Тогда сюда быстрее... |
Сообщение сайта
Здравствуйте, гость ( Вход | Регистрация )
Форум программистов > Системное программирование > Delphi и Pascal > Delphi - Multimedia, Графика, Игры Помогите очень нужно ! |
|
|
  10:04:2008, 11:52
 
|
|
Новенький  Группа: Программист Сообщений: 3 Регистрация: 10:04:2008 Пользователь №: 16 533 Репутация:  0 
 |
Помогите решить такую задачу ! Есть две картинки и их надо запхать в один Image! Пример : есть Image 600x200 и есть две картинки 300x200 и 300x200 нужно запхать в этот один Image эти две картинки!!!!!!!!!!!!!!!
|
 |
Сообщение
#1
|
 |
|
|
10:04:2008, 12:11
|
|
Божественный Группа: Модеры Сообщений: 1 869 Регистрация: 4:09:2006 Из: Минск Пользователь №: 6 316 Специализация: C++ Репутация: 31
|
Цитата(andreyv @ 10:04:2008 - 13:52)  нужно запхать Берете пхатель и запхаете |
|
|
Сообщение
#2
|
|
|
10:04:2008, 12:29
|
|
Новенький Группа: Программист Сообщений: 3 Регистрация: 10:04:2008 Пользователь №: 16 533 Репутация: 0
|
Ну я серьезно ! мне не до шуток мне нужно поместить две картинки в один Image !
|
|
|
Сообщение
#3
|
|
|
10:04:2008, 12:45
|
|
Божественный Группа: Модеры Сообщений: 1 869 Регистрация: 4:09:2006 Из: Минск Пользователь №: 6 316 Специализация: C++ Репутация: 31
|
Загружаете картинки в 2 или по очереди в одну переменную TBitmap и рисуете ее на канве TImage. Тут есть код: http://forum.codeby.net/topic22394.html
Где проблема? |
|
|
Сообщение
#4
|
|
|
10:04:2008, 13:14
|
|
Новенький Группа: Программист Сообщений: 3 Регистрация: 10:04:2008 Пользователь №: 16 533 Репутация: 0
|
Мне нужно загрузить картинку не из ресурса а с любого места !
|
|
|
Сообщение
#5
|
|
|
13:04:2008, 13:50
|
|
Новенький Группа: Программист Сообщений: 44 Регистрация: 12:03:2008 Пользователь №: 15 803 Репутация: 0
|
Так чтоли?
Код 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; |
|
|
Сообщение
#6
|
|
|
Текстовая версия | Сейчас: 6:07:2008 - 00:39 |
