Suivi du point d'origine
Remonter à Amélioration du dessin des lignes
Lors du dessin d'une ligne, le point de départ de la ligne doit être suivi avec le champ Origin. Il faut initialiser Origin avec le point où l'événement bouton de souris enfoncé se produit. De cette manière, le gestionnaire de l'événement bouton de souris relâché peut utiliser Origin pour tracer le début de la ligne, comme dans le code :
procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
Drawing := True;
Canvas.MoveTo(X, Y);
Origin := Point(X, Y); { record where the line starts }
end;
procedure TForm1.FormMouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
Canvas.MoveTo(Origin.X, Origin.Y); { move pen to starting point }
Canvas.LineTo(X, Y);
Drawing := False;
end;
void __fastcall TForm1::FormMouseDown(TObject *Sender, TMouseButton Button,
TShiftState Shift, int X, int Y) {
Drawing = true; // set the Drawing flag
Canvas->MoveTo(X, Y); // set pen position
Origin = Point(X, Y); // record where the line starts
}
void __fastcall TForm1::FormMouseUp(TObject *Sender, TMouseButton Button,
TShiftState Shift, int X, int Y) {
Canvas->MoveTo(Origin.x, Origin.y); // move pen to starting point
Canvas->LineTo(X, Y); // draw line from PenPos to (X, Y)
Drawing = false; // clear the Drawing flag
}
Ces modifications permettent de redessiner la ligne finale. Mais qu'en est-il des dessins intermédiaires ? L'application ne supporte pas encore le "rubber banding".