UpsGng.ContexteGraphique.DessinerRectangle


Procedure DessinerRectangle(X : Reel, Y : Reel, L : Reel, H : Reel, S : Nul Ou StyleCadre=Nul, M : Nul Ou Motif=Nul);
 
Procedure DessinerRectangle(PDepart : Nul Ou Point, PArrivee : Nul Ou Point, S : Nul Ou StyleCadre=Nul, M : Nul Ou Motif=Nul);

Procedure DessinerRectangle(R : Nul Ou DessinerRectangle, S : Nul Ou StyleCadre=Nul, M : Nul Ou Motif=Nul);

Description

La méthode DessinerRectangle permet de dessiner et remplir un rectangle aux angles droits sur le support courant rattaché au contexte graphique courant.

Le rectangle est exprimé soit par :

Un point donné par les paramètres X et Y, une largeur donnée par le paramètre Largeur et une longueur donnée par le paramètre Longueur.
Deux points donnés par les paramètres PDepart et PArrivee.
Un rectangle stricto sensus donné par le paramètre R.

Les coordonnées et les dimensions sont exprimées dans l'unité de mesure du contexte graphique au moment du dessin de la ligne.

Si le paramètre S est renseigné, alors ce style de cadre est utilisé. Sinon, le style de cadre courant du contexte graphique est utilisé.

Si le paramètre M est renseigné, alors ce motif est utilisé. Sinon, le motif courant du contexte graphique est utilisé.

En cas d'erreur, l'exception GraphismeImpossible est envoyée.

Si PDepart, PArrivee ou R est Nul, alors l'appel est sans effet.

Exemple


Principal

/*******/

Variable

/******/

	F : Nul Ou FeuilleDeStyles;

	C : Nul Ou ContexteGraphique;

	P1 : Nul Ou Point;

	P2 : Nul Ou Point;

	S : Nul Ou StyleCadre;

	M : Nul Ou Motif;



Debut

C.Unite=SousMetriquePoint;

/* L'unite est le point typographique. */

...

C.StyleCadreCourant=F.CadreSimple;

/* Selectionne le cadre simple comme style de cadre courant. */

C.MotifCourant=F.MotifGrisClair;

/* Selectionne le motif gris clair comme motif courant. */

...

P1.X=100;

P1.Y=100;

P2.X=300;

P2.Y=200;

C.DessinerRectangle(P1, P2);

/* Dessine le rectangle en utilisant le style de cadre et le motif courant. */

...

P1.X=100;

P1.Y=300;

P2.X=300;

P2.Y=400;

C.DessinerRectangle(P1, P2, S, M);

/* Dessine le rectangle en utilisant le style de cadre S et le motif M. */

...

Fin Principal

Voir aussi

DessinerRectangleArrondi pour dessiner un rectangle aux angles arrondis.

Traduction


-	-	-	-	-	-	-	-	-