Re: Redimensionner une image

Posté par Machou43 le 10/12/2008 15:51:07

J'ai essayer votre solution, mais je n'arrive pas a faire ce que je veux, en effet mon code me fait une sorte de zoom alors que ce n'est pas ce que je voudrais.

voici le code que j'utilise et qui donne les résultats visibles avec les 2 images jointes :
DEPART
ARRIVEE

//** Déclaration des Variables **
Ent_LargeurFinale est un entier
Ent_HauteurFinale est un entier
//** On calcule la valeur en largeur **
Ent_LargeurFinale = PtitLogo1..Largeur * 1.5
Ent_HauteurFinale = PtitLogo1..Largeur * 0.5
TANTQUE Ent_LargeurFinale > Image2..Largeur _OU_ Ent_HauteurFinale > Image2..Hauteur
Ent_LargeurFinale = Arrondi(Ent_LargeurFinale * 0.98,0)
Ent_HauteurFinale = Arrondi(Ent_HauteurFinale * 0.98,0)
FIN
dCopieImage(PtitLogo1, Image2, copieSrcCopie, 0, 0, Ent_HauteurFinale, Ent_LargeurFinale)

Merci d'avance.

Attacher un fichier:

---

  image départ.JPG (6.96 KB)


  image arrivée.JPG (6.34 KB)