------------------------------------------------------------------------------ -- -- -- Nom du fichier : Spider.ads -- -- -- -- Auteur(s) : Livio Righetti -- -- -- -- Date de creation : 26-MARS-97 -- -- -- -- But : Mettre a disposition des fonctions graphiques -- -- minimales. -- -- -- -- Date de modif. : 18-SEPT-97 (G.corbaz) -- -- Raison : Utilisation du paquetage Adagraph -- -- -- -- Date de modif. : 7-AVRIL-99 (P.Girardet) -- -- Raison : Pour creer une librairie -- -- -- -- Date de modif. : 28 avril 2000 (SALAMIN Michel) -- -- Raison : Suppression de AdaGraph et utilisation d'une DLL -- -- faisant des appels directs aux API de Windows. -- -- -- -- Modules appeles : -- -- Mat. particulier : Graphmin.dll -- -- -- -- Compilateur : -- -- -- ------------------------------------------------------------------------------ package Spider is ---------------------------------------------------------------------------- -- Nom : getMaxX -- -- -- -- But : Retourne la taille maximale de l'ecran graphique en X. -- -- -- -- Entrees : - -- -- Sorties : - La taille maximale de l'ecran graphique en X. -- -- -- -- Remarque: -- ---------------------------------------------------------------------------- function Get_Max_X return Natural; ---------------------------------------------------------------------------- -- Nom : getMaxY -- -- -- -- But : Retourne la taille maximale de l'ecran graphique en Y. -- -- -- -- Entrees : - -- -- Sorties : - La taille maximale de l'ecran graphique en Y. -- -- -- -- Remarque: -- ---------------------------------------------------------------------------- function Get_Max_Y return Natural; ---------------------------------------------------------------------------- -- Nom : moveTo -- -- -- -- But : Placer le curseur a une position (absolue) de l'ecran. -- -- -- -- Entrees : - X : Nouvel position (absolue) du point en X dans l'ecran. -- -- - Y : Nouvel position (absolue) du point en Y dans l'ecran. -- -- Sorties : - -- -- -- -- Remarque: -- ---------------------------------------------------------------------------- procedure Move_To(X : in Natural; Y : in Natural); ---------------------------------------------------------------------------- -- Nom : move -- -- -- -- But : Placer le curseur a une position en specifiant le -- -- deplacement. -- -- -- -- Entrees : - DX : deplacement reltatif en X dans l'ecran. -- -- - DY : deplacement reltatif en Y dans l'ecran. -- -- Sorties : - -- -- -- -- Remarque: -- ---------------------------------------------------------------------------- procedure Move(DX : in Integer; DY : in Integer); ---------------------------------------------------------------------------- -- Nom : lineTo -- -- -- -- But : Dessiner une ligne du point(X1,Y1) au point (X2,Y2). -- -- -- -- Entrees : - X1: Position (absolue) initiale du seg. en X dans l'ecran. -- -- - Y1: Position (absolue) initiale du seg. en Y dans l'ecran. -- -- : - X2: Position (absolue) finale du segment en X dans l'ecran.-- -- - Y2: Position (absolue) finale du segment en Y dans l'ecran.-- -- Sorties : - -- -- -- -- Remarque: -- ---------------------------------------------------------------------------- procedure Line_To(X1 : in Natural; Y1 : in Natural; X2 : in Natural; Y2 : in Natural); ---------------------------------------------------------------------------- -- Nom : line -- -- -- -- But : Dessiner une ligne de la position courante du curseur au -- -- point specifie en connaissant le deplacement DX,DY. -- -- -- -- Entrees : - DX : deplacement relatif en X dans l'ecran. -- -- - DY : deplacement relatif en Y dans l'ecran. -- -- Sorties : - -- -- -- -- Remarque: -- ---------------------------------------------------------------------------- procedure Line(DX : in Integer; DY : in Integer); ---------------------------------------------------------------------------- -- Nom : clearWindow -- -- -- -- But : Efface l'ecran graphique. -- -- -- -- Entrees : - -- -- Sorties : - -- -- -- -- Remarque: -- ---------------------------------------------------------------------------- procedure Clear_Window; ---------------------------------------------------------------------------- -- Nom : initWindow -- -- -- -- But : Ouvre la fenetre graphique de l'application. -- -- -- -- Entrees : - Le titre de la fenetre (apparait dans la barre de titre) -- -- Sorties : - -- -- -- -- Remarque: -- ---------------------------------------------------------------------------- procedure Init_Window(Title : in String); ---------------------------------------------------------------------------- -- Nom : closeWindow -- -- -- -- But : ferme la fenetre graphique. -- -- -- -- Entrees : - -- -- Sorties : - -- -- -- -- Remarque: -- ---------------------------------------------------------------------------- procedure Close_Window; Fenetre_Non_Init : exception; Fenetre_Deja_Init : exception; Pixel_Invalid : exception; Erreur_Inconnue : exception; private procedure Traiter_Erreur(Valeur : in Natural); end Spider;