Accueil > Manip’s > Delphi > Atelier Delphi pour les Nuls > Delphi Blue Baby Faq > Comment produire un effet de loupe sur une image ?
DELPHI, IMAGES, ZOOM, MAGNIFY
Comment produire un effet de loupe sur une image ?
JEDI, VISUAL, ZOOM, CURSOR
mercredi 15 août 2007, par
PLACER UN COMPOSANT jvZOOM sur la fiche
- Onglet Jv VISUAL
- Zoom (jvZoom)
Règlez le paramètre de grossissement :
- jvZoom1.Percentage := 200 ; // Grossit 2 fois
Sur l’image IMAGE1 :
- OnMouseDowm
-
- Activez le Zoom
-
-
- jvZoom1.active := True ;
-
- OnMouseUp
-
- Déasctivez le Zoom
-
-
- jvZoom1.active := False ;
-
PLACER UN CURSEUR LOUPE SUR L’IMAGE
-1 Créer un curseur Loupe
DELPHI
- Outils
-
- Editeur d’images
Fichier
- Nouveau
-
- Curseur
Dessinez une loupe
- Placez le point Actif
-
- Curseur / Définir le point actif
-
-
- Exemple 10 * 10
-
-2 Affecter la Loupe au curseur de l’image
Fiche
- Charger le Nouveau Curseur (numéro d’ordre = 5)
Evènement formCreate
Screen.Cursors[5] := LoadCursorFromFile(’loupe.cur’) ;
Composant
- Affecter le nouveau curseur à l’image
Image1.cursor := 5 ;
Voir en ligne : http://www.phidels.com