Bar |
Barre |
|---|---|
| HighSpeed Pascal | Graph |
Syntaxe
| Procedure Bar(x1, y1, x2, y2:Integer); |
Paramètres
| Nom | Description |
|---|---|
| x1 | Ce paramètre permet d'indiquer la coordonnée horizontale de gauche |
| y1 | Ce paramètre permet d'indiquer la coordonnée verticale supérieur |
| x2 | Ce paramètre permet d'indiquer la coordonnée horizontale de droite |
| y2 | Ce paramètre permet d'indiquer la coordonnée verticale inférieur |
Description
Cette procédure permet de tracer une rectangle dans un écran graphique.
Remarque
- La procédure Bar remplit une barre dans la couleur et le style de remplissage actuels.
- La barre est remplie, commençant dans le coin supérieur gauche spécifié par (x1, y1), se terminant dans le coin inférieur droit spécifié par (x2, y2). La barre n'a pas de bordure, pour ce faire, vous devez appeler la procédure Rectangle ou Bar3D.
Exemple
L'exemple suivant permet de d'afficher des barres de styles de barre de couleur :
- Program BarSamples;
- Uses Graph,Crt;
- Var
- Driver,Mode:Integer;
- C:Char;
- Patt:Word;
- BEGIN
- Driver:=DETECT;
- InitGraph(Driver,Mode,' ');
- For Patt:=EmptyFill To CloseDotFill Do Begin
- SetFillStyle(Patt,Random(GetMaxColor+1));
- Bar(Patt*10,Patt*10,GetMaxX-(Patt*10),GetMaxY-(Patt*10));
- End;
- C:=ReadKey;
- CloseGraph;
- END.
Dernière mise à jour : Lundi, le 20 avril 2020