Discussion :

[mokochan]

Bonjour,
Voilà j'ai remarqué que les widgets Tk peuvent être redimensionnés facilement en fonction de la taille de la fenêtre en leur mettant des coordonnées relatives.
Cependant, la taille des textes ne varie pas, et l'interface devient illisible si on la réduit trop.
J'ai réussi à créer une fonction pour redimensionner les textes, en créant un lien sur l’évènement 'configure', mais cela ne fonctionne que sous Linux et cela rend mon interface assez lente.
Quelqu'un connaîtrait-il une méthode pour redimensionner dynamiquement les textes d'une interface Tk?
Merci

[djibril]

Ton code devrait également fonctionner sous Windows, peux-tu nous le montrer ?

[mokochan]

Je pense que ma fonction n'est pas du tout optimisée ^^' mais voilà ce que j'ai fait:

(parametres: $window est la fenetre dont on veut redimensionner les textes,
$font est le nom de la police a utiliser,
$fontsize est la taille de la police au lancement de l'interface,
$width et $height sont les largeur et hauteur de l'interface a son démarrage)

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
 
sub resize_text
{
	my ($window,$font,$fontsize,$width,$height)=@_;
	my $nouvellefont="$font 2";
	my $taille=0;
 
	my $largeur_fenetre=$window->width;	#Recuperation de la largeur actuelle de la fenetre
	my $hauteur_fenetre=$window->height;	#Recuperation de la hauteur actuelle de la fenetre
 
	# Calcul de la taille des polices de caracteres en fontion du pourcentage de la taille actuelle
	# de la fenetre par rapport a la taille de depart
	if (($largeur_fenetre>$width) || ($hauteur_fenetre>$height))   { $taille=$fontsize+1; }
	if(($largeur_fenetre>=(1.2*$width)) || ($hauteur_fenetre>=(1.2*$height)))   { $taille=$fontsize+2; }
 
	#... Je vous passe le détail, j'arrive au final a obtenir la taille que je veux, le probleme n'est pas la
 
	elsif(($largeur_fenetre<=(0.9*$width)) || ($hauteur_fenetre<=(0.9*$height))) { $taille=$fontsize-1;}
	elsif(($largeur_fenetre<=$width)       || ($hauteur_fenetre<=$height))       { $taille=$fontsize;}
 
	# Renvoi de la nouvelle police de caracteres (butee: la taille ne peut pas etre inferieure a 2)
	if(($taille>0)&&($taille<11))    {  $nouvellefont="$font $taille";  }
	elsif(($taille>0)&&($taille>=11)){  $nouvellefont="$font $taille bold";  }
	else 	       {  $nouvellefont="$font 2";        }	
	return($nouvellefont);
}

Voilà, ensuite j'appelle cette fonction de la façon suivante:

Code :

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

1
2
 
$main_window->bind('<Configure>'=>sub{ ($font)=resize_text($main_window,'Arial',11,500,400); contenu()});

La fonction "contenu" étant une fonction ou se trouvent tous les widgets de la fenêtre (avec comme style -font=>$font).

Comme vous pouvez le voir c'est très lourd... Mais je n'ai pas trouvé d'autre solution pour le moment.

[djibril]

Où en es-tu avec ton redimensionnement ?

[mokochan]

Malheureusement je n'aurais pas le loisir de me pencher plus sur la question, j'ai du commencer un autre projet en C#...
J'essayerai d'y revenir parce que j'aurais bien aime trouver une solution quand meme ^^ si j'ai des nouvelles je redirai!