Accueil        Lexique        UNITéS        Algorithmes        Tutoriel   

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

Unité GEM : Fonction objc_find

Déclaration

function objc_find( ob_ftree : AESTreePtr; ob_fstartob, ob_fdepth, ob_fmx, ob_fmy : Integer ) : Integer;

Description

Détermine l'objet sur lequel se trouve une position d'écran. Souvent utilisé pour savoir quel objet a été touché par un clic de souris.

Paramètres

  1. ob_ftree Adresse de l'arborescence des objets
  2. ob_fstartob Objet de départ à partir duquel rechercher. (généralement 0, c'est-à-dire l'objet racine, est passé)
  3. ob_fdepth Nombre de niveaux à rechercher.
  4. ob_fmx Coordonnée X
  5. ob_fmy Coordonnée Y

Résultat

Index de l'objet trouvé ou -1 si aucun objet n'a été trouvé.

Références croisées AESOBJECT

Exemple

{ traiter le clic de souris dans une boîte de dialogue }
if (event and MU_BUTTON) <> 0 then
begin
  obj := objc_find( dialogTree, 0, MAX_DEPTH, mx, my );
  if obj = -1 then
    Ping            { L'utilisateur a cliqué à côté }
  else
    cont := form_button( dialogTree, obj, clicks, cont );
end;

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!


Copyright © 2021 par Albatros Concept (Bruno Aubin)