Section courante

A propos

Section administrative du site

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

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 :



Dernière mise à jour : Dimanche, le 4 mai 2014