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
» Objet 3D_PLANE, réalisation d'un dé en 3D
par Marc Aujourd'hui à 0:33

» Cacher la barre des tâches
par Klaus Hier à 21:27

» Une "base de connaissance" - pour jouer ou plus si affinité
par Minibug Hier à 10:29

» quel est ce comportement de Panoramic_editor
par Oscaribout Hier à 0:22

» Des FORM(s) Colorés
par Jean Claude Dim 20 Mai 2018 - 20:58

» Recherches dans un fichier texte
par JL35 Dim 20 Mai 2018 - 20:18

» Problème d'affichage des pages du forum (Résolu)
par Jean Claude Dim 20 Mai 2018 - 20:00

» Créer une application *.exe
par Yannick Ven 18 Mai 2018 - 20:01

» [RÉSOLU] Priorité affichage des objets : comment la définir?
par papydall Ven 18 Mai 2018 - 18:22

» Aucune différence entre ON_CLICK et ON_DOUBLE_CLICK
par Jean Claude Jeu 17 Mai 2018 - 8:37

» [Résolu] Récuperer les fonctions systeme de Panoramic
par Minibug Mar 15 Mai 2018 - 23:21

» Est-ce qu'un fichier est inclus dans l'application ?
par Yannick Mar 15 Mai 2018 - 12:04

» Création d'une application avec Panoramic_Editor
par Klaus Mar 15 Mai 2018 - 0:36

» Pour faire patienter
par Minibug Lun 14 Mai 2018 - 21:25

» Une copie de Panoramic Editeur
par Minibug Lun 14 Mai 2018 - 19:55

Navigation
 Portail
 Index
 Membres
 Profil
 FAQ
 Rechercher
Rechercher
 
 

Résultats par :
 
Rechercher Recherche avancée
Mai 2018
LunMarMerJeuVenSamDim
 123456
78910111213
14151617181920
21222324252627
28293031   
CalendrierCalendrier

Partagez | 
 

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

Aller en bas 
AuteurMessage
papydall

avatar

Nombre de messages : 5906
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 - 5: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 : 11084
Age : 69
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 - 10: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
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: