CD/Src/Spider - Graphic Library/Ads/User.ads

   1 ------------------------------------------------------------------------------
   2 --                                                                          --
   3 --  Nom du fichier    : User.ads                                            --
   4 --                                                                          --
   5 --  Auteur(s)         : SALAMIN Michel / Assistant HEV                      --
   6 --                      Ecole d'ingenieurs du canton de Vaud (EIVD)         --
   7 --                                                                          --
   8 --  Date de creation  : 20 avril 2000                                       --
   9 --                                                                          --
  10 --  But               : Mettre a disposition les fonctions permettant de:   --
  11 --                      - gerer la souris dans la fenetre graphique         --
  12 --                      - gerer le clavier lorsque la fenetre graphique     --
  13 --                        est active                                        --
  14 --                                                                          --
  15 --  Date de modif.    :                                                     --
  16 --  Raison            :                                                     --
  17 --                                                                          --
  18 --  Modules appeles   :                                                     --
  19 --  Mat. particulier  : Graphmin.dll                                        --
  20 --                                                                          --
  21 --  Compilateur       :                                                     --
  22 --                                                                          --
  23 ------------------------------------------------------------------------------
  24
  25
  26
  27 package Spider.User is
  28
  29
  30
  31   ----------------------------------------------------------------------------
  32   -- Nom     : Sleep                                                        --
  33   --                                                                        --
  34   -- But     : Suspendre le programme durant un temps determine.            --
  35   --                                                                        --
  36   -- Entrees : - delay_Time: Duree en ms pendant laquelle il faut suspendre --
  37   --                         l'execution du programme                       --
  38   -- Sorties : -                                                            --
  39   --                                                                        --
  40   -- Remarque:                                                              --
  41   ----------------------------------------------------------------------------
  42
  43   procedure Sleep(Delay_Time : in Integer);
  44
  45
  46
  47   ----------------------------------------------------------------------------
  48   -- Nom     : Key_Pressed                                                  --
  49   --                                                                        --
  50   -- But     : Lire un caractere au clavier.                                --
  51   --                                                                        --
  52   -- Entrees : - Item: Le caractere qui a ete lu au clavier.                --
  53   -- Sorties : - Vrai si un caractere a pu etre lu au clavier.              --
  54   --                                                                        --
  55   -- Remarque: Attention a l'exclusion mutuelle sur le tampon.              --
  56   ----------------------------------------------------------------------------
  57
  58   procedure Key_Pressed(Item : out Character;
  59                         Key  : out Boolean);
  60
  61
  62
  63   ----------------------------------------------------------------------------
  64   -- Nom     : Beep                                                         --
  65   --                                                                        --
  66   -- But     : Faire entendre un son "beep".                                --
  67   --                                                                        --
  68   -- Entrees : -                                                            --
  69   -- Sorties : -                                                            --
  70   --                                                                        --
  71   -- Remarque:                                                              --
  72   ----------------------------------------------------------------------------
  73
  74   procedure Beep;
  75
  76
  77
  78   ----------------------------------------------------------------------------
  79   -- Nom     : Left_Clic                                                    --
  80   --                                                                        --
  81   -- But     : Verifie si le bouton de gauche de la souris a ete presse.    --
  82   --                                                                        --
  83   -- Entrees : - X1: Position (absolue) en X du curseur associe a la souris.--
  84   --           - Y1: Position (absolue) en Y du curseur associe a la souris.--
  85   -- Sorties : - Vrai si le bouton de gauche de la souris a ete presse      --
  86   --                                                                        --
  87   -- Remarque:                                                              --
  88   ----------------------------------------------------------------------------
  89
  90   procedure Left_Clic(X1   : out Natural;
  91                       Y1   : out Natural;
  92                       Clic : out Boolean);
  93
  94
  95
  96   ----------------------------------------------------------------------------
  97   -- Nom     : Right_Clic                                                   --
  98   --                                                                        --
  99   -- But     : Verifie si le bouton de gauche de la souris a ete presse.    --
 100   --                                                                        --
 101   -- Entrees : - X1: Position (absolue) en X du curseur associe a la souris.--
 102   --           - Y1: Position (absolue) en Y du curseur associe a la souris.--
 103   -- Sorties : - Vrai si le bouton de gauche de la souris a ete presse      --
 104   --                                                                        --
 105   -- Remarque:                                                              --
 106   ----------------------------------------------------------------------------
 107
 108   procedure Right_Clic(X1   : out Natural;
 109                        Y1   : out Natural;
 110                        Clic : out Boolean);
 111
 112
 113
 114   ----------------------------------------------------------------------------
 115   -- Nom     : Mouse                                                        --
 116   --                                                                        --
 117   -- But     : Lire la position de la souris.                               --
 118   --                                                                        --
 119   -- Entrees : - X1: Position (absolue) en X du curseur associe a la souris.--
 120   --           - Y1: Position (absolue) en Y du curseur associe a la souris.--
 121   -- Sorties : -                                                            --
 122   --                                                                        --
 123   -- Remarque:                                                              --
 124   ----------------------------------------------------------------------------
 125
 126   procedure Mouse(X1 : out Natural;
 127                   Y1 : out Natural);
 128
 129
 130
 131 end Spider.User;