| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Как обрезать картинку? [D7, WinXP]

КиТаЯц ©   (2005-06-30 14:55:00) 

Есть много BMP (Jpg) файлов. Хочу в один проход обрезать (НЕ уменьшить-сжать), скажем до 80x60, выдрав центральную часть картинки, и создав +много "маленьких" файлов.

Как сделать для одного bmp файла?
Спасибо.

---

КиТаЯц   (2005-06-30 15:57:00) [1]

> gydvin   (30.06.05 15:44) [1]
Спасибо. Принцип понятен.

---

gydvin   (2005-06-30 15:44:00) [2]

procedure TForm1.Button1Click(Sender: TObject);
var
t:tbitmap;
begin
t:=tbitmap.Create;
t.Width:=60;
t.Height:=80;
t.Canvas.Draw(-(image1.Picture.Width div 2-t.Width div 2),-(image1.Picture.Height div 2-t.Height div 2),image1.Picture.Bitmap);
image2.Picture.Bitmap.Assign(t);
t.Free;
end;

---

Наверх