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
» Un petit "coucou" à tous les Panoramiciens !
par Yannick Aujourd'hui à 23:06

» mise a jour calculatrice
par joeeee2017 Aujourd'hui à 22:44

» Logiciel de soutien scolaire en langues.
par Pedro Alvarez Aujourd'hui à 16:52

» KGF_dll - nouvelles versions
par Klaus Aujourd'hui à 14:16

» Compilateur FBPano
par Ouf_ca_passe Aujourd'hui à 12:25

» double guillemets "" dans un EDIT
par Marc Hier à 23:43

» Documentation de KGF
par Klaus Lun 20 Nov 2017 - 22:52

» Zoom sur une portion d'écran
par JL35 Lun 20 Nov 2017 - 21:51

» Recherche d'une expression dans un source
par Marc Lun 20 Nov 2017 - 13:08

» Tracer une grille n'importe où sur l'écran
par JL35 Dim 19 Nov 2017 - 22:14

» TourD Version 2
par Klaus Sam 18 Nov 2017 - 23:58

» La métamatière et le peuple
par JL35 Ven 17 Nov 2017 - 21:18

» Capture d'une zone de l'écran total
par JL35 Ven 17 Nov 2017 - 18:41

» qui peut résoudre mon prb
par pascal10000 Jeu 16 Nov 2017 - 17:30

» évènements et objets système : listage automatique
par Jean Claude Jeu 16 Nov 2017 - 11:15

Navigation
 Portail
 Index
 Membres
 Profil
 FAQ
 Rechercher
Rechercher
 
 

Résultats par :
 
Rechercher Recherche avancée
Novembre 2017
LunMarMerJeuVenSamDim
  12345
6789101112
13141516171819
20212223242526
27282930   
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 : 5594
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 : 10129
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
-
» Passer un objet devant les autres (ou derrière)
» Opération sur objet EDIT
» Savoir sur quel objet un évènement a eu lieu
» Ajout d'un nouveau type d'objet dans une form Panoramic !
» Pseudo-objet - Générateur de code

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: