Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате
Форум программистов > Delphi: Звук, графика и видео > Помогите, Как скопировать изображение??


Автор: Rey 4.11.2004, 18:18
Как поточечно скопировать изображение из одного Image в друго если первый перед этим был уменьшен?
Проблема в том, что конечное изображение копируется 1 в 1 с неуменьшенным оригиналом и, соответственно, не влезает в нужный размер.

Автор: Zero 5.11.2004, 00:27
Цитата
...если первый перед этим был уменьшен?

Если ты поясниш вопрос, то ...
to be continius...

Автор: Medved 5.11.2004, 00:48
а как методом вы уменьшаете изображение?
А вообще лучше преведите кусок кода, где уменьшаете, и копируете.

Автор: Dmi-Afonin 5.11.2004, 02:23
Попробуй с помощью Image1.Canvas.Pixels[x,y].
Т. е. берешь пиксель с первого Image, и копируешь его на второй Image.

Например:

for y:=0 to Image1.Height do
For x:=0 to Image1.Width do
Image2.Canvas.Pixels[x,y]:=Image1.Canvas.Pixels[x,y]


Ещё быстрей и проще так:

Image2.Picture.Graphic:=Image1.Picture.Graphic

Автор: Zero 5.11.2004, 10:57
Dmi-Afonin, ты читай задание лучше, там написано не просто скопировать, а с учётом что оно как-то было уменьшено...

Автор: <Spawn> 5.11.2004, 12:11
StretchBlt

Автор: Zero 5.11.2004, 21:19
Цитата
StretchBlt

Интересно, что это могло значить??? smile

Автор: Dmi-Afonin 5.11.2004, 22:32
Zero ты сам читать научись там написано:
Цитата
Как поточечно скопировать изображение из одного Image в друго если первый перед этим был уменьшен?

и не умничай.
А Stretch - это стандартная функция для масштабирования


Powered by Invision Power Board (http://www.invisionboard.com)
© Invision Power Services (http://www.invisionpower.com)