Discussion :

[ChTiRiBi]

salut à tous,
j'aimerais savoir si on peut faire une image cliquable qui aurait les même propriétés qu'un bouton (en gros un bouton qui contient une image) avec perl/tk, et si c'est possible comment faire.
merci d'avance

[djibril]

oui on peut tout à fait faire cela, le principe est le suivant :
Tu crées un bouton, et au lieu de mettre un text

Code :

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

-text => "xxx",

tu mets

Code :

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

-image => $ObjetImage,

Et tu peux ensuite jouer avec le relief

[ChTiRiBi]

et l'objet image, il a quels propriétés? pouvez vous me donner une syntaxe?
merci

[djibril]

exemple :

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
#!/usr/bin/perl
use strict;
use warnings;
use Tk;
use Tk::Photo;
use Tk::PNG;
 
# Programme principal
# Creation de la fenetre
my $fenetre = new MainWindow(
  -title      => "button image",
  -background => "white",
);    
 
my $MessageAccueil = "Bonjour tout le monde - bouton image\n\n";
$fenetre->Label( 
  -text => $MessageAccueil,
  -background => "white",  
)->pack();
 
my $ObjImage = $fenetre->Photo( -format => "png", -file => "image.png" );
my $bouton2 = $fenetre -> Button (
    -image => $ObjImage, 
		-command => sub { exit; },
)->pack();
 
MainLoop();

[ChTiRiBi]

pour le code c'est bon mais la photo que je veux insérer dans le bouton a le format JPEG, c'est aussi valable avec ce format?

[djibril]

oui

Code :

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

1
2
3
use Tk::JPEG;
 
-format => "jpeg",