VPF::Захват части изображения - Форум программистов

vlad145

Дата 29.7.2005, 19:09 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 4
Регистрация: 29.7.2005

Репутация: нет
Всего: нет

Помогите плиззз!!! Вопрос вот в чем. На форме имеются 2 компонента image. Мне необходимо выделить часть изображения с одного изображения и скопировать его вв второй компонент image. Подскажите как это лучше сделать?

dvamaster

Дата 8.8.2005, 05:21 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 559
Регистрация: 30.6.2004
Где: Россия : Курган

Репутация: нет
Всего: 10

Думаю сойдет, копирует из Image1 в Image2:

Код


Image2.Picture.Bitmap.Width := 100;
Image2.Picture.Bitmap.Height := 100;
BitBlt(Image2.Picture.Bitmap.Canvas.Handle, 0, 0, 100, 100,
       Image1.Picture.Bitmap.Canvas.Handle, 0, 0, SRCCOPY);

Код


Image2.Picture.Bitmap.Width := 100;
Image2.Picture.Bitmap.Height := 100;

Устанавливаем размеры (если ниразу не рисовался в Image2, то это позволяет избежать ошибок при обращении к канве)

Код


BitBlt(Image2.Picture.Bitmap.Canvas.Handle, 0, 0, 100, 100,
       Image1.Picture.Bitmap.Canvas.Handle, 0, 0, SRCCOPY);

...le, 0, 0, 100, 100, ...
соответственно left, top, width, height для картинки копии (где располагается)
...le, 0, 0, SR...
соответственно left, top для позиционирования начала на картинке оргининале
SRCCOPY
Флаг для точного копирования (есть и другие, см. Win32.hlp)

Пробуй.

--------------------

Хорошую информацию трудно добыть. Сделать с ней что-нибудь - еще труднее. /L. Skywalker/

Что же я сделал не так? /Король Лир/

Я делаю это для твоего же блага! /Любой родитель и палач/

PKUNZIP.ZIP /неизвестный/

Guest

Дата 8.8.2005, 22:06 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

Так не получаеться! smile

Это сообщение отредактировал(а) Girder - 8.8.2005, 22:14

dvamaster

Дата 6.9.2005, 19:53 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 559
Регистрация: 30.6.2004
Где: Россия : Курган

Репутация: нет
Всего: 10

Могет у тебя не битмар загружен?

У меня 100% сработало!!
Добавлено @ 19:53
Могет у тебя не битмар загружен?

У меня 100% сработало!!

--------------------

Dufe

Дата 9.9.2005, 16:40 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 34
Регистрация: 23.3.2005

Репутация: нет
Всего: нет

Если загружена JPEG картинка, то ничего не получится.
А так можно с помощью Image2.Picture.Bitmap.Canvas.CopyRect(TRect,Image2.Picture.Bitmap.Canvas,TRect);
Если в image2 не загружен битмап, то можно просто Image2.Canvas....

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Звук, графика и видео \| Следующая тема »