Jump to content
xisto Community
Sign in to follow this  

Change Jpg Size

Recommended Posts

varjpg: TJpegImage;......if openpicturedialog1.Execute thenbegin jpg:= TJpegImage.Create; try jpg.Loadfromfile( openpicturedialog1.filename ); if jpg.Height>jpg.Width then begin jpg.Height:=round(jpg.Height/20); jpg.Width:=round(jpg.Width/20); end;EDBImage1.Picture.LoadFromFile(openpicturedialog1.FileName);finallyjpg.Free;end;

Share this post

Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
Sign in to follow this  

  • Create New...

Important Information

Terms of Use | Privacy Policy | Guidelines | We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.