Delphi - Zmena veľkosti obrázka

Firstline

Potreboval by som vedieť ako meniť veľkosť obrázka v závislosti od veľkosti okna. (keď sa zmenší/zväčší okno, zmenší/zväčší sa obrázok)

presne tak ako si napísal. Zmenu veľkosti okna máš na onResize evente formuláru, veľkosť obrázka cez image.width a image.height ale mu nastav autosize na true

Firstline

To akože stačí ak do onresize, potom napíšem - Image.W a H, a bude sa zmenšovať obrázok ?? (lebo tak to určite nie je)

paralen

Sry ze pisem do tejto temy, ale tema ma vystizny nazov pre moj problem.

Mam normalne obrazok nacitany v komponente Image. Ako zmenim jeho velkost?

Pre bmp mi funguje tento kod:

Kód: Vybrať všetko

var zmeneny_obr: TImage;
        stretchrect : trect;
begin
   stretchrect.left := 0;
   stretchrect.Top := 0; 
   stretchrect.right := nova_sirka; 
   stretchrect.bottom := nova_dlzka; 

   zmeneny_obr := TImage.Create(Form1);  

   zmeneny_obr.Width := nova_sirka;
   zmeneny_obr.Height := nova_dlzka;
   zmeneny_obr.Canvas.StretchDraw(stretchrect,Image1.Picture.Bitmap);  //tu bude asi ten problem, ze ta procedura nacitava iba bitmapu :(
   
   zmeneny_obr.Picture.SaveToFile('novy_obrazok.jpg');

No pre jpg, png,... to nefunguje
Vdaka za pomoc.