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 :

selection frame et drag and drop .lnk


Sujet :

Interfaces Graphiques Perl

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre expérimenté
    Avatar de magicshark
    Homme Profil pro
    Dans une SS2I donc pas que JAVA
    Inscrit en
    Octobre 2011
    Messages
    133
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations professionnelles :
    Activité : Dans une SS2I donc pas que JAVA
    Secteur : High Tech - Éditeur de logiciels

    Informations forums :
    Inscription : Octobre 2011
    Messages : 133
    Par défaut selection frame et drag and drop .lnk
    Bonjour, j'ai fais un petit programme en deux parties, ou l'une des deux permet d'avoir une liste de fichier sélectionner (via parcourir et drag and drop).

    - PROBLEME 1

    Lorsqu'avec parcourir je sélectionne un raccourcis, y a pas de soucis par contre je le glisse il me glisse le .lnk non pas le .XXX associer.
    Comment puis je changer cela ?

    - PROBLEME 2

    J'aimerai pouvoir supprimer certains fichiers mis par erreur et pour cela j'aimerai qu'il soit sélectionnable (un peu comme dans l'explorateur de fichier). Hors je sais qu'avec bind je peut vers de l’évènementielle mais par contre j'ai aucune idée de comment changer mes -background avec bind.

    Merci

    screen de l'appli :
    Images attachées Images attachées  

  2. #2
    Responsable Perl et Outils

    Avatar de djibril
    Homme Profil pro
    Inscrit en
    Avril 2004
    Messages
    19 822
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations forums :
    Inscription : Avril 2004
    Messages : 19 822
    Par défaut
    Problème 1 : Comment as tu écrit ton drag and drop ?
    Problème 2 : As-tu lu la documentation de Tk::Bind sur le CPAN ?

  3. #3
    Membre expérimenté
    Avatar de magicshark
    Homme Profil pro
    Dans une SS2I donc pas que JAVA
    Inscrit en
    Octobre 2011
    Messages
    133
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations professionnelles :
    Activité : Dans une SS2I donc pas que JAVA
    Secteur : High Tech - Éditeur de logiciels

    Informations forums :
    Inscription : Octobre 2011
    Messages : 133
    Par défaut
    pour le frame
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
     
    $framIn -> DropSite(
      -dropcommand => [ \&drop, $framIn ],
      -droptypes   => 'Win32',);
    la fonciton drop
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
     
    sub  drop{
        my ( $widgetDragDrop ) = @_;
        my $sel = $widgetDragDrop->SelectionGet( -selection => 'CLIPBOARD' );
        foreach my $fichier_rep ( split( /\n/, $sel ) ) {
            if ( -f $fichier_rep ) {
                my @fileName = split(/\\/,$fichier_rep);
                $files[scalar(@files)] = $fichier_rep;
                makeFileFrame(validaFileName($fileName[-1]),$fileName[-1]);
            }
        }
    return;
    }
    probleme 2 => Oui je l'ai lu mais j'ai pas forcement tout compris

  4. #4
    Responsable Perl et Outils

    Avatar de djibril
    Homme Profil pro
    Inscrit en
    Avril 2004
    Messages
    19 822
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations forums :
    Inscription : Avril 2004
    Messages : 19 822
    Par défaut
    Pour le drag an d drop, je pense pas qu'il y ait d'autre façon de faire. Et qu'il te fournisse le fichier .lnk au lieu du fichier associé, c'est normal. Il t'a fournit le chemin du fichier . Je ne vois pas d'autres solutions que de le gérer toi même. C'est-à-dire, si tu rencontres un fichier nommé .lnk, c'est à toi de trouver le fichier pointé (d'étudier ce lien symbolique).

    Voici une petite procédure (que je devrais rajouter dans la FAQ) qui permet de trouver le fichier cible depuis un lien symbolique Windows :

    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
    #!/usr/bin/perl
    use strict;
    use warnings;
    use Win32::OLE;
     
    my $fichier = 'XXXXXX.lnk';
     
    # Si mon fichier est un fichier .lnk => trouver la cible
    if ( $fichier =~ m{\.lnk} ) {
    	$fichier = lire_lien_symbolique_windows($fichier);
    }
     
    sub lire_lien_symbolique_windows {
    	my ($lien_symbolique) = @_;
     
    	my $WinOLE = new Win32::OLE 'WScript.Shell';
    	my $lien = $WinOLE->CreateShortcut($lien_symbolique) or die;
    	return $lien->TargetPath;
    }

  5. #5
    Membre expérimenté
    Avatar de magicshark
    Homme Profil pro
    Dans une SS2I donc pas que JAVA
    Inscrit en
    Octobre 2011
    Messages
    133
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations professionnelles :
    Activité : Dans une SS2I donc pas que JAVA
    Secteur : High Tech - Éditeur de logiciels

    Informations forums :
    Inscription : Octobre 2011
    Messages : 133
    Par défaut
    merci je vais y regarder et pour le probleme (2) la doc sur le CPAN résoudrai mon problème alors ?
    (oui pour la FAQ ça peut être bien le script du drop est honteusement pompé dessus)

  6. #6
    Responsable Perl et Outils

    Avatar de djibril
    Homme Profil pro
    Inscrit en
    Avril 2004
    Messages
    19 822
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations forums :
    Inscription : Avril 2004
    Messages : 19 822
    Par défaut
    Citation Envoyé par magicshark Voir le message
    (oui pour la FAQ ça peut être bien le script du drop est honteusement pompé dessus)
    Il n'y a pas de honte, si je mets du code dans la FAQ, c'est pour que cela puisse vous aider, donc faites vous plaisir, c'est gratuit .

  7. #7
    Responsable Perl et Outils

    Avatar de djibril
    Homme Profil pro
    Inscrit en
    Avril 2004
    Messages
    19 822
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations forums :
    Inscription : Avril 2004
    Messages : 19 822
    Par défaut
    Pour ton problème 2 :

    Voici ton bind qui appellera une procédure :

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
      # Simulation d'une sélection
      $frameFile->bind( '<ButtonPress-1>', [\&simuler_selection, $frameFile, $label_text, $Label ] );  
      $Label->bind( '<ButtonPress-1>', [\&simuler_selection, $frameFile, $label_text, $Label ] );  
      $label_text->bind( '<ButtonPress-1>', [\&simuler_selection, $frameFile, $label_text, $Label ] );
    Cet appel sera effectué après un clic sur l'image, le texte ou cadre

    Voici la procédure :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    sub simuler_selection {
    	my ($widget, $frameFile, $label_text, $label_image) = @_;
     
    	$frameFile->configure( qw/ -background blue / );
    	$label_image->configure( qw/ -background blue / );
    	$label_text->configure( qw/ -background blue -foreground  white / );
    	print "Click sur : ", $label_text->cget('-text'),"\n";
     
    	return;
    }
    Son rôle est de mettre un fond bleu derrière chaque widget. Voilà, pas compliqué. Juste une piste pour te faire bosser , faudra penser à compléter cette procédure pour du coup agir sur tous les autres éléments afin de remettre le fond blanc et le text en noir. En fait, à chaque sélection, tout reste bleu j'allais pas tout faire non plus !

  8. #8
    Membre expérimenté
    Avatar de magicshark
    Homme Profil pro
    Dans une SS2I donc pas que JAVA
    Inscrit en
    Octobre 2011
    Messages
    133
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations professionnelles :
    Activité : Dans une SS2I donc pas que JAVA
    Secteur : High Tech - Éditeur de logiciels

    Informations forums :
    Inscription : Octobre 2011
    Messages : 133
    Par défaut
    merci beaucoup oui en effet je pensait refaire un peu le code en virant mon tableau @file (qui contient tout les fichiers de l'appli) et le remplacer par une hash histoire de vérifier les doublons de plus ça sera plus simple à supprimer je rentrerai également ses coordonnées de grid afin de décaler le dernier à la place du fichier supprimer

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

Discussions similaires

  1. Drag and drop "de l'extérieur"
    Par Invité dans le forum C++Builder
    Réponses: 12
    Dernier message: 31/03/2020, 10h10
  2. drag and drop, select à l'intérieur du div draggable
    Par sebhm dans le forum Général JavaScript
    Réponses: 5
    Dernier message: 15/02/2013, 23h24
  3. [VB.NET] Microsoft TreeView drag and drop ?
    Par bigtoof dans le forum ASP.NET
    Réponses: 7
    Dernier message: 24/05/2004, 14h50
  4. [JSP][DRAG AND DROP]
    Par hamed dans le forum Servlets/JSP
    Réponses: 7
    Dernier message: 23/01/2004, 17h36
  5. drag and drop
    Par jujuesteban dans le forum Composants VCL
    Réponses: 5
    Dernier message: 20/06/2003, 09h23

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