object_parent

Nombre de messages : 2709 Date d'inscription : 13/09/2009

Je me sers pour la première fois de object_parent()
Sur l'aide de panoramic ou Élip, il est donné l'exemple d'utilisation suivant :

Code:: button 1
caption 0,object_parent(1)

Mais quand on fait cela, ça donne l'erreur suivante :
(52) Not correcti string expression : line 2
C'est bizarre, ça, quand même !
scratch

Je constate que object_parent n'existe pas dans l'aide de la version 0.9.29i11 bien qu'elle soit coloriée dans le code
Cette fonction existe dans la version 0.9.29i9 mais il semble qu'elle soit boguée
Je l'ai essayé avec les versione V 0.9.22 et V 0.9.27 et ça marche.
Elle donne 0 pour l'exemple donné.

A toute fin utile, j'ai partagé le 16 /07/ 2017 un code qui sait comment déterminer si oui ou non un objet est parent d'autre objet.
C'est ici : https://panoramic.1fr1.net/t5380-determine-si-oui-ou-non-un-objet-est-parent-d-un-autre-objet?highlight=parent

Je vous rappelle du code

Code:: rem ============================================================================
rem IsChild(pere,fils)
rem ============================================================================
rem Détermine si oui ou non l’objet pere est parent de l’objet fils
rem ============================================================================
rem _________________________________________________
rem | |
rem | dll_call2("IsChild",handle(pere),handle(fils)) |
rem |_________________________________________________|
rem
rem Si le résultat vaut 1, FILS est enfant de PERE
rem Autrement dit : PERE est PARENT de FILS
rem ============================================================================
' Exemple d'utilisation
dim i
caption 0,"FORM 0"
panel 5 : caption 5,"PANEL 5"
combo 8 : left 8,200 : top 8,20 : text 8,"COMBO 8"
form 10 : top 10,150 : left 10,100 : caption 10,"FORM 10"
for i = 11 to 13
   button i : parent i,10 : top i,50 : left i,10+ (i-11)*100 : caption i,"Bouton "+ str$(i)
next i
' Appels
IsChild(10,12) : ' <--- 12 est fils de 10
IsChild(0,13) : ' <--- 13 n'est pas fils de 0
IsChild(0,10) : ' <--- 10 n'est pas fils de 0
IsChild(10,11) : ' <--- 11 est fils de 10
IsChild(0,5) : ' <--- 5 est fils de 0
IsChild(0,8) : ' <--- 8 est fils de 0
IsChild(100,30) : ' <--- Ces objets n'existent pas !
end
rem ============================================================================
SUB IsChild(pere,fils)
   if object_exists(pere) <> 1 or object_exists(fils) <> 1
   message "Les objets " + str$(pere) + " et/ou " + str$(fils) + " n'existent pas !!!" : exit_sub
   end_if
   dll_on "user32"
   if dll_call2("IsChild",handle(pere),handle(fils)) = 1
   message "L'objet : " + str$(fils) + " est un enfant de l'objet : " + str$(pere)
   else
   message "L'objet : " + str$(fils) + " n'est pas un enfant de l'objet : " + str$(pere)
   end_if
   dll_off
END_SUB
rem ============================================================================

Bonjour à tous !

La fonction OBJECT_PARENT(N) à été remplacée par PARENT(N) il y a quelques années.

Merci Marc pour la précision.
Mais pourquoi object_parent reste coloriée dans le code ? scratch

Nombre de messages : 2709 Date d'inscription : 13/09/2009

Marc a écrit:: La fonction OBJECT_PARENT(N) à été remplacée par PARENT(N) il y a quelques années

Ah oui, c'est vrai, j'avais complètement oublié !
(apparemment, j'avais déjà dû l'utiliser, mais alors il y a longtemps...)
Merci les gars !
cheers

Par contre, l'aide d'Édit pourrait être actualisée,
parce que :
object_parent() y est toujours et
parent() n'y est pas encore.
Bon, je sens que ça va faire du boulot pour quelqu'un...
alors je ne dis rien Laughing