تغییر واقعی سایز یک تصویر؟

[AlirezaBahredar]

با سلام
از دوستان کسی کدی (نه کامپوننت) جهت تغییر سایز واقعی یک تصویر داره؟
با تشکر.

[Touska]

این یک راهش :

procedure TForm1.Button1Click(Sender: TObject);
var
jpBig, jpSmall : TJPegImage; mabitmap: tbitmap;
begin
jpBig := TJPegImage.Create;
jpSmall := TJPegImage.Create;
if opendialog1.execute then
begin
jvimage1.Picture.LoadFromFile(opendialog1.filename );
jpBig.assign(jvimage1.Picture.Graphic);
end;

CreateThumbnail(jpBig, jpSmall, round(jpBig.width / 2), round(jpBig.height/ 2));

jpSmall.SaveToFile('c:\Test2.jpg');

jpSmall.Free;
jpBig.Free;
end;