Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2005.11.20;
Скачать: CL | DM;

Вниз

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

 
КиТаЯц ©   (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 вся ветка

Текущий архив: 2005.11.20;
Скачать: CL | DM;

Наверх




Память: 0.46 MB
Время: 0.029 c
2-1130501460
AlexF
2005-10-28 16:11
2005.11.20
Memo-scrolling


1-1130314479
gVisio
2005-10-26 12:14
2005.11.20
TFrame в Dll


3-1128941214
alex_1234
2005-10-10 14:46
2005.11.20
ADO, dBASE, create table: ошибка синтаксиса при определении поля.


2-1130339360
ag0_
2005-10-26 19:09
2005.11.20
TEdit


2-1130757736
syte_ser78
2005-10-31 14:22
2005.11.20
ошибка при вызове функции из dll