modifier taille scrollbars

Version imprimable

22/04/2009, 15h33
viking1404

modifier taille scrollbars
Bonjour,

je dois développer une application qui sera utilisée depuis un écran tactile. Les personnes qui vont utiliser mon programme ne sont "pas très habille". J'ai donc décidé de mettre tout mes widget en gros, très gros !
(J'ai eu du mal à faire rentrer un clavier sur un ecran 17" tellement les touches sont grosses)

Maintenant je dois faire une liste de boutons avec une scrollbar pour les faire défiler. J'ai commencé à lire la doc pour faire une liste de bouton. A priori pas trop de problèmes mais, concernant la taille de la scrollbar je ne vois pas trop comment faire.
En fait je voudrais que la largeur de la scrollbar soit au moins doublée.
J'ai essayé ceci sans résultat :
Code:

1 2 3 4 5 6 7 8 9 my $fenetre = $fenetre->Scrolled ( 'Button', #modification de la taille -height => 50, -width => 50, -scrollbars => 'ne' );
A quel endroit je peux modifier ma scrollbar ?
22/04/2009, 15h56
djibril

La méthode la plus simple pour créer une barre de défilement est celle que tu utilise, c'est à dire utiliser Scrolled, plus l'option -scrollbars.
Par contre, dès qu'on souhaite faire des choses moins classique, l'idéal de créer soi même sa barre de défilement en utilisant la méthode Scrollbar.

Ainsi, tu pourras modifier la largeur de la barre.

ex:

Code:

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
#!/usr/bin/perl
use Tk;
use warnings;
use strict;
use Tk::Pane;
 
# Programme principal
# Création de la fenêtre
my $fenetre = new MainWindow(
    -title      => "Fenetre grid",
    -background => "white",
);
 
my $BarreHor = $fenetre->Scrollbar( -orient => 'horizontal');
my $BarreVer = $fenetre->Scrollbar( -width => 50 );
 
my $FramePane = $fenetre->Pane(
  -height => 500,
  -width => 500,
  -yscrollcommand => ['set',$BarreVer],
  -xscrollcommand => ['set',$BarreHor],
);
 
$BarreHor->configure( -command => ['xview', $FramePane], );
$BarreVer->configure( -command => ['yview', $FramePane], );
 
$BarreVer->pack( qw/-side right -fill y/ );
$BarreHor->pack( qw/-side bottom -fill x/ );
$FramePane->pack( qw/ -fill both -expand 1/ );
 
# 6 boutons
my $Bouton1 = $FramePane->Button( -text => "Num1", -height => 50, -width => 50,);
my $Bouton2 = $FramePane->Button( -text => "Num2", -height => 50, -width => 50, );
my $Bouton3 = $FramePane->Button( -text => "Num3", -height => 50, -width => 50, );
my $Bouton4 = $FramePane->Button( -text => "Num4", -height => 50, -width => 50, );
my $Bouton5 = $FramePane->Button( -text => "Num5", -height => 50, -width => 50, );
my $Bouton6 = $FramePane->Button( -text => "Num6", -height => 50, -width => 50, );
 
$Bouton1->grid($Bouton2, $Bouton3);
$Bouton4->grid($Bouton5,$Bouton6);
 
MainLoop();

23/04/2009, 10h31
viking1404

J'ai testé le code que tu as fourni mais, ca ne fonctionne pas.
Enfin la scrollbar est toujours de la même largeur que par défaut.
Pourtant si je comprend bien le code, la scrollbar doit avoir une largeur de 50 ?
23/04/2009, 10h35
djibril
en fait il fonctionne mais il y a un bug.
si tu teste ce code, tu as l'impression que le scrollbar ne change pas de taille. Si tu augmente la taille de la fenêtre avec la souris, tu verras qu'il sera mis à jour.

Pour contourner le bug, rajoute ceci avant mainloop
Code:

1 2 $fenetre->update; $fenetre->geometry( $fenetre->width+1 . "x" . $fenetre->height . "+0+0" );
23/04/2009, 10h44
viking1404

Exacte ça fonctionne maintenant !

Merci beaucoup ;)

Désolé mais, j'ai encore une question.
Si je mets les boutons et la scrollbar dans une Frame, j'ai le même problème qu'avant. Il faut modifier la taille de la fenêtre pour que le scrollbar prenne la bonne taille.
Voici ton code que j'ai repris :

Code:

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
43
44
45
46
47
48
49
50
51
52
53
54
55
56
 
#!/usr/bin/perl
use Tk;
use warnings;
use strict;
use Tk::Pane;
 
# Programme principal
# Création de la fenêtre
my $fenetre = new MainWindow(
    -title      => "Fenetre grid",
    -background => "white",
);
$fenetre->geometry("1023x710+0+0");
 
my $uneFrame = $fenetre->Frame(); 
 
my $BarreHor = $uneFrame->Scrollbar( -orient => 'horizontal');
my $BarreVer = $uneFrame->Scrollbar( -width => 50 );
 
my $FramePane = $uneFrame->Pane(
  -height => 500,
  -width => 500,
  -yscrollcommand => ['set',$BarreVer],
  -xscrollcommand => ['set',$BarreHor],
);
 
$BarreHor->configure( -command => ['xview', $FramePane], );
$BarreVer->configure( -command => ['yview', $FramePane], );
 
$BarreVer->pack( qw/-side right -fill y/ );
$BarreHor->pack( qw/-side bottom -fill x/ );
$FramePane->pack( qw/ -fill both -expand 1/ );
 
# 6 boutons
my $Bouton1 = $FramePane->Button( -text => "Num1", -height => 50, -width => 50,);
my $Bouton2 = $FramePane->Button( -text => "Num2", -height => 50, -width => 50, );
my $Bouton3 = $FramePane->Button( -text => "Num3", -height => 50, -width => 50, );
my $Bouton4 = $FramePane->Button( -text => "Num4", -height => 50, -width => 50, );
my $Bouton5 = $FramePane->Button( -text => "Num5", -height => 50, -width => 50, );
my $Bouton6 = $FramePane->Button( -text => "Num6", -height => 50, -width => 50, );
 
$Bouton1->grid($Bouton2, $Bouton3);
$Bouton4->grid($Bouton5,$Bouton6);
 
$uneFrame->pack(
	-pady => 50,
	-padx => 50,
	-ipadx => 50,
	-ipady => 50,
);
$uneFrame->update; #j'ai teste ca mais ca ne fonctionne pas ...
$fenetre->update;
$fenetre->geometry( $fenetre->width+1 . "x" . $fenetre->height . "+0+0" );
 
MainLoop();

vire

Code:

$fenetre->geometry("1023x710+0+0");

en debut de code et tu le mets à la fin de la sorte :
Code:

1 2 3 4 5 6 7 8 9 10 $uneFrame->pack( -pady => 50, -padx => 50, -ipadx => 50, -ipady => 50, ); $fenetre->update; $fenetre->geometry("1023x710+0+0"); MainLoop();
Et là ça fonctionne

23/04/2009, 14h05
viking1404

Exacte ca fonctionne :P.
Pour l'application que je dois faire je suis obligé de rajouter 1 pixel en largeur et en hauteur pour que ça fonctionne.
C'est un peu "crade" comme solution mais bon : it works !

Merci !