4- Remplir une forme (peindre)

mardi 11 novembre 2008, par bluegyn_spip

Une forme doit être fermée pour pouvoir être remplie

Sinon il y a fuite de couleur et c’est tout le formulaire qui est coloré

Il faut donc agir en deux temps :

Dessiner des contours

Injecter de la couleur à l’intérieur

2 méthodes servent à peindre un objet

FillRect

FloodFill

FillRect

Remplit un rectangle avec la couleur active

var R : TRECT;



begin



r.Left := 20;

r.Top := 20;

r.Right := 100; 

r.Bottom := 50;



Canvas.Brush.Color := clBlue;

Canvas.FillRect(R);



end;

Soit un rectangle R, dont on définit les coordonnées, et qu’on passe en paramètre unique à la fonction

La couleur est donnée à la Brosse (Canvas.Brush)

FloodFill

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 := 10;

canvas.Pen.Color := clBlue;



x_gauche := 20;

y_gauche := 20;

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);



Canvas.Brush.Color := clYellow;

Canvas.FloodFill(50,50, clBlue, fsBorder);



end;

X et Y sont les coordonnées du point d’injection

Attention Couleur est la couleur du bord de l’objet

La couleur du pinceau est définit par Brush.Color

Et FloodStyle (fs) définit le comportement de l’injection par rapport à la couleur du bord.

fsBorder

fsSurface

Page suivante

4- Remplir une forme (peindre)

FillRect

FloodFill

Manip’s

Dans la même rubrique