realbasic-nug.fr
[Top] [All Lists]

Re: Modifier la taille d'une image

To: REALbasic NUG French <realbasic-nug dot fr at lists dot realsoftware dot com>
Subject: Re: Modifier la taille d'une image
From: Hubert JACQUOT-DION <jacquotdion at mac dot com>
Date: Wed, 28 Jun 2006 14:14:51 +0200
Delivered-to: listarchive at realsoftware dot com
Delivered-to: realbasic-nug dot fr at lists dot realsoftware dot com
References: <1A856949-90DA-4375-A79E-A0A32C0116F7 at mac dot com>
bon, je me réponds  :
dans le DropObject, ici dans le canvas :

  Dim Azr as picture
  Dim Azre as picture

Azr=Obj. FolderItem.OpenAsPicture // récupère l'image drager du finder

Azre=NewPicture(Azr.Height,Azr.Width,Azr.Depth) // crée un objet image vide, ici au dimension de l'image, mais vaut mieux la mettre à la taille finale Azre.Graphics.DrawPicture Azr,0,0,60,60,0,0,155,155 // on dessine l'image en modifiant les dimensions, ici on passe d'un 155x155 à un 60x60
  Me.Backdrop=Azre // on affiche le résultat dans le backdrop

I hope this help,

Hubert


Le 28 juin 06 à 11:33, Hubert JACQUOT-DION a écrit :

bonjour, comment peut-on modifier la taille d'une image importée par un drag and drop dans le picture d'une imagewell ou dans le Backdrop d'un canvas..
une piste ?

Hubert



<Prev in Thread] Current Thread [Next in Thread>