IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Interfaces Graphiques Perl Discussion :

redimensionner un checkbutton avec image


Sujet :

Interfaces Graphiques Perl

  1. #1
    Membre à l'essai
    Homme Profil pro
    Inscrit en
    Janvier 2012
    Messages
    26
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

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

    Informations forums :
    Inscription : Janvier 2012
    Messages : 26
    Points : 18
    Points
    18
    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
    19 818
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations forums :
    Inscription : Avril 2004
    Messages : 19 818
    Points : 499 183
    Points
    499 183
    Par défaut
    Il faudrait nous montrer un exemple de ton code.

  3. #3
    Membre à l'essai
    Homme Profil pro
    Inscrit en
    Janvier 2012
    Messages
    26
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

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

    Informations forums :
    Inscription : Janvier 2012
    Messages : 26
    Points : 18
    Points
    18
    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 : 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
    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
    Membre à l'essai
    Homme Profil pro
    Inscrit en
    Janvier 2012
    Messages
    26
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

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

    Informations forums :
    Inscription : Janvier 2012
    Messages : 26
    Points : 18
    Points
    18
    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
    19 818
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations forums :
    Inscription : Avril 2004
    Messages : 19 818
    Points : 499 183
    Points
    499 183
    Par défaut
    Peux-tu nous faire une capture d'écran du rendu sous Linux et sous Windows ?

  6. #6
    Membre à l'essai
    Homme Profil pro
    Inscrit en
    Janvier 2012
    Messages
    26
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

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

    Informations forums :
    Inscription : Janvier 2012
    Messages : 26
    Points : 18
    Points
    18
    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
    19 818
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations forums :
    Inscription : Avril 2004
    Messages : 19 818
    Points : 499 183
    Points
    499 183
    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.

  8. #8
    Membre à l'essai
    Homme Profil pro
    Inscrit en
    Janvier 2012
    Messages
    26
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

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

    Informations forums :
    Inscription : Janvier 2012
    Messages : 26
    Points : 18
    Points
    18
    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
    19 818
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations forums :
    Inscription : Avril 2004
    Messages : 19 818
    Points : 499 183
    Points
    499 183
    Par défaut
    Dans ce cas, tu fais deux widgets collés. Un checkboutton sans image et un widget label contenant l'image à coté.

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

Discussions similaires

  1. Redimensionner popup avec image en flux binaire
    Par bossun dans le forum ASP.NET
    Réponses: 0
    Dernier message: 29/12/2009, 00h54
  2. projet de base Interbase 7.5 avec images
    Par KRis dans le forum InterBase
    Réponses: 8
    Dernier message: 13/06/2005, 11h17
  3. alignement input avec image
    Par Shabata dans le forum Balisage (X)HTML et validation W3C
    Réponses: 5
    Dernier message: 24/02/2005, 10h45
  4. Formulaire et bouton submit avec image mapée
    Par dody dans le forum Général JavaScript
    Réponses: 7
    Dernier message: 06/12/2004, 17h00
  5. boîte de dialogue avec image de fond + texte
    Par Eugénie dans le forum MFC
    Réponses: 13
    Dernier message: 31/08/2004, 14h32

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo