Here’s Xojo code shared by Gemini:
// Cette propriété de la fenêtre va stocker l'image redimensionnée.
// Ajoutez cette propriété :
// Propriété : RedimensionneeImage As Xojo.Graphics.Image
// Événement Pressed du bouton BoutonRedimensionner
Var originalImage As Xojo.Graphics.Image
Var nouvelleLargeur As Integer = 400
// Chemin d'accès à l'image d'exemple (à adapter)
Var f As Xojo.IO.FolderItem = Xojo.IO.Special.Documents.Child("mon_image.jpg")
// Vérifie si le fichier existe
If f Is Nil Or Not f.Exists Then
MessageBox("Le fichier 'mon_image.jpg' est introuvable. " + EndOfLine + "Veuillez vérifier le chemin.")
Return
End If
// Charge l'image depuis le disque
originalImage = Xojo.Graphics.Image.Open(f)
// Calcule les nouvelles dimensions en gardant les proportions
Var ratio As Double = originalImage.Size.Width / originalImage.Size.Height
Var nouvelleHauteur As Integer = nouvelleLargeur / ratio
// Redimensionne l'image en utilisant la méthode Scale
RedimensionneeImage = originalImage.Scale(nouvelleLargeur, nouvelleHauteur)
// Demande au Canvas de se rafraîchir pour afficher la nouvelle image
CanvasImage.Refresh
and the previous code (Python) was bad too… ![]()