|
|
|
|
|
|
|
|
|
version 6.7 (Modifiée)
dr_Souscrire (zone; hotLink) 
Entier long
| Paramètre | Type | Description | |
| zone | Entier long | | Zone 4D Draw |
| hotLink | Alpha | | Nom de hot link |
| Résultat | Entier long |  | Numéro d'ID de l'objet hot-link |
Description
La commande dr_Souscrire souscrit au hot-link dont le nom est passé en second paramètre. Vous obtenez en retour de fonction son numéro d'identification. Cette fonction crée donc un nouvel objet dans zone.
Le hot-link souscrit doit être de type PICT.
Si aucun hot-link ne porte le nom passé en second paramètre, dr_Souscrire retournera -32000 et dr_Erreur aura pour valeur 23.
Exemple
L'exemple suivant demande à l'utilisateur de saisir le nom du hot-link auquel il souhaite souscrire. Si la souscription est effectuée, un objet de type texte sera placé au-dessus du hot-link indiquant son nom.
$Temp:=Demander("Nom du hot-link auquel souscrire :")
Si (OK=1)
dr_MISE A JOUR ECRAN (LaZone;0) ` Figeons les mises à jour écran
$ID:=dr_Souscrire (LaZone;$Temp)
Si ($ID# -32000) ` Si nous avons un numéro valide
dr_LIMITES OBJET (LaZone;$ID;$Gauche;$Haut;$Droit;$Bas) ` Position du hot-link
` Plaçons le nom au-dessus du hot-link
$ID:=dr_Creer texte(LaZone;$Gauche;$Haut-1;$Droit;$Haut;$Temp)
dr_FIXER ATTRIBUTS TEXTE(LaZone;$ID;-1;-1;0;1) ` Centrons le texte
Fin de si
dr_MISE A JOUR ECRAN (LaZone;1) ` Provoquons la mise à jour de LaZone
Fin de si
Référence
|
|
|
|
|
|
|
|
|