Discussion :

[pompomthebest]

Bonjour,

Suite à la proposition de Gardangel dans ce sujet, j'aimerai développer mon propre objet bulle, mais je ne sais pas par où commencer ....
Pouvez-vous me donner des indications ou une méthodologie qui me permettrait d'avancer sereinement ?
Par avance merci,

pompomthebest

[PaulNero]

Je ne sais pas trop ce que vous entendez par objet bulle,mais essayez ceci:
essayez de regardez: BalloonTip dans l'aide.


paulnero

[frenchsting]

un idée est de créer une fenêtre (sans cadre) qui fera la bulle : masquée quand elle n'est pas au dessus d'un champ concerné.

Il faut donc gérer les événements windows pour capturer la position de la souris.

[pompomthebest]

Merci de vos propositions.

Je viens d'essayer mais l'inconvénient c'est que cela est assez lourd en traitement. Comme Gardangel parlé d'élément bulle comme traitement fluide, je pense qu'il dois exister une api ou autre pour créer des bulles d'aide windows.

Mais je ne vois pas trop comment il a fait cela.

Si vous avez d'autres idées n'hésitez pas.

[frenchsting]

Effectivement, c'est autre chose.

il faut rechercher les api windows qui vont bien.

Je n'ai pas trouvé sur gogol... Peut-être sur un autre forum de développez.com...

[gardangel]

Comme c'est si bien demandé... ... pour les images seulement

Sur l'élément à afficher une "bulle" :
- Ajouter événement "entrée souris" ;
- Ajouter événement "sortie souris" ;
- Ajouter une "zone" libellé qui fera office de bulle ;
- Sur l'élément, si c'est une image seulement, ajouter un l'information à afficher ;

Entrée souris

Code :

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

1
2
 
Image_Afficher_InfoBulle(FenEnExécution, MoiMême..Nom,{FenEnExécution + ".LIB_Image_Explication",indChamp}..Nom)

Sortie souris

Code :

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

1
2
 
{FenEnExécution + ".LIB_Image_Explication",indChamp}..Visible = Faux

Fonction Image_Afficher_InfoBulle

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
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
 
PROCEDURE Image_Afficher_InfoBulle(uneFenêtre, uneImage, unChampCommentaire)
nFacteurEspacement est un entier = 10
nFacteurDépassementX, nFacteurDépassementY est un entier
sUnChampSurvolé est une chaîne = uneImage
Res est un entier = CurseurPos(cpClient)
nPositionPremiereLigne est un entier = PoidsFort(Res)-{uneImage,indChamp}..Hauteur+{uneImage,indChamp}..Y
SI Position(sUnChampSurvolé,"IMG") <> 0 ALORS
	SI {sUnChampSurvolé,indChamp}..Valeur <> "" ALORS		
		SI Res <> -1 ALORS								
			SI ChampExiste(sUnChampSurvolé) ALORS
				// Afficher le champ des commentaires en haut si l'image dépasse la fenêtre par en bas
				// Idem par à droite par la gauche
				nFacteurDépassementX = PoidsFaible(Res) + nFacteurEspacement + {unChampCommentaire,indChamp}..Largeur
				nFacteurDépassementY = PoidsFort(Res) + nFacteurEspacement + {unChampCommentaire,indChamp}..Hauteur
 
				SI nFacteurDépassementY > {uneFenêtre,indChamp}..Hauteur ALORS
					{unChampCommentaire,indChamp}..Y = PoidsFort(Res) + nFacteurEspacement - {unChampCommentaire,indChamp}..Hauteur
				SINON
					{unChampCommentaire,indChamp}..Y = PoidsFort(Res) + nFacteurEspacement
				FIN
 
				SI nFacteurDépassementX > {uneFenêtre,indChamp}..Largeur ALORS
					{unChampCommentaire,indChamp}..X = PoidsFaible(Res) + nFacteurEspacement - {unChampCommentaire,indChamp}..Largeur
				SINON
					{unChampCommentaire,indChamp}..X = PoidsFaible(Res) + nFacteurEspacement
				FIN
 
				{unChampCommentaire,indChamp}..Valeur = {sUnChampSurvolé,indChamp}..Libellé
				{unChampCommentaire,indChamp}..Visible = Vrai
			FIN
		SINON
			{unChampCommentaire,indChamp}..Visible = Faux
		FIN
	SINON
		{unChampCommentaire,indChamp}..Visible = Faux
	FIN
SINON
	{unChampCommentaire,indChamp}..Visible = Faux
FIN

le code est pas optimisé (il fonctionne, thats it) et ne se redimensionne pas si le texte est plus petit... Il est tjrs de la même grosseur.

[gardangel]

Une petite image... pour réduire la lourdeur de la fenêtre, l'utilisateur peut obtenir les informations d'une légende, avec l'idée de bubulle. Je n'ai pas le choix de rendre mes interfaces très légères... Un seul informaticien pour 200 utilisateurs, j'ai besoin que ce soit intuitif... La fameuse gestion du changement.

L'idée d'illustrer des images, une force de Windev (avec sa grande bibliothèque) permet de réduire un paquet d'écriture superflue.. et de laisser place à une image claire (avec une bulle pour détail).

Une des clefs du succès dans l'interface, je le crois, repose sur l'idée de vision globale avec possibilité du détail "live". La bulle répond exactement à ce besoin... En espérant que ce concept vous sera utile.

Sinon, je suis disponible pour vos questions.

Jean-François

[pompomthebest]

Bonjour Gardangel,

Merci bien ce que vous me donnez marche parfaitement. Cela me sauve la vie...Je vous remercie beaucoup.

