Redimensionner un champ photo

Bonsoir à tous,

Je souhaite redimensionner un champ photo avec boutons vrai/ faux

si[Stock_Photo]Choix_Forma;Vrai)
[Stock_Photo]Stock_origin:=460;280
Sinon
[Stock_Photo]Stock_origin:=280;460
Fin de si

Bien sur cela ne fonctionne pas!
Si vous avez la solution simple et rapide, je suis preneur

Merci d’avance pour votre coup de pouce

Ben j’irais dans la documentation et à vue de nez la commande http://livedoc.4d.com/4D-Langage-16.3/Images/TRANSFORMER-IMAGE.301-3651660.fr.htmlTRANSFORMER IMAGE> devrait faire le job?

Merci Bertrand de m’avoir répondu rapidement.

Ma demande ne concerne pas la photo à redimensionner ou à transformer mais le CHAMP contenant la photo.

Merci

: Pascal DURFORT

Ma demande ne concerne pas la photo à redimensionner ou à transformer
mais le CHAMP contenant la photo

http://doc.4d.com/4Dv16/4D/16.3/OBJET-FIXER-COORDONNEES.301-3651563.fr.htmlOBJET FIXER COORDONNEES>

Voici un bout de code qui redimensionne une image avec une hauteur de 480 pixels et redimensionne ensuite la variable image (“vImage”) aux dimensions de la photo (pour ne pas avoir de bordures blanches)

<code 4D>
OBJECT GET COORDINATES(*;“vImage”;$gauche;$haut;$droite;$bas)
$nomImage:=Select document(System folder(Desktop);“png;jpg”;“Sélectionnez une image”;Use sheet window;$select)

If ($nomImage#"")
//On ouvre l’image et on regarde sa dimension originale
READ PICTURE FILE($select{1};vImage)

If(Ok=1)
PICTURE PROPERTIES(vImage;$vLargeurOriginale;$vHauteurOriginale)

If ($vHauteurOriginale>480)
//Redimensionnement de la hauteur
$zoomHauteur:=$vHauteurOriginale/480
TRANSFORM PICTURE(vImage;1;1/$zoomHauteur;1/$zoomHauteur)

//Dimensions de la nouvelle image
PICTURE PROPERTIES(vImage;$nouvLargeur;$nouvHauteur)
OBJECT SET COORDINATES(*;“vImage”;$gauche;$haut;$gauche+$nouvLargeur;$haut+$nouvHauteur)

End if
End if

</code 4D>

Afficher le champ en 460x460, en mode proportionnel pour que la photo s’affiche au mieux…

(et suivre une petite formation 4D, peut être…)

Bonjour Bastien,
Merci pour ton code, il fonctionne à merveille, simple et efficace.

Grand Merci

Merci à toi aussi Bertrand tu as compris aussi mon PB.

Jacques, j’ai des problèmes de mémoire et à 72 ans je ne suis pas au mieux de mes capacités comme quand j’ai débuter avec 4 Dimension V3. Je te remercie d’avoir accepté de m’aider et j’espère que tu seras encore présent pour d’autres posts.

Pascal