Publicité
+ Répondre à la discussion
Affichage des résultats 1 à 9 sur 9
  1. #1
    Invité de passage
    Homme Profil pro Francois
    Inscrit en
    janvier 2012
    Messages
    22
    Détails du profil
    Informations personnelles :
    Nom : Homme Francois
    Localisation : France

    Informations professionnelles :
    Secteur : High Tech - Électronique et micro-électronique

    Informations forums :
    Inscription : janvier 2012
    Messages : 22
    Points : 4
    Points
    4

    Par défaut redimensionner un checkbutton avec image

    Bonjour,
    Je débute en Tk/Perl et j'ai un problème avec des checkbutton.
    J'affecte des images a des checkbutton .

    Je voudrais diminuer la taille de la patie "bouton" du checkbutton mais an gardant une grande taille de l'image du bouton.

    Actuellement la partie bouton à la même taille que l'image et c'est pas terrible au niveau graphique...
    Les images font 10cmx10cm et je voudrais que la partie qui représente la validation du bouton fasse environ 2cm
    Est-ce possible , car j'arrive uniquement à changer la taille de l'image
    Merci.

  2. #2
    Responsable Perl et Outils

    Avatar de djibril
    Homme Profil pro
    Inscrit en
    avril 2004
    Messages
    16 545
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations forums :
    Inscription : avril 2004
    Messages : 16 545
    Points : 465 274
    Points
    465 274

    Par défaut

    Il faudrait nous montrer un exemple de ton code.

    Pas de questions technique par messagerie privée (lisez les règles du forum Perl) et pour les nouveaux !

  3. #3
    Invité de passage
    Homme Profil pro Francois
    Inscrit en
    janvier 2012
    Messages
    22
    Détails du profil
    Informations personnelles :
    Nom : Homme Francois
    Localisation : France

    Informations professionnelles :
    Secteur : High Tech - Électronique et micro-électronique

    Informations forums :
    Inscription : janvier 2012
    Messages : 22
    Points : 4
    Points
    4

    Par défaut

    Bonsoir,
    Jai refait la partie du code qui utilise les checkbutton, car je ne peux pas transférer celui de mon systeme Linux du boulot...(voir ci dessous)

    En executant le code sur PC Window XP (ActivePerl) je me rends compte que je n'est pas le problème comme sur mon systeme Linux !

    Sur PC: Petite cases à cochet et grandes images=> Bon Rendu visuel=>OK
    Sous Linux: Grandes cases a cochet , de la taille de l'image==>ce qui me pose problème ==> Pas OK!!

    Y a t-il une solution pour ne pas avoir ce problème sous Linux ?
    Merci ..
    ===================
    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
    57
    58
    59
    60
    61
    62
    63
    64
    65
    66
    67
    68
    69
    #!C:\perl -w
    use strict;
    use warnings;
    use Tk;
    use Tk::Photo;
    use Tk::PNG;
    use Tk::JPEG;
    use Tk::Pane;
    # Programme principal
    # Creation de la fenetre
    my $fenetre = new MainWindow(
      -title      => "button image",
      -background => "white",
    );    
     
    my $widget_photo = $fenetre->Scrolled('Frame',
      -scrollbars => 'se',
      -width => 600,
      -height => 600,
    )->grid( );
     
     
     
     
    my $MessageAccueil = "Image selection for report\n";
    $fenetre->Label( 
      -text => $MessageAccueil,
      -background => "blue",  
    )->grid();
     
    my $i=1;
    my $r_cnt=1;
    my $c_cnt=1;
    my @selected_picture;
    for (1..8) {
     
     
    my $ObjImage="image".$i;
    my $picture="img".$i.".jpg";
    $ObjImage = $widget_photo->Photo( -file => "$picture" );
     
    my $bouton2 = $widget_photo-> Checkbutton (
        -image => $ObjImage,
    		-command => [\&Actionbouton],
    		-onvalue => $picture,
    		-offvalue=>0,
    )->grid(-row => $r_cnt,
    		-column =>$c_cnt,
     
    );
    $bouton2->select();
    $i++;
    $r_cnt++;
    	if ($i eq 3) {
    		$c_cnt++;
    		$r_cnt=1;
    		}
     
    }
    my $bt3=$fenetre->Button (
    	- text=>"Sortie",
    	-foreground => "red",
    	-command => sub {exit;},
    	)->grid();
    MainLoop();
    sub Actionbouton {
    print "Run the action command ....\n";
    print "Select\n";
    }
    ===================

  4. #4
    Invité de passage
    Homme Profil pro Francois
    Inscrit en
    janvier 2012
    Messages
    22
    Détails du profil
    Informations personnelles :
    Nom : Homme Francois
    Localisation : France

    Informations professionnelles :
    Secteur : High Tech - Électronique et micro-électronique

    Informations forums :
    Inscription : janvier 2012
    Messages : 22
    Points : 4
    Points
    4

    Par défaut

    Salut,
    Quelqu un à t il une idée pour mon problème de checkbutton sous Linux?
    Merci..

  5. #5
    Responsable Perl et Outils

    Avatar de djibril
    Homme Profil pro
    Inscrit en
    avril 2004
    Messages
    16 545
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations forums :
    Inscription : avril 2004
    Messages : 16 545
    Points : 465 274
    Points
    465 274

    Par défaut

    Peux-tu nous faire une capture d'écran du rendu sous Linux et sous Windows ?

    Pas de questions technique par messagerie privée (lisez les règles du forum Perl) et pour les nouveaux !

  6. #6
    Invité de passage
    Homme Profil pro Francois
    Inscrit en
    janvier 2012
    Messages
    22
    Détails du profil
    Informations personnelles :
    Nom : Homme Francois
    Localisation : France

    Informations professionnelles :
    Secteur : High Tech - Électronique et micro-électronique

    Informations forums :
    Inscription : janvier 2012
    Messages : 22
    Points : 4
    Points
    4

    Par défaut

    Voila 2 JPG., montrant le rendu sous window et sous Linux.
    Comme tu vois, sous Linux, en vert les boutons sont mis a la taille de l'image, alors que sous window ils reste de taille petite.
    Peut-on changer la taille , sous Linux ?
    Images attachées Images attachées

  7. #7
    Responsable Perl et Outils

    Avatar de djibril
    Homme Profil pro
    Inscrit en
    avril 2004
    Messages
    16 545
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations forums :
    Inscription : avril 2004
    Messages : 16 545
    Points : 465 274
    Points
    465 274

    Par défaut

    Je viens de tester sous Windows et Linux et en effet, y a un souci. Je n'ai pas trouvé de solution dans la documentation. Je te recommande de ne pas utiliser d'images ! C'est radical, mais au moins, tu ne seras plus embêté.

    N.B. J'ai fait remonter le bogue au concepteur du module Tk.

    Pas de questions technique par messagerie privée (lisez les règles du forum Perl) et pour les nouveaux !

  8. #8
    Invité de passage
    Homme Profil pro Francois
    Inscrit en
    janvier 2012
    Messages
    22
    Détails du profil
    Informations personnelles :
    Nom : Homme Francois
    Localisation : France

    Informations professionnelles :
    Secteur : High Tech - Électronique et micro-électronique

    Informations forums :
    Inscription : janvier 2012
    Messages : 22
    Points : 4
    Points
    4

    Par défaut

    Merci pour l'info
    Je vais voir comment modifier le code car il faut vraiment que j'affiche les images et que l'utilisateur puisse choisir lesquelles seront mises dans son rapport...peut-etre utiliser du texte sue les boutons et afficher a coté les images correspondantes . il faudra ensuite faire le lien entre le bouton et l'image. Je vais étudier cela ...

  9. #9
    Responsable Perl et Outils

    Avatar de djibril
    Homme Profil pro
    Inscrit en
    avril 2004
    Messages
    16 545
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations forums :
    Inscription : avril 2004
    Messages : 16 545
    Points : 465 274
    Points
    465 274

    Par défaut

    Dans ce cas, tu fais deux widgets collés. Un checkboutton sans image et un widget label contenant l'image à coté.

    Pas de questions technique par messagerie privée (lisez les règles du forum Perl) et pour les nouveaux !

+ Répondre à la discussion
Cette discussion est résolue.

Liens sociaux

Règles de messages

  • Vous ne pouvez pas créer de nouvelles discussions
  • Vous ne pouvez pas envoyer des réponses
  • Vous ne pouvez pas envoyer des pièces jointes
  • Vous ne pouvez pas modifier vos messages
  •