Firemonkey / vcl: how to crop a photo (image) in delphi (video lessons)

[emailx45]

Firemonkey: How to crop a photo in Delphi (Video lessons) - in PortugueseBR
Easy method and didatic! You can change to VCL!

NOTE: You can change the subtitles for your language (google option for all languages)

NOTE2: as @kolio closed its thread, I decided to post a new one for anyone who knows how to use it for everyone who needs this feature.

Spoiler: Description

One feature that leaves your mobile app with a more professional face is to allow your user to change his or her profile picture. But do not just send the new photo to replace the old image. Ideally, it can resize and crop the photo the way you want.

This feature is used in applications such as Facebook and Twitter, and allows a very nice customization of the photos

Spoiler: Screenshot

Spoiler: Youtube video

 

[emailx45]

link of code source: https://multifilemirror.com/dzinh6vrgnet/FireMonkey-Crop-Image-Photo.zip.html
or
https://multifilemirror.com/jt58ur56pgp2/FireMonkey-Crop-Image-Photo.zip.html

 

[emailx45]

this example, show how to use it in your App Mobile or Windows for example as "Profile Image" on login screen (as What'sApp, Facebook, etc..)

 

[Chi4a3]

"Hey guys, I think I found a simpler solution for cropping images in Delphi. You can use the TImage.Canvas.FillRect property along with the TImage.Canvas.CopyRect function to achieve the desired result. Someone posted a tutorial on it a while back, I'll try to dig up the link if you want."