Форум: "Media";
Текущий архив: 2005.11.20;
Скачать: [xml.tar.bz2];

Вниз

Как обрезать картинку?   Найти похожие ветки 

← →
КиТаЯц ©   (2005-06-30 14:55) [0]

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

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

---

← →
gydvin   (2005-06-30 15:44) [1]

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;

---

← →
КиТаЯц ©   (2005-06-30 15:57) [2]

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

---

Страницы: 1 вся ветка

Форум: "Media";
Текущий архив: 2005.11.20;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.44 MB
Время: 0.044 c