Changer la taille d'une fenêtre interne au clic

**Redg9** · 19/05/2010, 10h07

Bonjour à tous!

J'ai une fenêtre principale contenant à droite un séparateur, à gauche un séparateur et au milieu une fenêtre interne.
Mon objectif est que, lorsque je clique sur les extrémités de la fenêtre interne (gauche, droite, haut et bas), ma fenêtre interne augmente de taille sans modifier la taille de la fenêtre principale. En somme, lorsque je clique, des ascenseurs apparaissent.

Voici le code que j'ai implémenté lorsque le bouton de la souris se relache :

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
 
 
Res est un entier = CurseurPos(cpFenêtre)
SI Res <> -1 ALORS
	SI ( PoidsFaible(Res) - FenIntPosX(FPrincipale.fenInterne) ) <= 150 ALORS
		FPrincipale.FermePartieGauche()
		FPrincipale.FermePartieDroite()
 
		FenTaille(FPrincipale.fenInterne.SCHEMATIQUE,FPrincipale.fenInterne.SCHEMATIQUE..Largeur + 50, FPrincipale..Hauteur)
 
		FPrincipale.OuvrePartieDroite()
		FPrincipale.OuvrePartieGauche()
		Info("On est proche du X Gauche")
	FIN
 
	SI ( PoidsFaible(Res) - FenIntPosX(FPrincipale.fenInterne) ) >= 590 ALORS
		Info("On est proche du X Droite")
	FIN
 
	SI ( PoidsFort(Res) -  FenIntPosY(FPrincipale.fenInterne) ) <= 10 ALORS
		Info("On est proche du Y Haut")
	FIN
 
  SI ( PoidsFort(Res) -  FenIntPosY(FPrincipale.fenInterne) ) >= 520 ALORS
		Info("On est proche du Y Bas")
	FIN		
FIN

Pour information, SCHEMATIQUE est une image, OuvrePartieGauche(), OuvrePartieDroite(), FermePartieGauche() et FermePartieDroite() permettent de fermer et d'ouvrir les parties gauches et droites (les séparateurs et les autres composants).

Ce code la fonctionne qu'a moitié. En effet, lorsque je clique sur l'extrémité gauche, la taille de la fenêtre principale s'agrandit, SCHEMATIQUE également.
Mais ce n'est pas ce que je souhaite. Pour rappel, l'objectif est d'agrandir la taille de SCHEMATIQUE à l'aide d'ascenseur et que la fenêtre principale reste la même.

Si vous avez des solutions ou des pistes de solutions à me proposer, je suis preneur.

Cordialement.

**sphynxounet** · 19/05/2010, 11h02

Dans ton bout de programme je ne vois pas les ascenseurs intervenir.
Tu peux lier un ascenseur à la taille de la fenêtre : FenTaille(FPrincipale.fenInterne.SCHEMATIQUE,FPrincipale.fenInterne.SCHEMATIQUE..Largeur, FPrincipale..Hauteur + ASC_ordonnées..valeur)
Faut pas oublier de mettre un minimum, un maximum et une valeur initiale aux ascenseurs.

**Redg9** · 19/05/2010, 11h09

Je pensais qu'en mettant les ascenseur automatique, et qu'en augmentant la taille de SCHEMATIQUE se trouvant dans un champ de fenêtre interne, les ascenseurs allaient apparaitre

**sphynxounet** · 19/05/2010, 11h30

Je connais pas bien les fenêtre internes mais si tu parles des ascenseurs automatiques de la fenêtre interne je pense qu'ils devraient apparaitre qu'à partir du moment ou la taille de la fenêtre est plus petite que sa taille d'origine (un peu comme pour les tables).

Par contre tu peut mettre des ascenseurs en dehors de la fenêtre et les lier à la taille de la fenêtre.

Tu peux faire aussi un système avec la position de la souris, changement du curseur et redimensionnement de la fenêtre mais là faut faire intervenir les évènements. C'est pas évident au premier abord quand on connait pas bien les évènements

Tout dépend si tu veux te faciliter les choses ou pas.

**Redg9** · 19/05/2010, 11h39

Un champ fenêtre interne a une certaine taille. Si on lie ce champ à une fenêtre interne qui est plus grande que le champ fenêtre interne et que l'on a définit, alors les ascenseurs apparaitront automatiquement.

Ce que j'essaie de faire, c'est d'augmenter la taille de cette fenêtre interne, pour le moment sans succès.

