Discussion :

[forstera]

Bonjour à tous,

Je ne m'en sors pas ici
Je crée un logiciel scolaire de gestion de pensums et je chercher à afficher tous les cours données dans une certaine matière. J'utilise pour cela un champ tableau de bord et je crée une fenêtre interne par cours.

Un cours est en fait une enveloppe et à l'intérieur se trouve le ou les enseignements.
Par exemple, un cours d'allemand en discipline fondamentale (nom de l'enveloppe) est constitué d'une leçon hebdomadaire d'allemand 'standard' et deux leçons d'allemand en laboratoire.

Dans ma fenêtre interne, j'ai un champ zone répétée
Dans le cas de mon cours d'allemand, la zone répété ma fenêtre interne aura donc 2 enregistrements

Ce que j'aimerais faire maintenant est adapter la taille de ma fenêtre interne en fonction du nombre d'enregistrements qu'elle contient.

J'ai déjà ce traitement au sein de ma fenêtre interne qui fonctionne (adapter la taille de ma zone répétée)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
// compter les occurrences d'enseignements
TableauOccurrence(MonBloc.ListeEnseignements)
ZR_ListeEnseignements.Hauteur = TableauOccurrence(MonBloc.ListeEnseignements)*50

Mais a priori, je ne peux adapter la taille de ma fenêtre interne seulement depuis l'extérieur de cette dernière.

Je ne sais donc pas comment je peux transférer des informations entre mon programme principal et mes fenêtres internes.




J'ai essayé les syntaxes suivantes mais sans succès :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
		IndiceWidget est un entier = TDBAjouteWidget(TDB_DetailCoursEffectifs, FI_WidgetCoursEnseignements, MonParam.NomCours, MonParam.Bloc)
 
 
 
//		//TDB_DetailCoursEffectifs[IndiceWidget].ChangeTailleWidget(
//		/ Appeler directement sans passer par une variable
//		NouvelleHauteur est un entier = TDBInfoWidget(TDB_DetailCoursEffectifs, IndiceWidget, tiFenetreInterne).RecalculeHauteur()
//
 
//
//		TDBChangeTailleWidget(TDB_DetailCoursEffectifs, IndiceWidget, -1, FI_WidgetCoursEnseignements.AdaptationTaille())
//              TDBChangeTailleWidget()
//              FenTailleUtile(IndiceWidget, 30, 30)
 
		TDB_DetailCoursEffectifs[IndiceWidget].Visible	= Vrai
		TDB_DetailCoursEffectifs[IndiceWidget].Valeur	= MonParam.IndiceLocal
 
 
//              FI_WidgetCoursEnseignements.AdaptationTaille()
//		MaTaille est un entier = TDB_DetailCoursEffectifs[IndiceWidget].sai_taille
//		TDB_DetailCoursEffectifs[IndiceWidget].
//		MonFI est une variable automatique
//		MonFI = FenêtreInterneAssociee(TDB_DetailCoursEffectifs[IndiceWidget])
//             FenAdapteTaille(TDB_DetailCoursEffectifs[IndiceWidget])

Je suis preneur de toute idée
D'avance, merci à tous et excellente suite de journée

Arnaud

[frenchsting]

Bonjour,

