Delphipage

Le GDI (Graphic Device Independance) en Delphi sert pour la programmation graphique. Il est totalement indépendant du système vidéo et des imprimantes existantes. Le GDI est un sous-ensemble de fonctions de l'API Windows. Il gere l'affichage sur un périphérique.

Les propriétés de TCanvas

Le canvas comporte diverses propriétés. Il dispose d'un crayon, d'un pinceau et d'une fonte.

Propriété	Description
Pen	Couleur, taille du crayon, type de trait du crayon.
Brush	Couleur, taille, motif du pinceau.
Font	Fonte, couleur.

Canvas.Pen.Color:=clRed ; //Stylo rouge
Canvas.Brush.Color:=clRed; //Pinceau rouge

Les propriété de TPen

Propriété	Description
Color	Couleur de la ligne.
Handle	Le handle du crayon (HPen). Utilisé quand appelle directement le GDI.
Mode	Détermine la façon dont les lignes sont dessinées(normale, inverser, xor, ...).
Style	Type de tracé(continu, mixte ...).
Width	Largeur du crayon.

Canvas.Pen.Color:= clBlue;
Canvas.Pen.Style:= psDash;
Canvas.Pen.Mode:=xor;
Canvas.Pen.Width:=12; //Taille du crayon

Les propriétés de TBrush

Propriété	Description
Bitmap	Bitmap utilisé comme fond pour le pinceau.
Color	Couleur du pinceau.
Handle	Le handle du pinceau(HBrush).Utilisé quand on appelle directement le GDI.
Style	Style de pinceau.

Canvas.Brush.Color:= clGreen;
Canvas.Brush.Style:= bsDiagCross;

Dessiner des formes

Les formes géomètrique dessiner sont toutes des formes fermées.

Fonction	Description
Ellipse	Dessine une ellipse.
Rectangle	Dessine un rectangle.
Pie	Dessine une partie de l'ellipse.
RoundRect	Dessine un rectangle avec des bords arrondis.
Polygon	Dessine un polygone avec plusieurs point.

procedure TForm1.Button1Click(Sender : TObject);
begin
Form1.Canvas.Ellipse(0,0,100,30):
end;

Remplir des formes

Windows possède deux méthodes pour remplir une zone fermée.

Fonction	Description
FillRect	Remplit la zone précisée avec la couleur du pinceau.
FloodFill	Remplit une zone fermée avec la couleur du pinceau, à partir d'un point de cette zone.

FloodFill est la méthode la plus utilisé.

procedure TForm1.Button1Click(Sender : TObject);
begin
FloodFill(75.75, clBlack,fsBorder);
end;

Ecrire du texte

Sous un système graphique, le texte est dessiner.

Fonction	Description
TextOut	Ecrit un texte à une certaine place de la fiche.
TextRect	Ecrit un texte dans une zone de clipping rectangulaire.
TextHeight	Hauteur du texte.
TextWidth	Largeur du texte.

procedure TForm1.Button1Click(Sender : TObject);
begin
Form1.Canvas.TextRect(Rect(0,0,100,30),0,10, 'Bonne journée'') ;
end;

Tracé

La listes des fonctions de tracé de ligne sont répertorié dans le tableau suivant.

Fonction	Description
PenPos	Contient la position du curseur graphique.
Pixels	Permet d'accéder au pixel du canevas.
MoveTo	Bouge la position du curseur.
LineTo	Trace une ligne vers un point donné.
PolyLine	Trace des lignes entre des points contenus dans un tableau.
Chord	Trace un arc de cercle.

procedure TForm1.FormPaint(Sender: TObject);
begin
//Dessine un triangle
Canvas.MoveTo(50,50);
Canvas.LineTo(100,50);
Canvas.LineTo(75,100);
Canvas.LineTo(50,50);
end;

GDI	[ 28-01-2001 ]
Programme utilisant les différentes méthodes du gdi. Télécharger : [6 Ko] [ gdi.zip] Auteur : Yoann Site internet : http://delphipage.free.fr/