Pomniejszyc obrazek

Jak pomniejszyc obrazek zapewne najlatweij za pomoca komponentu Image

Image1.Picture.LoadToFile('plik.bmp');
Image1.Picture.Width:=400;
Image1.Picture.Height:=400;
Image1.Picture.LoadToSave('plik.bmp');

ale cos nie dziala width i height wiec jak amm zrobic by bylo dobrze i zeby sie pomniejszalo nie ucinajac obrazku??

Ustaw w image AutoSize na True:P

Mozesz tez ustawic Stretch na true

Jemu chyba chodzi o ładowanie obrazka, zmiejszanie go i potem zapisanie z powrotem.

var
 B: TBitmap;
begin

  B := TBitmap.Create;

  try
    B.Width  := 120;
    B.Height := 100;
    B.Canvas.StretchDraw(Rect(0,0,120,100), Image.Picture.Graphic);
    B.SaveToFile('c:\QPA.bmp');
  finally
    B.Free;
  end;

end;

Gdzie liczby:
120 - szerokość
100 - wysokość

Takie coś zdaje sie widziałem gdzieś w FAQ chyba, albo artach... gdzieś na pewno :-P