BAR |
Barre |
|---|---|
| QuickPascal | 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 un rectangle dans un écran graphique.
Remarques
- La procédure Bar remplit une zone rectangulaire avec le style et la couleur de remplissage actuels définis par SetFillStyle ou SetFillPattern. Le coin supérieur gauche du rectangle est à (x1,y1) et le coin inférieur droit est à (x2,y2). Toutes les coordonnées sont relatives à la fenêtre courante.
- La procédure Bar ne dessine pas le contour du rectangle.
- Si vous souhaitez dessiner la limite, vous pouvez appeler Bar3D et spécifier une profondeur de 0.
- Cette procédure est contenu dans l'unité «Graph», afin qu'elle fournisse des services de compatibilité avec Turbo Pascal. Dans les faits, elle appel l'unité «MSGraph», il faut donc que le programme est accès au pilote «ATT6300.VID», «CGASNOW.VID», «ERICSSON.VID», «HERC102.VID» et «HERC112.VID» ainsi qu'aux polices de caractères «COURB.FON», «HELVB.FON», «MODERN.FON», «ROMAN.FON», «SCRIPT.FON» et «TMSRB.FON».
Exemple
Voici un exemple typique de l'utilisation de cette procédure :
- Program BarSamples;
-
- Uses Graph;
-
- Var Gd,Gm:Integer;
-
- BEGIN
- Gd := Detect;
- InitGraph(Gd, Gm,'');
- If(GraphResult <> grOk)Then Halt(1);
- SetFillStyle(XHatchFill, LightGray);
- Bar(10,10,400,300);
- SetFillStyle(SolidFill,Blue);
- Bar(12,12,398,20);
- SetColor(Yellow);
- OutTextXY(180,14,'Titre');
- SetFillStyle(SolidFill,White);
- Bar(12,25,398,100);
- ReadLn;
- CloseGraph;
- END.
on obtiendra le résultat semblable au suivant :
Dernière mise à jour : Dimanche, le 4 mai 2014