J'ai mis en place cela en adaptant quelques petites lignes de code par rapport à mon projet.

Voici ma procédure avec redimensionnement de la fenêtre en fonction du contenu :

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
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
PROCEDURE Image_Afficher_InfoBulle(suneFenêtre, suneImage, sunChampCommentaire, sInfoAAfficher)
 
nFacteurEspacement est un entier = 10
nFacteurDépassementX, nFacteurDépassementY est un entier
rHauteurChampBulle est un réel
rLargeurChampBulle est un réel
sUnChampSurvolé est une chaîne = suneImage
nRes est un entier = CurseurPos(cpClient)
nPositionPremiereLigne est un entier = PoidsFort(nRes)-{suneImage,indChamp}..Hauteur+{suneImage,indChamp}..Y
SI Position(sUnChampSurvolé,"Img") <> 0 ALORS //Si on est bien sur le champ image		
		SI nRes <> -1 ALORS								
			SI ChampExiste(sUnChampSurvolé) ALORS
				// Afficher le champ des commentaires en haut si l'image dépasse la fenêtre par en bas
				// Idem par à droite par la gauche
				nFacteurDépassementX = PoidsFaible(nRes) + nFacteurEspacement + {sunChampCommentaire,indChamp}..Largeur
				nFacteurDépassementY = PoidsFort(nRes) + nFacteurEspacement + {sunChampCommentaire,indChamp}..Hauteur
 
				SI nFacteurDépassementY > {suneFenêtre,indChamp}..Hauteur ALORS
					{sunChampCommentaire,indChamp}..Y = PoidsFort(nRes) + nFacteurEspacement - {sunChampCommentaire,indChamp}..Hauteur
				SINON
					{sunChampCommentaire,indChamp}..Y = PoidsFort(nRes) + nFacteurEspacement
				FIN
 
				SI nFacteurDépassementX > {suneFenêtre,indChamp}..Largeur ALORS
					{sunChampCommentaire,indChamp}..X = PoidsFaible(nRes) + nFacteurEspacement - {sunChampCommentaire,indChamp}..Largeur
				SINON
					{sunChampCommentaire,indChamp}..X = PoidsFaible(nRes) + nFacteurEspacement
				FIN
 
				{sunChampCommentaire,indChamp}..Valeur = sInfoAAfficher
				rHauteurChampBulle=TexteHauteur({sunChampCommentaire,indChamp},sInfoAAfficher) //Prépare la hauteur du champ en fonction du texte à afficher
				rLargeurChampBulle=TexteLargeur({sunChampCommentaire,indChamp},sInfoAAfficher)+5 //Prépare la largeur du champ en fonction du texte à afficher
				{sunChampCommentaire,indChamp}..Hauteur = rHauteurChampBulle
				{sunChampCommentaire,indChamp}..Largeur = rLargeurChampBulle
				{sunChampCommentaire,indChamp}..Visible = Vrai
			FIN
		SINON
			{sunChampCommentaire,indChamp}..Visible = Faux
		FIN
SINON
	{sunChampCommentaire,indChamp}..Visible = Faux
FIN

Cela aidera peut être les suivants...

Bonne journée à tous

[gardangel]

C'est un plaisir. Cependant, il aurait été intéressant de redimensionner la bulle en fonction de la taille du texte.

Quelqu'un se lance pour procéder à la modif ?

Jean-François

[htrouve]

Si je puis me permettre, je vais piquer ce petit bout de code, car je me sens très feignant ce soir.

[pompomthebest]

Gargandel c'est ce que j'ai fais de redimensionner en fonction du contenu ...
Regarde bien dans ma procédure à ce niveau :

Code :

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

1
2
3
4
rHauteurChampBulle=TexteHauteur({sunChampCommentaire,indChamp},sInfoAAfficher) //Prépare la hauteur du champ en fonction du texte à afficher
				rLargeurChampBulle=TexteLargeur({sunChampCommentaire,indChamp},sInfoAAfficher)+5 //Prépare la largeur du champ en fonction du texte à afficher
				{sunChampCommentaire,indChamp}..Hauteur = rHauteurChampBulle
				{sunChampCommentaire,indChamp}..Largeur = rLargeurChampBulle

Bonne journée

[Lo²]

Merci à vous Gargangel et pompomthebest

Je garde ça sous le coude

[gardangel]

La solution ne répond pas au besoin. Généralement, elle ne devrait pas non plus être utile...

L'idée d'infobulle est d'afficher des explications détaillées sur une image ou encore du texte. Ce détail prend un niveau d'espace qui dépasse les limites du code suggéré. Ton code, dans le cas d'une grande explication, dépasse les limites de l'écran (la largeur maximum).

Pour être idéal, il faudrait calculer un ratio largeur VS hauteur avec une balise maximum pour ces deux paramètres...

Le code pour faire cela, j'ose croire, devra considérer le pixel (la grosseur de la police avec son calcul d'épaisseur)... Code qui est beaucoup plus complexe et compliqué que ceux proposés.

J'apprécie ta contribution.

Jean-François

[gardangel]

Aussi, personnellement, le redimensionnement d'un cadre de texte est plus lourd visuellement qu'un cadre fixe. Ma logique, d'avoir exclu le redimensionnement, considère ce désagrément pour le regard. Je défini le cadre pour le texte le plus long dans la fenêtre utilisée.

Et comme ce cadre sert principalement à l'idée d'une légende standard, le positionnement varie très peu (coordonnées X & Y sur la surface de l'image).

Mais tout cela est très subjectif... ou peut-être pas.

Bonne journée,

Jean-François