Section courante

A propos

Section administrative du site

BAR

Barre
Turbo Pascal 4+ 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.

Remarques

Exemple

Voici un exemple typique de l'utilisation de cette procédure :

  1. Program BarSamples;
  2.  
  3. Uses Graph;
  4.  
  5. Var Gd,Gm:Integer;
  6.  
  7. BEGIN
  8.  Gd := Detect;
  9.  InitGraph(Gd, Gm,'');
  10.  If(GraphResult <> grOk)Then Halt(1);
  11.  SetFillStyle(XHatchFill, LightGray);
  12.  Bar(10,10,400,300);
  13.  SetFillStyle(SolidFill,Blue);
  14.  Bar(12,12,398,20);
  15.  SetColor(Yellow);
  16.  OutTextXY(180,14,'Titre');
  17.  SetFillStyle(SolidFill,White);
  18.  Bar(12,25,398,100);
  19.  ReadLn;
  20.  CloseGraph;
  21. END.

on obtiendra le résultat semblable au suivant :

Voir également

Langage de programmation - Turbo Pascal - Référence de procédures et fonctions - BAR3D
Langage de programmation - Turbo Pascal - Référence de procédures et fonctions - FILLPOLY
Langage de programmation - Turbo Pascal - Référence de procédures et fonctions - GETFILLSETTINGS
Langage de programmation - Turbo Pascal - Référence de procédures et fonctions - PIESLICE
Langage de programmation - Turbo Pascal - Référence de procédures et fonctions - SETFILLPATTERN
Langage de programmation - Turbo Pascal - Référence de procédures et fonctions - SETFILLSTYLE

Référence

Aide-mémoire de Turbo Pascal versions de 3 à 6, Edition Marabout, De Groote, Virga, 1992, ISBN: 2-501-01833-8, page 105.

Dernière mise à jour : Dimanche, le 25 janvier 2015