**sphynxounet** · 20/05/2010, 09h20

Pour que les ascenseurs apparaissent il faut décocher la case de gabarit dans l'IHM de la description de la fenêtre interne.

Après j'ai pas vu d'option permettant de redimensionner le champ quand le programme est lancé.

**=JBO=** · 20/05/2010, 11h19

Bonjour,

Tu pourrais regarder le fonction FenTailleUtile() qui sert à redimensionner une fenêtre interne.

http://doc.pcsoft.fr/fr-FR/?10000170...FenTailleUtile

_

**Redg9** · 20/05/2010, 11h37

Bonjour =JBO=, cette fonction n'existe pas sur Win11

(en tout cas, quand je marque 'FenTailleUtile(' dans le code, ca me fait une erreur

)

**=JBO=** · 20/05/2010, 11h57

D'après la doc WinDev sur le web, cette fonction serait disponible depuis WD11...

A tout hasard, es-tu sûr d'avoir une version à jour ?
_

**Lo²** · 20/05/2010, 12h11

En regardant l'aide de la 12, j'ai un NEW devant la fonction.
Petite erreur d'information de l'aide en ligne, à mon avis.

**Redg9** · 20/05/2010, 12h15

Oui ma version est à jour.

**=JBO=** · 20/05/2010, 12h55

Merci à Lo² pour la précision sur le NEW en WD12.

Alors peut-être une autre idée...

Dans la fenêtre interne, créer une procédure locale qui effectuera son redimensionnement, par exemple:

Code WLangage :

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

1
2
3
4
5
 
PROCEDURE Dimensionner(nHauteur est un entier, nLargeur est un entier)
 
MoiMême..Hauteur = nHauteur
MoiMême..Largeur = nLargeur

Et voir si tu peux l'exécuter à partir de la fenêtre qui contient le champ fenêtre interne, en utilisant une des syntaxes ci-dessous.

Code WLangage :

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

1
2
3
4
5
6
7
8
 
fenInterne.Dimensionner(100,80)
 
FPrincipale.fenInterne.Dimensionner(100,80)
 
ExécuteTraitement("fenInterne.Dimensionner", trtProcédure, 100, 80)
 
ExécuteTraitement("FPrincipale.fenInterne.Dimensionner", trtProcédure, 100, 80)

**Redg9** · 20/05/2010, 14h25

Voila deux pieces jointes, une (avantClic) contenant une partie de l'IHM et une croix montrant où je clic et l'autre (apresClic) contenant le résultat à l'exécution de ton code.

Euuh la vraiment, je suis désolé d'être vraiment 'lourd' et 'dépendant', mais je ne comprends pas un tel résultat

**=JBO=** · 20/05/2010, 15h05

Moi non plus je ne comprends pas... tes images...

... faudrait nous commenter la chose si tu veux qu'on comprenne...

Est-ce que c'est le champ fenêtre interne qui a été redimensionné... peut être en même temps que la fenêtre interne ?

