2- Tracé de points

mardi 11 novembre 2008, par bluegyn_spip

Le curseur graphique étant à la position du point virtuel :

PenPos

var PointCur : TPoint ;

PointCur := form1.Canvas.PenPos ;

On peut le déplacer n’importe ou par la fonction

MoveTo

form1.Canvas.MoveTo(10,10) ;

Le curseur ne doit pas être confondu avec le Crayon, car à cet endroit du code, rien n’est encore dessiné.

Le curseur est comme une Main Levée Virtuelle qui se déplace sur l’écran

Le crayon ou le Pinceau est DANS la main.

Cet exemple trace une ligne droite à 10 pixels du bord

Canvas.MoveTo (10,10); // Place le curseur à 10 px des 2 bords



Canvas.LineTo (100,10); // Trace une ligne horizontale

Cet exemple trace un carré à 10 pixels du bord

procedure TForm1.Button1Click(Sender: TObject);







Begin







Canvas.MoveTo(10,10);







Canvas.LineTo(100,10);



Canvas.LineTo(100,100);



Canvas.LineTo(10,100);



Canvas.LineTo(10,10);







End;

Il est possible Relier plusieurs Points grâce à la Macro PolyLine

canvas.Polyline([



  point(10,10),



  point(100,10),



  point(50,100),



  point(50,50) ]);

PolyGon s’occupant de refermer automatiquement le tracé

canvas.Polygon([point(10,10),point(100,10),point(50,100),point(50,50)]);

Chord permet de tracer un Arc de Cercle

Canvas.Chord(10,10,200,200,200,100,10,100);



Canvas.Chord(10,10,200,200,10,110,200,110);

4 points sont utilisés pour ce tracé,

Voici leur détail

Il est bien sûr facile d’effacer la corde de l’arc

En traçant par dessus une ligne de même couleur que le fond.

With Canvas do Begin



        Pen.Color := clBLack;



        Chord(10,10,200,200,200,100,10,100);



        moveto(10,100);



        Pen.Color := form1.color; // Coul du fond



        Lineto(200,100);



end;

Page suivante