Accueil        Lexique        UNITéS        Algorithmes        Tutoriel        Groupe Facebook   

Les unités de Pure Pascal (langage Pascal pour les ordinateurs de la gamme Atari ST), compatible Turbo Pascal.

Unité GEM : Fonction graf_mouse

Déclaration

function graf_mouse( gr_monumber : Integer; gr_mofaddr : MFORMPtr ) : Integer;

Description

Permet de modifier la forme de la souris et d'allumer et d'éteindre la souris.

Paramètres

  1. gr_monumber Numéro de forme de la souris :
    • ARROW (0) Flèche
    • TEXT_CRSR (1) Ligne verticale
    • BUSYBEE (2) Abeille : L'ordinateur est
    • HOURGLASS (2) occupé
    • POINT_HAND (3) montrant avec index de main
    • FLAT_HAND (4) main plate
    • THIN_CROSS (5) fine ligne de mire
    • THICK_CROSS (6) large réticule
    • OUTLN_CROSS (7) réticule décrit
    • (10) Flèches verticales (N.AES)
    • USER_DEF (255) Forme personnalisée
    • M_OFF (256) Éteignez la souris
    • M_ON (257) Allumez la souris
  2. gr_mofaddr Pointeur vers une forme de souris personnalisée.
    Uniquement pertinent pour gr_monumber = USER_DEF, sinon NIL peut être transféré.
D'autres constantes (non définies - a définir - comme constantes dans Pure Pascal) ont été ajoutées à gr_monumber depuis 1995 :
  • X_LFTRT (8) Calibreur (N.AES) / Flèche gauche-droite (Geneva)
  • X_UPDOWN (9) Flèche bas-droite (Geneva) / Flèche horizontale (N.AES)
  • M_SAVE (258) Enregistrer le formulaire de souris actuel
  • M_RESTORE (259) Restaurer la dernière forme
  • M_LAST (260) Restaurer le formulaire le plus récemment enregistré
  • M_PREVIOUS (260) Voir M_LAST
  • XACRS_BUBBLE_DISC (270) Le logo Data Uncertain (XaAES)
  • XACRS_RESIZER (271) Les curseurs "redimensionner la fenêtre" (XaAES)
  • XACRS_NE_SIZER (272) (XaAES)
  • XACRS_MOVER (273) Le curseur "déplacer la fenêtre" (XaAES)
  • XACRS_VERTSIZER (274) Le curseur "redimensionner" Curseur "verticalement" (XaAES)
  • XACRS_HORSIZER (275) Curseur de redimensionnement horizontal (XaAES)
  • XACRS_POINTSLIDE (276) Curseur à deux flèches pointant vers l'intérieur pour indiquer la position du curseur (XaAES)
  • X_MRESET (1000) (Geneva)
  • X_MGET (1001) (Geneva)

Résultat

0 en cas d'erreur

Références croisées MFORMPtr

Exemple

{ Définir la forme de la souris sur la flèche }
 graf_mouse( ARROW, nil );

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!)
CRT (Standard)

DOS (Standard)

GEM : AES (Atari)

GEM : VDI (Atari)

Graph (Standard)

Overlay (Standard)

Printer Strings (Standard)

System (Standard)

TOS : BIOS (Atari)

TOS : GEMDOS (Atari)

TOS : XBIOS (Atari)

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!

Les unités CRT, DOS, Graph, Overlay, Printer et System sont standard à TOUS les compilateurs Pascal compatible avec Turbo Pascal 5. L'unité String a été introduit avec Turbo Pascal 7 (Et Pure Pascal 1.1) et permet de manipuler les chaines de caractères de type langage C. Les Unités GEM (VDI et AES) et TOS (BIOS, GEMDOS et XBIOS) sont spécifiques au système Atari ST et contiennent parfois des fonctions équivalentes à certaines fonctions des Unités générales (notamment BIOS). Les fonction XBIOS sont des fonctions permettant de tirer pleinement partie du matériel spécifique Atari, notamment Falcon (Audio, DSP, Blitter, Résolutions étendues etc)


Copyright © 2021 par Albatros Concept (Bruno Aubin)