Déjà pour être sûr de bien cibler la fenêtre interne, ce serait bien de tracer (ou d'afficher) le nom complet de la cible du redimensionnement.

Code :

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

1
2
3
4
5
6
PROCEDURE Dimensionner(nHauteur est un entier, nLargeur est un entier)
 
info(MoiMême..NomComplet)
 
MoiMême..Hauteur = nHauteur
MoiMême..Largeur = nLargeur

Si le mot-clé MoiMême ne convient pas, on pourrait le remplacer par le mot-clé MonParent.

Explique nous comment tu fais appel à la procédure de redimensionnement.
Le code + Des explications sur la "localisation" de ce code (ex. un traitement de fenêtre ou de champ ???)

Merci.
_

**Redg9** · 20/05/2010, 15h40

Désolé pour le manque de précision...

Ce qui est important de savoir pour ce bout d'IHM est que entre les deux séparateurs (gauche et droite) il y a le champ fenetre interne. Le rectangle gris/noir est l'image se trouvant dans la fenetre interne.

Pour le test que tu m'as demandé de faire dans la procédure de redimensionnement, lorsque je fais

Code :

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

1
2
 
info(MoiMême..NomComplet)

Le résultat est le Champ de la fenêtre interne (à savoir que cette procédure se trouve dans la fenêtre interne).

Code :

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

1
2
 
info(MonParent..NomComplet)

Le résultat est la fenetre principale

>Explique nous comment tu fais appel à la procédure de redimensionnement.
Lorsque le clic gauche est laché, voici le code :

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
 
Res est un entier = CurseurPos(cpFenêtre)
SI Res <> -1 ALORS
 
SI ( PoidsFaible(Res) - FenIntPosX(FPrincipale.CHFenInterne) ) >= 590 ALORS
 
    //Ferme le contenu d'extreme gauche et d'extreme droite		
    FPrincipale.FermePartieGauche()
    FPrincipale.FermePartieDroite()
 
//FPrincipale.CHFenInterne.SCHEMATIQUE..Largeur étant l'image que je souhaite agrandir		 FPrincipale.CHFenInterne.dimension(FPrincipale.CHFenInterne.SCHEMATIQUE..Largeur + 100,FPrincipale..Hauteur)
 
   //Ouvre le contenu d'extreme gauche et d'extreme droite	
   FPrincipale.OuvrePartieDroite()
   FPrincipale.OuvrePartieGauche()
 
    //info("On est proche du X Droite")
FIN

Merci pour le temps passé

**sphynxounet** · 20/05/2010, 15h54

L'évènement du clic est sur l'image ?

Si pour tester tu mets un bouton et que dans ce bouton tu mets juste SCHEMATIQUE..Largeur = SCHEMATIQUE..Largeur + 50 juste pour voir ?

**Redg9** · 20/05/2010, 16h07

Envoyé par sphynxounet

Si pour tester tu mets un bouton et que dans ce bouton tu mets juste SCHEMATIQUE..Largeur = SCHEMATIQUE..Largeur + 50 juste pour voir ?

Code :

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

1
2
 
CHFenInterne.SCHEMATIQUE..Largeur += 50

Dans ce cas la, je remarque que SCHEMATIQUE augmente en taille mais les ascenseurs n'apparaissent pas.

**=JBO=** · 20/05/2010, 16h09

D'après ta réponse, les noms complets retournés par MoiMême et MonParent ne sont pas cohérents avec ce qui est expliqué dans l'aide en ligne de mon WD12...

Est-ce que tu as lu l'aide en ligne de WD11 pour ces mots-clés ?

Aussi, après avoir essayé la proposition de sphynxounet...

tu pourrais aussi tenter d'appeler la procédure via la fonction ExécuteTraitement().

Code WLangage :

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

1
2
3
4
5
6
 
ExécuteTraitement("CHFenInterne.dimension", trtProcédure, FPrincipale.CHFenInterne.SCHEMATIQUE..Largeur + 100, FPrincipale..Hauteur)
 
// ou 
 
ExécuteTraitement("FPrincipale.CHFenInterne.dimension", trtProcédure, FPrincipale.CHFenInterne.SCHEMATIQUE..Largeur + 100, FPrincipale..Hauteur)

Mon but ici est de "couper le lien" avec le point d'appel de la procédure, pour que MoiMême ou MonParent fasse enfin référence à la fenêtre interne elle-même.
_

**Redg9** · 20/05/2010, 16h21

Code :

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

1
2
3
4
5
 
ExécuteTraitement("FPrincipale.CHFenInterne.dimension", trtProcédure, FPrincipale.CHFenInterne.SCHEMATIQUE..Largeur + 100, FPrincipale..Hauteur)
 
//et
		FPrincipale.CHFenInterne.dimension(FPrincipale.CHFenInterne.SCHEMATIQUE..Largeur + 100,FPrincipale..Hauteur)

ont le même effet (cf les imprim' écran).

Pour la définition de MoiMême, je pense qu'on doit avoir la même : " Le mot-clé MoiMême permet de manipuler le champ en cours."
(de même pour MonParent)

**sphynxounet** · 20/05/2010, 16h40

Envoyé par Redg9

Pour rappel, l'objectif est d'agrandir la taille de SCHEMATIQUE à l'aide d'ascenseur et que la fenêtre principale reste la même.

Histoire que les choses soient claires pour moi : tu veux des ascenseurs automatiques qui une fois que ton champ image (SCHEMATIQUE) est plus grand que le champ de la fenêtre interne apparaissent (au niveau du champ fenêtre interne) et te permettent de te déplacer dans ton champ fenêtre interne ?

Ou tu veux des ascenseurs qui agissent sur la taille de schématique ?

Changer la taille d'une fenêtre interne au clic

WinDev

Discussions similaires

Partager

Partager