------------------------------------------------------------------------------ -- -- -- Nom du fichier : User.ads -- -- -- -- Auteur(s) : SALAMIN Michel / Assistant HEV -- -- Ecole d'ingenieurs du canton de Vaud (EIVD) -- -- -- -- Date de creation : 20 avril 2000 -- -- -- -- But : Mettre a disposition les fonctions permettant de: -- -- - gerer la souris dans la fenetre graphique -- -- - gerer le clavier lorsque la fenetre graphique -- -- est active -- -- -- -- Date de modif. : -- -- Raison : -- -- -- -- Modules appeles : -- -- Mat. particulier : Graphmin.dll -- -- -- -- Compilateur : -- -- -- ------------------------------------------------------------------------------ package Spider.User is ---------------------------------------------------------------------------- -- Nom : Sleep -- -- -- -- But : Suspendre le programme durant un temps determine. -- -- -- -- Entrees : - delay_Time: Duree en ms pendant laquelle il faut suspendre -- -- l'execution du programme -- -- Sorties : - -- -- -- -- Remarque: -- ---------------------------------------------------------------------------- procedure Sleep(Delay_Time : in Integer); ---------------------------------------------------------------------------- -- Nom : Key_Pressed -- -- -- -- But : Lire un caractere au clavier. -- -- -- -- Entrees : - Item: Le caractere qui a ete lu au clavier. -- -- Sorties : - Vrai si un caractere a pu etre lu au clavier. -- -- -- -- Remarque: Attention a l'exclusion mutuelle sur le tampon. -- ---------------------------------------------------------------------------- procedure Key_Pressed(Item : out Character; Key : out Boolean); ---------------------------------------------------------------------------- -- Nom : Beep -- -- -- -- But : Faire entendre un son "beep". -- -- -- -- Entrees : - -- -- Sorties : - -- -- -- -- Remarque: -- ---------------------------------------------------------------------------- procedure Beep; ---------------------------------------------------------------------------- -- Nom : Left_Clic -- -- -- -- But : Verifie si le bouton de gauche de la souris a ete presse. -- -- -- -- Entrees : - X1: Position (absolue) en X du curseur associe a la souris.-- -- - Y1: Position (absolue) en Y du curseur associe a la souris.-- -- Sorties : - Vrai si le bouton de gauche de la souris a ete presse -- -- -- -- Remarque: -- ---------------------------------------------------------------------------- procedure Left_Clic(X1 : out Natural; Y1 : out Natural; Clic : out Boolean); ---------------------------------------------------------------------------- -- Nom : Right_Clic -- -- -- -- But : Verifie si le bouton de gauche de la souris a ete presse. -- -- -- -- Entrees : - X1: Position (absolue) en X du curseur associe a la souris.-- -- - Y1: Position (absolue) en Y du curseur associe a la souris.-- -- Sorties : - Vrai si le bouton de gauche de la souris a ete presse -- -- -- -- Remarque: -- ---------------------------------------------------------------------------- procedure Right_Clic(X1 : out Natural; Y1 : out Natural; Clic : out Boolean); ---------------------------------------------------------------------------- -- Nom : Mouse -- -- -- -- But : Lire la position de la souris. -- -- -- -- Entrees : - X1: Position (absolue) en X du curseur associe a la souris.-- -- - Y1: Position (absolue) en Y du curseur associe a la souris.-- -- Sorties : - -- -- -- -- Remarque: -- ---------------------------------------------------------------------------- procedure Mouse(X1 : out Natural; Y1 : out Natural); end Spider.User;