Accueil > Manip’s > Delphi > Ardoise Magique > ATELIER : Paint with DELPHI (maitriser le Dessin en Delphi) > 6- Dessiner à l’écran

6- Dessiner à l’écran

mardi 11 novembre 2008, par bluegyn_spip

Nous allons voir comment graphiter une fiche

Evènement MOUSEDOWN du formulaire

Initialisation

With Canvas do begin

	// Initialise la position du curseur

	MoveTo(x,y);



	// Et donne les propriétés du crayon

	Pen.Color := clBlue;

	Pen.Width := 3;

end;

Evènement MOUSEMOVE du formulaire

Dessin

if ssLeft in shift then Canvas.LineTo(x,y);

C’est tout !

La suite ...

6- Dessiner à l’écran

Evènement MOUSEDOWN du formulaire

Evènement MOUSEMOVE du formulaire

Manip’s

Dans la même rubrique