Je suis peut-être complètement en dehors de la plaque mais je me jette à l'eau. A la fin de ton traitement d'affichage de la fenêtre principale (ou d'un bouton), le contenu des fenêtres internes est chargé. Je ferais un truc du genre :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
// Code de chargement du contenu de la FI1
// Code de chargement du contenu de la FI2
// etc...
Champ_FI_Enseignant..Hauteur= FI1.ZR_ListeEnseignements..Hauteur
Champ_FI_Matière..Hauteur= FI1.ZR_Matière..Hauteur

[forstera]

Je pense y être arrivé à l'aide des instructions suivantes :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
//
MaFI est un Champ <- TDB_DetailCoursEffectifs[IndiceWidget]
 
Trace(MaFI.sai_TAILLE)
Trace(MaFI.Libellé)
Trace(MaFI.LIB_NomCours)
 
mataille est un entier =  MaFI.SAI_TAILLE
TDBChangeTailleWidget(TDB_DetailCoursEffectifs, IndiceWidget,310 ,mataille,tdbUnitéPixel)
TDBAffiche(TDB_DetailCoursEffectifs,IndiceWidget)

Mais je me bats encore pour la taille exacte du widget car il y a beaucoup d'infos de taille

- Taille de la FI
- Taille du tableau de bord
- Taille des cellules du tableau de bord
- Marges verticales et horizontales du tableau de bord

- Taille de base de la zone répétée
- Hauteur de ligne ...

Merci
-

[frenchsting]

Et TDB_DetailCoursEffectifs[IndiceWidget]..hauteur = HauteurQuivaBien, ça ne fonctionne pas ?

Dsl, j'était parti sur les champs FI et le fenêtres internes qui vont avec.

[forstera]

Merci quand même sympa d'avoir pris le temps ...

Pare contre je rencontre le problème suivant et l'aide de Winde ne m'a pas beaucoup .... aidé ici :

J'aficher donc des cours et des enseignements au sein de ces derniers.

Le responsable des pensums peut fusionner deux enseignants de deux cours différents pour n'en faire qu'un (si par exemple le nombre d'étudiant donc chaque cours est petit)

Je souhaitais donc mettre en place un système drag & drop que je trouvais sympa..

J'ai fait plusieurs tentatives de dndprogrammé (MonObjet.DndSource = dndProgrammé ; MonObjet.DndCible = dndProgrammé) sur :
- ma fenêtre interne,
- ma zone répétée
- La liste de classe au sein d'une zone répétée (carré rose-violet)



J'arrive bien a attraper le début du glisser mais impossible d'activer le lâcher... le survol par contre fonctionne
J'ai essayé d'autres destination en dehors de mon champ tableau de bord mais rien n'y fait ; le survol fonctionne mais le lâcher semble interdit.

Y-aurait-il une grosse limitation de ce procédé pour les fenêtres internes dans un champ tableau de bord ?
Je n'ai rien trouvé dans la doc ...
Merci à tous
Arnaud

[DevOcc]

Bonjour,

avez-vous programmé le DNDAccepte ?

la réponse est peut-être sur cette vidéo :

Cdlt

[forstera]

Bonsoir DevOcc

Merci pour la question ; oui je l'avais programmé mais dans le code principal de ma fenêtre interne.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
PROCÉDURE MaFenêtre(MonBloc est un  STBlocCours)
FI_WidgetCoursEnseignements.DndCible = dndProgrammé
 
DnDEvénement(LacherEnseignement, FI_WidgetCoursEnseignements, dndLâcher)
 
...
 
PROCÉDURE LacherEnseignement()
 
DnDAccepte(dndCopier)
Trace ("Lacher i")

Chose qui se passe également : lorsque je débute le glisser, tous les éléments que j'avais programmé pour un dndlâcher s'affichent avec le symbole :



Merci


PS. Bravo pour vos vidéos qui m'ont déjà bien aidé

[tbc92]

Pour l'instruction dndEvenement, dans tous les exemples que j'ai vus dans l'aide, la procédure était entre guillemets.

Et quand j'ai utilisé le DragDrop, j'ai utilisé évidemment ce DndEvenement, mais je n'ai jamais utilisé le DnDaccepte.

Autre possibilité : tu as un champ zone répétée. Et pour une zone répétée, on peut programmer le DragDrop en mode '''simplifié''' (cf le paragraphe Drag and Drop mode simplifié dans cette page ).Peut-être que dans tes essais, tu as utilisé cette possibilité là, et c'est ce mode 'simplifié' qui prend le contrôle.

[forstera]

Merci pour l'information.

J'ai à peine avancé .. c'est-à-dire que j'arrive 'attraper' le début d'événement glisser ; que le curseur de ma souris affiche bien le [+] lorsque j'arrive sur une autre fenêtre interne mais impossible d'attraper l'événement 'lâcher'. Je suppose que cela est dû au fait que je travaille avec des fenêtres interne sur un champ tableau de bord.
Etant donné qu'une fenêtre interne ne peut être jointe qu'au travers de son index, j'ai l'impression que la fenêtre interne sur laquelle arrive la souris 'ne sait pas trop' que c'est elle qui est concernée étant donné qu'il y a plusieurs jumelles ; je ne sais pas trop comment expliquer cela
..

[frenchsting]

Bonjour,

Est-ce que tu as bien défini un des champs comme étant cible (onglet détail d'un champ de saisie par ex) et voir ce que ça donne ?

[forstera]

Bonsoir Frenchsting et merci pour la proposition,

oui j'ai essayé sur plusieurs champs différent soit par la méthode

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

 FI_WidgetCoursEnseignements.DndCible = dndProgrammé

soit en définissant directement l'option dans les propriétés du champ.


; le seul qui semble réagir à un lâcher étant le champ tableau de bord. Tous les autres (fenêtres interne dans le tableau de bord, tableaux et listes en dehors du tableau de bord) n'affichent que le symbole d'interdiction

Merci

[frenchsting]

J'ai vu que dans la ZR, il y a une image. Est-ce qu'elle "réagit" au DnD ?

Si cela fonctionne, ça pourrait être une idée que de mettre une icône spécifique comma cible dans la ZR pour "forcer" l'utilisateur à l'utiliser.

Sinon, une autre idée est de tester l'évènement du lâcher de clic gauche. Avec le ZoneRépétéeInfoXY, tu pourrais trouver la ligne qui est concernée. Bon, à mon avis, il y a pas mal de tests à faire pour valider tout çà.

[forstera]

Bonjour Frenchsting et merci pour la proposition.
Je n'y avais pas pensé...

Par curiosité, je vais essayer mais je n'y crois pas trop..

Je pense effectivement que la problématique est qu'une fenêtre interne ne peut être jointe depuis l'extérieur qu'avec une indirection et son indice (qu'elle ne connaît pas en plus)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

MaFI est un Champ <- TDB_DetailCoursEffectifs[IndiceWidget]

et que c'est cela qui empêche un lâcher.

J'ai donc choisi la solution suivante :
A la création de la FI, je récupérer son indice. Je le stocke ensuite dans la FI dans un champ caché.
Au double click sur un enseignement, je remplis un tableau situé à l'extérieur de la FI en indiquant l'ID de l'enseignement et l'indice de la FI.

Cela me permet de mettre à jour les données dans mes tables et de savoir quelle FI je dois recalculer et afficher..
Merci à toi