Les unités de Pure Pascal (langage Pascal pour les ordinateurs de la gamme Atari ST), compatible Turbo Pascal.
Unité GEM : Fonction graf_dragbox
Déclaration
function graf_dragbox( gr_dwidth, gr_dheight, gr_dstartx, gr_dstarty, gr_dboundx, gr_dboundy, gr_dboundw, gr_dboundh : Integer; var gr_dfinishx, gr_dfinishy : Integer ) : Integer;Description
Permet à l'utilisateur de déplacer un rectangle dans un rectangle englobant avec la souris. Utile pour positionner des objets. Les coordonnées du coin supérieur gauche du rectangle sont renvoyées lorsque le bouton de la souris est relâché.Paramètres
- gr_dwidth Largeur et
- gr_dheight Hauteur du rectangle à déplacer
- gr_dstartx Coordonnées de départ du coin supérieur gauche
- gr_dstarty du rectangle à déplacer
- gr_dboundx Coordonnées
- gr_dboundy du rectangle englobant
- gr_dboundw Largeur et
- gr_dboundh hauteur du rectangle englobant
- gr_dfinishx Résultat : Coordonnées de fin du coin supérieur gauche
- gr_dfinishy Résultat: du rectangle à déplacer
Résultat
0 en cas d'erreurRéférences croisées graf_rubbox
Exemple
{ Déplacer la boîte de 30*50 vers 100,100,200*200 } if (event and MU_BUTTON) <> 0 then graf_dragbox(30, 50, x, y, 100, 100, 200, 200, rx, ry);
Vous trouverez dans cette zone la liste de toutes les Unités (équivalent des "Librairies" en C) de Pure Pascal. Les Unités indiqués comme standards existent dans la majorité des compilateurs Pascal existant sur ordinateurs 16 bits et au dela (dont Turbo Pascal 3 mini). Les unités indiqués comme Atari sont spécifiques aux systèmes d'exploitation des Atari ST (TOS n.n).
Accès aux unités
Les menus déroulants de chaque unité sont des accès directs aux procédures et fonctions, classés alphabétiquement (sans tenir compte de la casse, puisque le langage Pascal ne tient pas compte de la casse!)Cette page Unités est issu du fichier UNIT.HLP de la documentation de Pure Pascal (d'Application Systems Heidelberg), qui a été convertie en format TXT puis traduite de l'Allemand grâce à Google Translator : des milliers de copier/coller de et vers Google translator ont été nécessaires, ne connaissant pas un mot d'Allemand!