8- Dessiner un rectangle élastique de saisie

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
• procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin if (ssLEFT) in Shift then begin // Important car le dessin ne se fait que bouton appuié DessineRECT; PtArrivee := self.ScreenToClient(Image1.ClientToScreen(Point(X, Y))); /// DEBUG caption := format('X1=%d Y1=%d X2=%d Y2=%d', [PtDepart.X, PtDepart.Y, PtArrivee.X, PtArrivee.Y]); /// END DessineRECT; end; end; ;

  ---

   L’évènement

  onMouseMove

   Ouvre un rectangle qui suit le mouvement de la souris

  procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); begin if (ssLEFT) in shift then begin // Important car le dessin ne se fait que bouton appuié DessineRECT; PtArrivee := Form1.ScreenToClient(Image1.ClientToScreen(Point(x,y))); /// DEBUG caption := format ('X1=%d Y1=%d X2=%d Y2=%d',[PtDepart.x, PtDepart.Y,PtArrivee.X,PtArrivee.Y]); /// END DessineRECT; end;

  
   Enfin

  onMouseUp

   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

  ---

  procedure TForm1.Image1MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin if (Button = mbLEFT) then begin DessineRECT; // efface image2.Canvas.CopyRect(image2.ClientRect, image1.Canvas, Rect(PtDepart.x, PtDepart.Y,PtArrivee.X,PtArrivee.Y)); end; end;