Как уменшить картинку (image)

[geniy]

Как уменшить картинку (image)?Я имею ввиду чтоб вся картинка уменьшилась пропорционально .

[_Dmitry]

Пользуйтесь поиском...
http://www.programmersforum.ru/showthread.php?t=15058

[andrey4623]

У компонента Image свойство Proportional в True...

[Патрон]

Не знаю, но я в таких случаях пользуюсь графическими редакторами
Тупо, но эффективно :-)

[BOBAH13]

Расчитать коэфициент новой ширины и старой и другой коэфициент по новой длины и старой. Потом тот коэфициент который меньше взять для обоих новых параметров ширины и длины. Таким образом пропорционально измениться область ( пример в намоей страничке, медияплеер на интерфейсах, там маштабирование окна - пропорционально меняется область вывода видео ). Ну а алгоритмов для изменения изображений в сети море.

[Altera]

А как менять размеры битмапа, не меняя размеров имеджа, зумингуя картинку?
И чтоб картинка оставалась в центре!
Вот как здесь...

[_Dmitry]

var
  H,W: integer;
  Bmp: TBitmap;
  R: TRect;
begin
  Bmp:=TBitmap.Create;
  Bmp.LoadFromFile('ris.bmp');
  H:=200; W:=100; //размеры
  R.Left:=(Image1.Width-W) div 2;
  R.Top:=(Image1.Height-H) div 2;
  R.Right:=(Image1.Width+W) div 2;
  R.Bottom:=(Image1.Height+H) div 2;
  Image1.Canvas.StretchDraw(R,Bmp);
end;

[Altera]

Спасибо Дмитрий! Проверим! Ж)