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é