[aleksnine]

Помогите с этой простой задачей.
смотрел пример в FAQ (http://www.delphisources.ru/pages/fa...ap_resize.html)
Но там ошибка выскакивает.

ПОдскажите как изменить размер битмапа ( высота \ ширина ) и сохранить его в файл с измененными размерами .
Спасибо.

[zip000]

Можно так

// Функция возвращает измененный битмап, BmpIn - оригинальный битмап.
function ResizeBitmap(BmpIn : TBitmap; NewWidth, NewHeight : Integer) : TBitmap;
begin
Result := TBitmap.Create;
try
Result.Width := NewWidth;
Result.Height := NewHeight;
Result.PixelFormat := BmpIn.PixelFormat;
Result.Canvas.StretchDraw(Rect(0, 0, Result.Width, Result.Height), BmpIn);
except
Result.Free;
end;
end;