Как загрузить заданную часть изображения в Image?

@Cannon · Регистрация: 05.02.2011

Author24 — интернет-сервис помощи студентам

Здравствуйте.
Подскажите пожалуйста на небольшом примере:
У меня есть изображение 200х200 пикселей, которое разделено на 16 кадров(50х50 пикс).
Как вывести в Image1 (50х50пикс) например кадр 5, по клику Button1?

@Arcor · 27.11.2011, 19:24

CopyRect например

Добавлено через 2 минуты
вот, поиск занял меньше минуты

вот с другого форума пример

Delphi

CopyRect(Dest:Trect;Canvas:TCanvas; Source:TRect) Выполняет копирование прямоугольника Source из канвы Canvas в прямоугольник Dest в области самого объекта
Вот пример: копируем области из битмапа и вставляем на канву формы
Код:
 
 
procedure TForm1.Button1Click(Sender: TObject);
var BSource:Tbitmap;
    i,j:integer;
    Rect1:Trect;
begin
  BSource:=TBitMap.Create;
  BSource.LoadFromFile('tqfp.bmp');
  for i:=0 to 9 do
   for j:=0 to 9 do
    begin
     sleep(100);
     application.ProcessMessages;
     Rect1:=Bounds(i*30,j*30,30,30);//вот эту строку
     form1.Canvas.CopyRect(Rect1,BSource.Canvas,Rect1);
    end;
    BSource.Free;
end;

@Cannon · 27.11.2011, 19:53 **[ТС]**

Сообщение от Arcor

CopyRect например

Извиняюсь, поспешил)

Добавлено через 28 минут
Выводит только первый квадрат, и sleep(100); для чего? я эту сточку убрал, иначе вообще глючит

Что тут не так, подскажите плиз., надо чтобы квадрат 5 выводила:

Delphi

procedure TForm1.Button1Click(Sender: TObject);
var BSource:Tbitmap;
    i,j:integer;
    Rect1:Trect;
begin
  BSource:=TBitMap.Create;
  BSource.LoadFromFile('10.bmp');
  for i:=0 to 16 do
   for j:=0 to 16 do
    begin
   //  sleep(100);
     application.ProcessMessages;
     Rect1:=Bounds(i*50,j*50,50,50);//вот эту строку
     image1.Canvas.CopyRect(Rect1,BSource.Canvas,Rect1);
    end;
    BSource.Free;
end;

@Arcor · 27.11.2011, 19:58

уж если проблемы с таким кодом, с пониманием, держи тогда уж совсем основы

Delphi

1	begin ... Image2.Canvas.CopyRect(Image2.ClientRect, Image1.Canvas, Rect(10, 15, 70, 35)); ... end;

10 - это левая точка той части, которую ты хочешь скопировать, 15 - верхняя, 70 - правый, а 35 - нижняя.

код с интернета, я сейчас не могу написать примера, я не дома, а у сестры сижу в гостях, а тут нет дельфи

@Cannon 3 / 3 / 0 Регистрация: 05.02.2011 Сообщений: 116
		1
	Как загрузить заданную часть изображения в Image? 27.11.2011, 19:10. Показов 5019. Ответов 3 Метки нет (Все метки) Здравствуйте. Подскажите пожалуйста на небольшом примере: У меня есть изображение 200х200 пикселей, которое разделено на 16 кадров(50х50 пикс). Как вывести в Image1 (50х50пикс) например кадр 5, по клику Button1? Изображения 0

	27.11.2011, 19:58