3- Tracé de formes

mardi 11 novembre 2008, par bluegyn_spip

Nous avons vu dans la leçon 2 avec

PolyGon

Chord

Qu’il était possible de tracer des traits qui complétaient automatiquement la forme pour la refermer ?

Dessiner un Rectangle

RECTANGLE

Cet exemple trace un Carré Bleu en Bordure de formulaire

procedure TForm1.Button1Click(Sender: TObject);



var R : TRect;



begin



R := GetClientRect;



canvas.pen.Width := 10;

canvas.Pen.Color := clBlue;

canvas.{{Rectangle}}(r);



end;

Pour le fun est introduite ici le Type TRECT

Qui mémorise automatiquement les coordonnées d’un rectangle

Ici le CLIENT (GetClientRECT) est le formulaire lui même.

Rectangle aux coins arrondis

RoundRect

procedure TForm1.Button1Click(Sender: TObject);

var R : TRect;

begin

R := GetClientRect;



canvas.pen.Width := 3;

canvas.Pen.Color := clBlue;

canvas.RoundRect(r.Left+10,r.Top+10,r.Right-10,r.Bottom-10,20,20);



end;

Les 2 derniers paramètres définissent l’angle d’arrondi

Cercle

La manip consiste à dessiner un Rectangle Virtuel qui contiendra le cercle

Ellipse

procedure TForm1.FormPaint(Sender: TObject);

var x_gauche,y_gauche,x_droit, y_droit : integer;

begin

canvas.pen.Width := 3;

canvas.Pen.Color := clBlue;



x_gauche := 10;

y_gauche := 10;

x_droit := 200; 

y_droit := 100;



canvas.Ellipse(x_gauche,y_gauche,x_droit, y_droit);



end;

Si le Rectangle est un Carré, on obtient un Cercle parfait

Sinon on obtient une Ellipse dont les Diamètres horizontal et vertical correspondent aux cotés du rectangle

Dessiner un Camembert

Pie

procedure TForm1.FormPaint(Sender: TObject);

var x_gauche,y_gauche,x_droit, y_droit, x_debut,y_debut, x_fin,y_fin : integer;

begin

canvas.pen.Width := 3;

canvas.Pen.Color := clBlue;



x_gauche := 0;

y_gauche := 0;

x_droit := 200; 

y_droit := 200;



x_debut := 100;

y_debut := 0;

x_fin := 200;

y_fin := 100;



canvas.Pie(

x_gauche,y_gauche,

x_droit,y_droit,

x_debut,y_debut,

x_fin,y_fin);



end;

On dessine une Ellipse

qui est incluse dans un rectangle

- Dont la diagonale est définie par les point 1 et 2

Les sections du camembert (bords) partent du centre vers le point 3 et 4

Erratum : Intervertir les points 3 et 4

Page suivante

3- Tracé de formes

Dessiner un Rectangle

Rectangle aux coins arrondis

Cercle

Dessiner un Camembert

Manip’s

Dans la même rubrique