BAR |
Barre |
|---|---|
| Free Pascal | Graph |
Syntaxe
| Procedure Bar(x1,y1,x2,y2:SmallInt); |
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 traçer une rectangle dans un écran graphique.
Remarques
- ATTENTION ! Si vous utilisez le clavier sous le système d'exploitation Windows avec cette unité, il faudra utilisé l'unité wincrt plutôt que Crt, car l'unité Crt gère la fenêtre de console et non pas la fenêtre GUI.
- ATTENTION ! Si vous utilisez la souris sous le système d'exploitation Windows avec cette unité, il faudra utilisé l'unité winmouse plutôt que Mouse, car l'unité Mouse gère la fenêtre de console et non pas la fenêtre GUI.
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 : Samedi, le 18 juillet 2015