A mellékelt példaprogram megnyitása előtt a JPGResizer.pas-ban lévő komponenst telepítenie kell a Delphi alá. Ehhez válassza a Component - Install Component menüpontot.
A komponens OldFileName property-jében adhatjuk meg a méretezendő állomány nevét. Az átméretezett kép a NewFileName property-ben megadott állományba kerül, a NewWidth és NewHeight property-kben beállított szélességgel és magassággal.
Amikor beállítjuk az OldFileName értékét, akkor a komponens a NewWidth és NewHeight property-kbe beállítja a kép eredeti méretét.
A méretezést a Resize metódus végzi el.
A komponenst a TComponent osztályból származtatjuk.
A JPG képek használatához, a uses listában fel kell sorolnunk a JPEG unit nevét is. Ekkor elérhetővé válik a TJPEGImage osztály, amely segítségével egy JPG képet tölthetünk be vagy menthetünk el.
JPG1:=TJPEGImage.Create;
...
JPG1.LoadFromFile(FOldFileName);
A betöltött JPG képet rárajzoljuk egy TBitmap Canvas-ára. Amikor létrehozzuk a TBitmap objektumot, annak méreteit a NewWidth és NewHeight property-kben megadott méreteknek megfelelően kell beállítanunk.
A TCanvas osztály StretchDraw metódusával egy képet a megadott téglalappal határolt területre feszíthetünk ki. Így a TBitmap Canvas-ára a már kinagyított kép kerül.
r:=Rect(0,0,BMP.Width,BMP.Height);
BMP.Canvas.StretchDraw(r,JPG1);
Felhasználva a TJPEGIMage osztály Assign metódusát, a TBitmap-en lévő képet elhelyezhetjük egy TJPEGImage objektumban, amit már el is menthetünk, mint JPG képet.
JPG2.Assign(BMP);
JPG2.SaveToFile(FNewFileName);