Unité GEM : Objets AES

Les types de données AESOBJECTPtr et AESOBJECT sont déclarés dans l'unité Gem comme suit:

AESOBJECTPtr = ^AESOBJECT;
AESOBJECT = record
    ob_next   : Integer;  (* Enfant suivant du même père *)
    ob_head   : Integer;  (* Premier enfant                    *)
    ob_tail   : Integer;  (* Letztes Kind                   *)
    ob_type   : Word;     (* Type d'objet                      *)
    ob_flags  : Word;     (* drapeaux d'objets                   *)
    ob_state  : Word;     (* Statut de l'objet                  *)
    ob_spec   : OBSPEC;   (* Informations Complémentaires: OBSPEC  *)
    ob_x      : Integer;  (* Coordonnée X par rapport au père *)
    ob_y      : Integer;  (* Coordonnée Y par rapport au père *)
    ob_width  : Integer;  (* largeur                         *)
    ob_height : Integer;  (* Hauteur                           *)
end;

Dans une boîte de dialogue, par exemple, les éléments de contrôle sont contenus dans le rectangle de la boîte à l'écran. En conséquence, la boîte elle-même forme l'objet parent dans l'arborescence, les éléments d'exploitation individuels les enfants.

Une arborescence d'objets est en fait représentée comme un tableau dans l'AES, et les pointeurs vers les enfants, etc. ne sont pas des types Pointeurs Pascal, mais simplement des indices dans le tableau:

AESTreePtr = ^AESTree;
AESTree = Array[0..8192] of AESOBJECT;

Pour les objets sans enfants, les erreurs "ob_head" et "ob_tail" sont -1.