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 :

Images fournies par tk


Sujet :

Interfaces Graphiques Perl

  1. #1
    Membre du Club
    Femme Profil pro
    Ingénieur Recherche
    Inscrit en
    octobre 2014
    Messages
    69
    Détails du profil
    Informations personnelles :
    Sexe : Femme
    Localisation : France, Haute Vienne (Limousin)

    Informations professionnelles :
    Activité : Ingénieur Recherche

    Informations forums :
    Inscription : octobre 2014
    Messages : 69
    Points : 41
    Points
    41
    Par défaut Images fournies par tk
    Bonjour,
    je suis en train de faire une barre menu et pour une fois j'aimerai avoir des images avec le texte des sous-menu.
    Je sais qu'il faut ajouter
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    -image => $fenetre->Getimage("nomdelimage")
    mais je me demandais s'il existait quelque part le recensement des images fournies par défaut avec tk. Parce qu'à moins d'être dans un tuto, je ne connais pas les nom des images, ni à quoi elles ressemblent.
    Idéalement un tableau nom/image comme il en existe pour les couleurs
    (celui que j'utilise tout le temps: http://www.rtapo.com/notes/named_colors.html )

    Merci

  2. #2
    Membre chevronné Avatar de dmganges
    Homme Profil pro
    Retraité. Ne recherche pas un emploi.
    Inscrit en
    septembre 2011
    Messages
    1 376
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 69
    Localisation : France, Hérault (Languedoc Roussillon)

    Informations professionnelles :
    Activité : Retraité. Ne recherche pas un emploi.
    Secteur : Service public

    Informations forums :
    Inscription : septembre 2011
    Messages : 1 376
    Points : 2 023
    Points
    2 023
    Par défaut
    Bonjour,
    Pour Tk tu as un sous-forum spécifique ICI

    Sinon ton pb en dessous est-il réglé ?

    Enfin pour ta question :

    Perso dans mon appli :
    1) j'ai un répertoire qui contient les images
    Et dans le pgm ça donne :

    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
    70
    71
    72
    73
    74
    75
    76
    77
    78
    79
    80
    81
    82
    83
    84
    85
    86
    87
    88
    use Tk::Photo;
    ...
    
    my $RepBase    = 'E:/_APPLI/Regex/';
    my $Bulb       = 'E:/_APPLI/Regex/Images/Bulb.gif';
    my $Plus       = 'E:/_APPLI/Regex/Images/Plus.gif';
    my $Moins      = 'E:/_APPLI/Regex/Images/Moins.gif';
    my $Insert     = 'E:/_APPLI/Regex/Images/Insert.gif';
    
    ##Et par exemple pour avoir une image sur des boutons :
    
    #############
    # Regex Moins
    $Moins = $Wm->Photo( -file => $Moins );
    my $bouton_regMoins = $cadre_gestion->Button(
    	-image    => $Moins,
    	-text    => "  -  ",
    	-command => sub {
    		confirmation($Wm, "Faut-il supprimer la regex  $RegEdit  de la liste d'option ?") if ( $config{GLOBAL}{confirm} eq 'OUI');
    		if ($Reponse eq "OUI") {
    			#push @LesRegex, $RegEdit;
    			my @RegTemp;
    			foreach my $Reg ( @LesRegex ) {
    				if ( $Reg ne $VarReg ) {
    					push @RegTemp, $Reg;
    				}
    			}
    			@LesRegex = @RegTemp;
    			$option_regex->configure(
    				-options      => \@LesRegex,
    			);
    			$FlagSave++;
    			$LabMessage = "Regex  $RegEdit  supprimée !";
    		} else {
    			$LabMessage = "Liste des regex non modifiée !";
    		}
    	},
    );
    
    # Regex Plus
    $Plus = $Wm->Photo( -file => $Plus );
    my $bouton_regPlus = $cadre_gestion->Button(
    	-image    => $Plus,
    	#-text    => "  +  ",
    	-command => sub {
    		confirmation($Wm, "Faut-il ajouter la regex  $RegEdit  à la liste d'option ?") if ( $config{GLOBAL}{confirm} eq 'OUI');
    		if ($Reponse eq "OUI") {
    			push @LesRegex, $RegEdit;
    			$option_regex->configure(
    				-options      => \@LesRegex,
    			);
    			$FlagSave++;
    			$LabMessage = "Regex  $RegEdit  ajoutée !";
    		} else {
    			$LabMessage = "Liste des regex non modifiée !";
    		}
    	},
    );
    
    
    #############
    # Regex Moins
    $Moins = $Wm->Photo( -file => $Moins );
    my $bouton_regMoins = $cadre_gestion->Button(
    	-image    => $Moins,
    	-text    => "  -  ",
    	-command => sub {
    		confirmation($Wm, "Faut-il supprimer la regex  $RegEdit  de la liste d'option ?") if ( $config{GLOBAL}{confirm} eq 'OUI');
    		if ($Reponse eq "OUI") {
    			#push @LesRegex, $RegEdit;
    			my @RegTemp;
    			foreach my $Reg ( @LesRegex ) {
    				if ( $Reg ne $VarReg ) {
    					push @RegTemp, $Reg;
    				}
    			}
    			@LesRegex = @RegTemp;
    			$option_regex->configure(
    				-options      => \@LesRegex,
    			);
    			$FlagSave++;
    			$LabMessage = "Regex  $RegEdit  supprimée !";
    		} else {
    			$LabMessage = "Liste des regex non modifiée !";
    		}
    	},
    );

  3. #3
    Membre du Club
    Femme Profil pro
    Ingénieur Recherche
    Inscrit en
    octobre 2014
    Messages
    69
    Détails du profil
    Informations personnelles :
    Sexe : Femme
    Localisation : France, Haute Vienne (Limousin)

    Informations professionnelles :
    Activité : Ingénieur Recherche

    Informations forums :
    Inscription : octobre 2014
    Messages : 69
    Points : 41
    Points
    41
    Par défaut
    Je vois, je vais copier tout les nom du dossier et me les lire en boucle dans un fichier. Ça me fera mon tableau.
    Merci, et désolé pour l'erreur de forum!

    Au passage, j'ai marqué "résolu" pour ma question précédente. Pas sûre d'où venait le problème, mais bon maintenant ça marche.

  4. #4
    Membre chevronné Avatar de dmganges
    Homme Profil pro
    Retraité. Ne recherche pas un emploi.
    Inscrit en
    septembre 2011
    Messages
    1 376
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 69
    Localisation : France, Hérault (Languedoc Roussillon)

    Informations professionnelles :
    Activité : Retraité. Ne recherche pas un emploi.
    Secteur : Service public

    Informations forums :
    Inscription : septembre 2011
    Messages : 1 376
    Points : 2 023
    Points
    2 023
    Par défaut
    OK, vu, bonne continuation...

    Éventuellement fais-en un hash que tu utilises pour initialiser ce qui va bien...
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    ###############################
    # Scrolled qui affiche le texte
    my $widget_input = $Wm->Scrolled(
      'Text',
      -scrollbars => 'e',
      -takefocus  => 0,
      -font       => '{Simplified Arabic} 14 {bold}',
      -height     => '6',
      -wrap       => 'word',
      -relief     => 'groove',
      -background => '#ABFAA3',
    );
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    ###############################
    # Scrolled qui affiche le texte
    my $widget_input = $Wm->Scrolled(
      'Text',
      -scrollbars => 'e',
      -takefocus  => 0,
      -font       => '{Simplified Arabic} 14 {bold}',
      -height     => '6',
      -wrap       => 'word',
      -relief     => 'groove',
      -background => $Couleur{MidnightBlue},
    );

  5. #5
    Membre chevronné Avatar de dmganges
    Homme Profil pro
    Retraité. Ne recherche pas un emploi.
    Inscrit en
    septembre 2011
    Messages
    1 376
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 69
    Localisation : France, Hérault (Languedoc Roussillon)

    Informations professionnelles :
    Activité : Retraité. Ne recherche pas un emploi.
    Secteur : Service public

    Informations forums :
    Inscription : septembre 2011
    Messages : 1 376
    Points : 2 023
    Points
    2 023
    Par défaut
    Petit exemple :

    Couleurs.pl :
    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
    #!/usr/bin/perl
    use warnings;
    use strict;
    use utf8;
    use Tk;
    use Config::Std;													# Lecture/ecriture d'un fichier .ini
     
    my $RepBase    = 'E:/_DEV/clmin/';
     
    # Lecture du fichier des couleurs
    my $fichier_couleurs = File::Spec->catfile( $RepBase, 'Couleurs.ini' );
    my %Couleurs;
    if ( -e $fichier_couleurs ) {
     	read_config $fichier_couleurs => %Couleurs;
    }
    else {
     	%Couleurs = (
       	'GLOBAL' => {
       		Debug	=> 'OUI',
       	},
       	'COULEUR' => {
       		'MidnightBlue' => '#191970',
       		'DarkGreen'    => '#006400',
       		'purple4'      => '#5d478b',
    		},
     	);
    }
     
    # Creation du widget principal
    my $Wm = MainWindow->new(
    	-width			=> 250,
    	-height			=> 150,
    	-title      => "Couleurs",
      -background => $Couleurs{COULEURS}{purple4},
    );
     
    MainLoop;
    Couleurs.ini :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    [GLOBAL]
    Debug: OUI
     
    [COULEURS]
    MidnightBlue: #191970
    DarkGreen: #006400
    purple4: #5d478b
     
    [FIN]

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

Discussions similaires

  1. Réponses: 2
    Dernier message: 03/10/2005, 10h09
  2. récuperer une info fourni par un exe
    Par peuf23 dans le forum Langage
    Réponses: 4
    Dernier message: 26/07/2005, 14h41
  3. Réponses: 20
    Dernier message: 19/12/2004, 18h52
  4. Récupérer l'ip fournie par le fournisseur d'accès
    Par ggnore dans le forum Réseau
    Réponses: 15
    Dernier message: 18/10/2004, 09h27
  5. [VB6] [Graphisme] Transfert d'image pixel par pixel
    Par SpaceFrog dans le forum VB 6 et antérieur
    Réponses: 16
    Dernier message: 15/10/2002, 09h53

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