Форум: "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.037 c
