VPF::Как вырезать часть из картинки

Sheff

Дата 16.6.2002, 16:46 (ссылка)

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

Загрузка ...

Опытный

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

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

У меня есть картинка, скажем, 640x480.
Мне нужно вырезать из неё часть по Rect'у: 10,10,100,100 и скопировать эту часть в TBitmap. Как мне это сделать.
P.S: TBitmap изначально пустой.

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

--------------------------
Шеф всегда прав :)

Song

Дата 16.6.2002, 16:55 (ссылка)

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

Загрузка ...

Sysman.ru

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

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

TCanvas.CopyRect()

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

Прежде чем сказать "Невозможно", подумай, прав ли ты

Sheff

Дата 16.6.2002, 19:18 (ссылка)

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

Загрузка ...

Опытный

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

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

Цитата(Song @ 16.6.2002, 17:55)

TCanvas.CopyRect()

А пример можно, я сам пробовал, но он у меня постоянно Access Violation выдаёт

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

--------------------------
Шеф всегда прав :)

Song

Дата 16.6.2002, 19:52 (ссылка)

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

Загрузка ...

Sysman.ru

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

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

Цитата(Sheff @ 16.6.2002, 20:18)

Цитата(Song @ 16.6.2002, 17:55)

TCanvas.CopyRect()

А пример можно, я сам пробовал, но он у меня постоянно Access Violation выдаёт

А как пробовал-то ?

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

Прежде чем сказать "Невозможно", подумай, прав ли ты

Sheff

Дата 16.6.2002, 21:45 (ссылка)

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

Загрузка ...

Опытный

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

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

Цитата(Song @ 16.6.2002, 20:52)

Цитата(Sheff @ 16.6.2002, 20:18)

[quote=Song,16.6.2002,17:55]TCanvas.CopyRect()

А пример можно, я сам пробовал, но он у меня постоянно Access Violation выдаёт

[/quote]
А как пробовал-то ?

Вот так:

Код


procedure ...;
var
    Bitmap:TBitmap;
    Rct:TRect;
begin
    Bitmap.Create();
    Rct.Top:=10;
    Rct.Left:=10;
    Rct.Right:=100;
    Rct.Bottom:=100;
    Bitmap.Canvas.CopyRect(Rct,MainImage.Canvas,Rct);
end;

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

--------------------------
Шеф всегда прав :)

Baa

Дата 17.6.2002, 02:08 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Экс. модератор
Сообщений: 2639
Регистрация: 12.4.2002
Где: Москва

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

И правильно, потому как переменная Bitmap неинициализирована, и ведь компилер тебя предупреждал ;)
Попробуй так:
procedure ...;
var
Bitmap:TBitmap;
Rct:TRect;
begin
Bitmap := TBitmap.Create;
Rct.Top:=10;
Rct.Left:=10;
Rct.Right:=100;
Rct.Bottom:=100;
Bitmap.Canvas.CopyRect(Rct,MainImage.Canvas,Rct);
end;

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

"Duty is everything; the greatest of joys, the deepest of sorrows" Aribeth de Tylmarande

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