FORUM DE DISCUSSION SUR LE LANGAGE PANORAMIC

Développement d'applications avec le langage Panoramic
 
AccueilAccueil  FAQFAQ  RechercherRechercher  S'enregistrerS'enregistrer  MembresMembres  GroupesGroupes  Connexion  
Derniers sujets
» Pourquoi le compilateur stagne
par papydall Hier à 23:23

» Immortaliser les photos de famille
par jjn4 Hier à 18:29

» Concours de Morpions
par jjn4 Hier à 18:11

» Compilateur FBPano
par jean_debord Hier à 10:12

» Tout est tranquille
par Jean Claude Ven 22 Sep 2017 - 21:41

» Texte en gif animé
par JL35 Ven 22 Sep 2017 - 13:29

» BasicEditor
par Yannick Mer 20 Sep 2017 - 17:17

» Simuler l’appui d'une touche ou combinaison de touches.
par pascal10000 Lun 18 Sep 2017 - 19:30

» Utilisation de HVIEWER pour afficher des images
par papydall Lun 18 Sep 2017 - 17:43

» Panoramic et les gifs animés.
par papydall Lun 18 Sep 2017 - 16:32

» recover source
par pascal10000 Dim 17 Sep 2017 - 14:21

» Recent dans vos menu
par Jean Claude Sam 16 Sep 2017 - 11:41

» Comment centrer un texte 3D.
par pascal10000 Ven 15 Sep 2017 - 20:20

» Carte interface 16 entrées et 16 sorties
par Jicehel Ven 15 Sep 2017 - 16:30

» Version instantanée V 0.9.28i9 possédant l'objet SYNEDIT
par pascal10000 Ven 15 Sep 2017 - 16:20

Navigation
 Portail
 Index
 Membres
 Profil
 FAQ
 Rechercher
Rechercher
 
 

Résultats par :
 
Rechercher Recherche avancée
Septembre 2017
LunMarMerJeuVenSamDim
    123
45678910
11121314151617
18192021222324
252627282930 
CalendrierCalendrier

Partagez | 
 

 Détermine si oui ou non un objet est PARENT d'un autre objet

Voir le sujet précédent Voir le sujet suivant Aller en bas 
AuteurMessage
papydall

avatar

Nombre de messages : 5533
Age : 67
Localisation : Moknine (Tunisie) Entre la chaise et le clavier
Date d'inscription : 03/03/2012

MessageSujet: Détermine si oui ou non un objet est PARENT d'un autre objet   Dim 16 Juil 2017 - 6:30

Dans un autre post, Klaus a écrit :
Citation :
0n a la commande PARENT qui attache un objet à un autre (si c'est possible), et on a la fonction PARENT(N) qui retourne le numéro d'objet parent de l'objet N. C'est parfait. Mais est-ce qu'on pourrait avoir la même chose côté "enfant" ?

Voici une fonction IsChild de la USER32.DLL qui teste si un objet est parent ou descendant d’un autre objet.
Ça ne répond pas à l’attente de Klaus, mais qui sait ?
Peut-être que Klaus ou d’autres panoramiciens trouveront-ils une certaine utilité.


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 ============================================================================
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://papydall-panoramic.forumarabia.com/
Klaus

avatar

Nombre de messages : 10062
Age : 68
Localisation : Ile de France
Date d'inscription : 29/12/2009

MessageSujet: Re: Détermine si oui ou non un objet est PARENT d'un autre objet   Dim 16 Juil 2017 - 11:58

C'est intéressant, Papydall.

Mais ce que je souhaitais pouvoir faire, c'est de déterminer a liste des enfants d'un objet (form, panel, ...). Car, pour savois si un objet est l'enfant d'un autre, on pourrait aussi faire:
Code:
panel 10
button 20 : parent 20,10
...
if parent(20)=10 then message "L'objet 20 esr enfant de l'objet 10"
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://klauspanoramic.comxa.com/index.html
 
Détermine si oui ou non un objet est PARENT d'un autre objet
Voir le sujet précédent Voir le sujet suivant Revenir en haut 
Page 1 sur 1
 Sujets similaires
-
» Position objet par rapport à un autre
» Manuels en français en pdf
» Passer un objet devant les autres (ou derrière)
» Opération sur objet EDIT
» Savoir sur quel objet un évènement a eu lieu

Permission de ce forum:Vous ne pouvez pas répondre aux sujets dans ce forum
FORUM DE DISCUSSION SUR LE LANGAGE PANORAMIC :: PANORAMIC :: Vos sources, vos utilitaires à partager-
Sauter vers: