VPF::Как получить часть image? - Форум программистов

BeeMaster

Дата 6.6.2010, 00:29 (ссылка)

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

Загрузка ...

Шустрый

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

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

Здравствуйте. У меня такая проблема. У меня есть картинка к примеру размером 500 на 500 в image1. А мне нужно получить часть картинки и присвоить ее image2.

Часть картинки допустим:
ширина 50
длина 60
top 100
left 150

Помогите пожалуйста!!! Очень надо, гугл не в теме(

AntonN

Дата 6.6.2010, 00:56 (ссылка)

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

Загрузка ...

Опытный

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

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

canvas.copyrect()

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

BeeMaster

Дата 6.6.2010, 01:42 (ссылка)

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

Загрузка ...

Шустрый

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

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

Вот код

Код


procedure TForm1.Button1Click(Sender: TObject);
var
width,height:integer;
begin
width:=60;       {длина}
height:=50;       {ширина}
image2.Width:=Width;
image2.height:=height;
Image2.Canvas.CopyRect(Rect(0,0,Width,Height),Image1.Canvas,Rect(0,0,Width,Height));
end;

Да я получаю часть картинки размером 60 на 50, но получаем только верхнюю левую часть!!! А мне надо получить часть которая находится где-то внутри картинки!!!

Это сообщение отредактировал(а) BeeMaster - 6.6.2010, 11:14

bems

Дата 6.6.2010, 02:34 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 3400
Регистрация: 5.1.2006

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

Цитата(BeeMaster @ 6.6.2010, 01:42

)

Image2.Canvas.CopyRect(Rect(0,0,Width,Height),Image1.Canvas,Rect(top ,left,Width,Height));

Это сообщение отредактировал(а) bems - 6.6.2010, 02:34

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

Обижено школьников: 8

BeeMaster

Дата 6.6.2010, 11:14 (ссылка)

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

Загрузка ...

Шустрый

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

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

Ура!!! Я разобрался)))

Код

procedure TForm1.Button1Click(Sender: TObject);
var
width,height,left,top:integer;
BackRct: TRect;
begin
width:=60;       {длина}
height:=50;       {ширина}
left:=150;           {вправо}
top:=100;            {вниз}
BackRct:=Bounds(left,top,width,height);
image2.Width:=Width;
image2.height:=height;
Image2.Canvas.CopyRect(Rect(0,0,Width,Height),Image1.Canvas,BackRct);
end;

Почему-то когда пишешь Rect(left,top,Width,Height) то тогда не срабатывает. А вот если BackRct:=Bounds(left,top,width,height); то тогда все супер!

Всем респект и уважуха за помощь!!!

Это сообщение отредактировал(а) BeeMaster - 6.6.2010, 11:45

AntonN

Дата 6.6.2010, 21:07 (ссылка)

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

Загрузка ...

Опытный

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

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

BeeMaster,
функция rect() вернет тебе прямоугольник, ограниченный передаваемыми ей координатами left/top/left+width/top+height.
Bound() тебе вернет прямоугольник задаваемый двумя координатами верхнего верхнего угла left/top и передаваемыми в фунцию шириной и высотой прямоугольника, на основании которых будет вычеслены right и bottom.

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

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

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