Accueil > Manip’s > Delphi > Ardoise Magique > ATELIER : Paint with DELPHI (maitriser le Dessin en Delphi) > 8- Dessiner un rectangle élastique de saisie
8- Dessiner un rectangle élastique de saisie
mardi 18 novembre 2008, par
La partie encadrée en jaune est recopiée dans la partie basse de la fiche
POUR DESSINER UN RECTANGLE ÉLASTIQUE
On fait appel aux APIS de Windows
On déclare d’abord 2 variables globales désignant 2 points :
var
Form1 : TForm1 ;
PtDepart, PtArrivee : Tpoint ;
La fonction
DrawFocusRect
Dessine un rectangle de saisie à l’écran
Déclarer dans la section Privée
- Procedure DessineRECT ;
Développer dans la section IMPLEMENTATION
L’évènement
onMouseDown
sur l’Image
- Démarre le processus
- En définissant le point d’ancrage du rectangle
-
L’évènement
onMouseMove
Ouvre un rectangle qui suit le mouvement de la souris
EnfinonMouseUp
Termine la procédure au relâchement du bouton
- En effaçant le rectangle
- Et en injectant ses coordonnées dans la suite du programme pour récupérer le dessin entouré (par la fonction) :
CopyRECT
Voir en ligne : http://www.phidels.com/php/index.ph...
Cette manip peut déboucher sur :
Effet Loupe
Déplacement, effacement d’une partie du Dessin
Etc ...