PureBasic

Forums PureBasic - Français
https://www.purebasic.fr/french/

Soucis de double click

https://www.purebasic.fr/french/viewtopic.php?t=13706

Page 2 sur 3

Re: Soucis de double click

Publié : dim. 16/juin/2013 10:26
par G-Rom
tous les eventtype souris fonctionnent dans mon code, seul le double click chie.
Peu être que tu ne l'a pas vu :
WindowEvent()
moi aussi le eventtype ne marche pas pour le double click , quelque soit l'os.
@Dobro , les callbacks sont à chié , c'est pas portable. ;)

Re: Soucis de double click

Publié : dim. 16/juin/2013 11:24
par Ar-S
G-Rom a écrit :
tous les eventtype souris fonctionnent dans mon code, seul le double click chie.
Peu être que tu ne l'a pas vu :
Si si j'ai vu, pas eu le temps de trop gérer ce matin, mais me voilà célibataire pour 15j.. Du coup mon quota de prog va monter ;)

C'est quoi le 1 de ton while(1)

Re: Soucis de double click

Publié : dim. 16/juin/2013 11:26
par G-Rom
while [ CONDITION ]
Tant que 1 , on est dans while()
je le casse avec un break.

Re: Soucis de double click

Publié : dim. 16/juin/2013 11:31
par Ar-S
G-Rom a écrit :
while [ CONDITION ]
Tant que 1 , on est dans while()
je le casse avec un break.
Ok

Re: Soucis de double click

Publié : dim. 16/juin/2013 11:45
par Ar-S
Voilà le squelette de mon code avec le windowsEvent.. (Tout ça pour un GetGadgetText.. )
PS : ESC pour quitter


Code : Tout sélectionner


UseJPEGImageEncoder()
UseJPEGImageDecoder()
UsePNGImageEncoder()
UsePNGImageDecoder()
UseTGAImageDecoder()
UseTIFFImageDecoder()

Declare Affiche()

Enumeration
  #ARS
EndEnumeration

Enumeration
  #Panel
  #ROOT
  #EXP
  #CANVAS
EndEnumeration

Enumeration
  #TOUCHE_ESC
EndEnumeration

Enumeration 
#T ; Timer
EndEnumeration

Structure Info
ID.i
imgID.i
IDpic.i
IDmin.i
imgIDpic.q
imgIDmin.q
Name.s
Path.s
L.i
H.i

Poids.q

EndStructure

Global.b Quite, ThreadLIST
Global NewMap img.info()
Global.i Lwin, Hwin, Lmin, Hmin, Lexp, Lcanvas, Hcanvas, LminPic, HminPic
Global.s RepEnCours, RepSelect, rep, OldROOT, Root, ROOTex
Global.s IMGpath  

;----------------------------------------------------
;           ---- A MODIFIER -----
IMGpath.s = "F:\Pics\"
; ----------------------------------------------------



Lexp = 300 ; largeur de l'explorer
Quite = 0
ThreadLIST = 0      




; --------------------------------------------------------------------------------------------
; ----------- PROCE ------------ LISTAGE DES IMAGES
; --------------------------------------------------------------------------------------------


Procedure.i ListPics(*ZBOUB)

EndProcedure

; --------------------------------------------------------------------------------------------
; ----------- PROCE ------------ AFFICHAGE DES MINIATURES
; --------------------------------------------------------------------------------------------

Procedure Affiche()

EndProcedure


; --------------------------------------------------------------------------------------------
; ----------- PROCE ------------ FENETRE PRINCIPALE
; --------------------------------------------------------------------------------------------

; On se fout de la taille vu qu'on va maximiser
  If OpenWindow(#ARS, #PB_Ignore, #PB_Ignore, #PB_Ignore, #PB_Ignore, "Ar-S VISIONEUSE test ",#PB_Window_BorderLess) = 0
      End
  EndIf  
  SetWindowState(#ars, #PB_Window_Maximize)
  ;     StickyWindow(#ars,1)
      
      ; On récupère maintenant les dimensions
    
      Lwin = WindowWidth(#ars, #PB_Window_InnerCoordinate)
      Hwin = WindowHeight(#ars, #PB_Window_InnerCoordinate)
      Debug "fenêtre : " + Str(Lwin) + " x " +Str(Hwin)
       
       PanelGadget(#Panel, 0, 0, Lwin, Hwin)
       LCanvas = (GadgetWidth(#panel)) 
       HCanvas =  GadgetHeight(#panel) 
       
       ; Tab #1
       AddGadgetItem(#Panel, -1, "Choix du dossier")
           ExplorerComboGadget(#ROOT,0,0, Lexp,25, "F:\",#PB_Explorer_DrivesOnly)
           ExplorerListGadget(#EXP, 0, 25, Lexp, Hwin-25, IMGpath.s , #PB_Explorer_NoFiles |#PB_Explorer_AutoSort|#PB_Explorer_FullRowSelect|#PB_Explorer_GridLines)
           RepEnCours.s = GetGadgetText(#EXP)
           Debug "RepEnCours : " + RepEnCours
           
           CanvasGadget(#CANVAS, Lexp, 0, LCanvas-Lexp, Hcanvas)
        
      CloseGadgetList()
      

           
       AddKeyboardShortcut(#ARS, #PB_Shortcut_Escape, #TOUCHE_ESC)   
       AddWindowTimer(#ARS, #T, 50)



                              

; --------------------------------------------------------------------------------------------
; ----------- BOUCLE ------------ PRINCIPALE
; --------------------------------------------------------------------------------------------
Repeat

;EvWIN = WaitWindowEvent() 
EvWIN = WindowEvent() 
EvGAD = EventGadget()
EvTYPE = EventType()
EvMENU = EventMenu()
 

Select EvWIN
          
      ; --------------------------------------------------------------------------------------------
      ; ----------- EVENTTYPE ------------  DOUBLE CLICK GAUCHE
      ; --------------------------------------------------------------------------------------------   
       Case #PB_EventType_LeftDoubleClick

            Debug "ZBOB"   
 
          
      ; --------------------------------------------------------------------------------------------
      ; ----------- EVENT ------------ MENU (raccourcis clavier)
      ; --------------------------------------------------------------------------------------------
      Case #PB_Event_Menu
            Select EvMenu
                  Case #TOUCHE_ESC
                        Quite = 1
            EndSelect
            
      ; --------------------------------------------------------------------------------------------
      ; ----------- EVENT ------------  GADGETS
      ; --------------------------------------------------------------------------------------------
       Case #PB_Event_Gadget
            Select EvGAD
            
                  Case #ROOT

                  Case #EXP
                  Debug "Chlabada "
;                        If EvTYPE = #PB_EventType_LeftDoubleClick
;                               Debug " Double clique "
;                        EndIf
                       
                       
            EndSelect
    ; ////////////////////////
EndSelect  

Until Quite = 1

RemoveKeyboardShortcut(#ARS, #TOUCHE_ESC)

CloseWindow(#ARS)
End

Re: Soucis de double click

Publié : dim. 16/juin/2013 11:49
par G-Rom
Select EvWIN

; --------------------------------------------------------------------------------------------
; ----------- EVENTTYPE ------------ DOUBLE CLICK GAUCHE
; --------------------------------------------------------------------------------------------
Case #PB_EventType_LeftDoubleClick
La constante n'est pas bonne. utilise la bonne ;)

Re: Soucis de double click

Publié : dim. 16/juin/2013 12:19
par Ar-S
G-Rom a écrit :
Select EvWIN

; --------------------------------------------------------------------------------------------
; ----------- EVENTTYPE ------------ DOUBLE CLICK GAUCHE
; --------------------------------------------------------------------------------------------
Case #PB_EventType_LeftDoubleClick
La constante n'est pas bonne. utilise la bonne ;)
Arf !
Bon j'ai remplacé par #PB_Event_LeftDoubleClick mais le problème persiste (alors que ton petit exemple fonctionne...).

Code : Tout sélectionner

UseJPEGImageEncoder()
UseJPEGImageDecoder()
UsePNGImageEncoder()
UsePNGImageDecoder()
UseTGAImageDecoder()
UseTIFFImageDecoder()

Declare Affiche()

Enumeration
  #ARS
EndEnumeration

Enumeration
  #Panel
  #ROOT
  #EXP
  #CANVAS
EndEnumeration

Enumeration
  #TOUCHE_ESC
EndEnumeration

Enumeration 
#T ; Timer
EndEnumeration

Structure Info
ID.i
imgID.i
IDpic.i
IDmin.i
imgIDpic.q
imgIDmin.q
Name.s
Path.s
L.i
H.i

Poids.q

EndStructure

Global.b Quite, ThreadLIST
Global NewMap img.info()
Global.i Lwin, Hwin, Lmin, Hmin, Lexp, Lcanvas, Hcanvas, LminPic, HminPic
Global.s RepEnCours, RepSelect, rep, OldROOT, Root, ROOTex
Global.s IMGpath  

;----------------------------------------------------
;           ---- A MODIFIER -----
IMGpath.s = "F:\Pics\"
; ----------------------------------------------------



Lexp = 300 ; largeur de l'explorer
Quite = 0
ThreadLIST = 0      




; --------------------------------------------------------------------------------------------
; ----------- PROCE ------------ LISTAGE DES IMAGES
; --------------------------------------------------------------------------------------------


Procedure.i ListPics(*ZBOUB)

EndProcedure

; --------------------------------------------------------------------------------------------
; ----------- PROCE ------------ AFFICHAGE DES MINIATURES
; --------------------------------------------------------------------------------------------

Procedure Affiche()

EndProcedure


; --------------------------------------------------------------------------------------------
; ----------- PROCE ------------ FENETRE PRINCIPALE
; --------------------------------------------------------------------------------------------

; On se fout de la taille vu qu'on va maximiser
  If OpenWindow(#ARS, #PB_Ignore, #PB_Ignore, #PB_Ignore, #PB_Ignore, "Ar-S VISIONEUSE test ",#PB_Window_BorderLess) = 0
      End
  EndIf  
  SetWindowState(#ars, #PB_Window_Maximize)
  ;     StickyWindow(#ars,1)
      
      ; On récupère maintenant les dimensions
    
      Lwin = WindowWidth(#ars, #PB_Window_InnerCoordinate)
      Hwin = WindowHeight(#ars, #PB_Window_InnerCoordinate)
      Debug "fenêtre : " + Str(Lwin) + " x " +Str(Hwin)
       
       PanelGadget(#Panel, 0, 0, Lwin, Hwin)
       LCanvas = (GadgetWidth(#panel)) 
       HCanvas =  GadgetHeight(#panel) 
       
       ; Tab #1
       AddGadgetItem(#Panel, -1, "Choix du dossier")
           ExplorerComboGadget(#ROOT,0,0, Lexp,25, "F:\",#PB_Explorer_DrivesOnly)
           ExplorerListGadget(#EXP, 0, 25, Lexp, Hwin-25, IMGpath.s , #PB_Explorer_NoFiles |#PB_Explorer_AutoSort|#PB_Explorer_FullRowSelect|#PB_Explorer_GridLines)
           RepEnCours.s = GetGadgetText(#EXP)
           Debug "RepEnCours : " + RepEnCours
           
           CanvasGadget(#CANVAS, Lexp, 0, LCanvas-Lexp, Hcanvas)
        
      CloseGadgetList()
      

           
       AddKeyboardShortcut(#ARS, #PB_Shortcut_Escape, #TOUCHE_ESC)   
       AddWindowTimer(#ARS, #T, 50)



                              

; --------------------------------------------------------------------------------------------
; ----------- BOUCLE ------------ PRINCIPALE
; --------------------------------------------------------------------------------------------
Repeat

;EvWIN = WaitWindowEvent() 
EvWIN = WindowEvent() 
EvGAD = EventGadget()
EvTYPE = EventType()
EvMENU = EventMenu()
 

Select EvWIN
          
      ; --------------------------------------------------------------------------------------------
      ; ----------- EVENT ------------  DOUBLE CLICK GAUCHE
      ; --------------------------------------------------------------------------------------------   
       Case #PB_Event_LeftDoubleClick
            
            
            Debug "DOUBLEMENT RELOU "   

          
      ; --------------------------------------------------------------------------------------------
      ; ----------- EVENT ------------ MENU (raccourcis clavier)
      ; --------------------------------------------------------------------------------------------
      Case #PB_Event_Menu
            Select EvMenu
                  Case #TOUCHE_ESC
                        Quite = 1
            EndSelect
            
      ; --------------------------------------------------------------------------------------------
      ; ----------- EVENT ------------  GADGETS
      ; --------------------------------------------------------------------------------------------
       Case #PB_Event_Gadget
            Select EvGAD
            
                  Case #ROOT

                  Case #EXP
                  Debug "Chlabada "
;                        If EvTYPE = #PB_EventType_LeftDoubleClick
;                               Debug " Double clique "
;                        EndIf
                       
                       
            EndSelect
    ; ////////////////////////
EndSelect  

Until Quite = 1

RemoveKeyboardShortcut(#ARS, #TOUCHE_ESC)

CloseWindow(#ARS)
End

Re: Soucis de double click

Publié : dim. 16/juin/2013 12:43
par MLD
@Ar-S

Tient comme ceci.

Code : Tout sélectionner

UseJPEGImageEncoder()
UseJPEGImageDecoder()
UsePNGImageEncoder()
UsePNGImageDecoder()
UseTGAImageDecoder()
UseTIFFImageDecoder()

Declare Affiche()

Enumeration
  #ARS
EndEnumeration

Enumeration
  #Panel
  #ROOT
  #EXP
  #CANVAS
EndEnumeration

Enumeration
  #TOUCHE_ESC
EndEnumeration

Enumeration 
#T ; Timer
EndEnumeration

Structure Info
ID.i
imgID.i
IDpic.i
IDmin.i
imgIDpic.q
imgIDmin.q
Name.s
Path.s
L.i
H.i

Poids.q

EndStructure

Global.b Quite, ThreadLIST
Global NewMap img.info()
Global.i Lwin, Hwin, Lmin, Hmin, Lexp, Lcanvas, Hcanvas, LminPic, HminPic
Global.s RepEnCours, RepSelect, rep, OldROOT, Root, ROOTex
Global.s IMGpath  

;----------------------------------------------------
;           ---- A MODIFIER -----
IMGpath.s = "F:\Pics\"
; ----------------------------------------------------



Lexp = 300 ; largeur de l'explorer
Quite = 0
ThreadLIST = 0      




; --------------------------------------------------------------------------------------------
; ----------- PROCE ------------ LISTAGE DES IMAGES
; --------------------------------------------------------------------------------------------


Procedure.i ListPics(*ZBOUB)

EndProcedure

; --------------------------------------------------------------------------------------------
; ----------- PROCE ------------ AFFICHAGE DES MINIATURES
; --------------------------------------------------------------------------------------------

Procedure Affiche()

EndProcedure


; --------------------------------------------------------------------------------------------
; ----------- PROCE ------------ FENETRE PRINCIPALE
; --------------------------------------------------------------------------------------------

; On se fout de la taille vu qu'on va maximiser
  If OpenWindow(#ARS, #PB_Ignore, #PB_Ignore, #PB_Ignore, #PB_Ignore, "Ar-S VISIONEUSE test ",#PB_Window_BorderLess) = 0
      End
  EndIf  
  SetWindowState(#ars, #PB_Window_Maximize)
  ;     StickyWindow(#ars,1)
      
      ; On récupère maintenant les dimensions
    
      Lwin = WindowWidth(#ars, #PB_Window_InnerCoordinate)
      Hwin = WindowHeight(#ars, #PB_Window_InnerCoordinate)
      Debug "fenêtre : " + Str(Lwin) + " x " +Str(Hwin)
       
       PanelGadget(#Panel, 0, 0, Lwin, Hwin)
       LCanvas = (GadgetWidth(#panel)) 
       HCanvas =  GadgetHeight(#panel) 
       
       ; Tab #1
       AddGadgetItem(#Panel, -1, "Choix du dossier")
           ExplorerComboGadget(#ROOT,0,0, Lexp,25, "F:\",#PB_Explorer_DrivesOnly)
           ExplorerListGadget(#EXP, 0, 25, Lexp, Hwin-25, IMGpath.s , #PB_Explorer_NoFiles |#PB_Explorer_AutoSort|#PB_Explorer_FullRowSelect|#PB_Explorer_GridLines)
           RepEnCours.s = GetGadgetText(#EXP)
           Debug "RepEnCours : " + RepEnCours
           
           CanvasGadget(#CANVAS, Lexp, 0, LCanvas-Lexp, Hcanvas)
        
      CloseGadgetList()
      

           
       AddKeyboardShortcut(#ARS, #PB_Shortcut_Escape, #TOUCHE_ESC)   
       AddWindowTimer(#ARS, #T, 50)



                              

; --------------------------------------------------------------------------------------------
; ----------- BOUCLE ------------ PRINCIPALE
; --------------------------------------------------------------------------------------------
Repeat

;EvWIN = WaitWindowEvent() 
EvWIN = WindowEvent() 
EvGAD = EventGadget()
EvTYPE = EventType()
EvMENU = EventMenu()


Select EvWIN
          
      ; --------------------------------------------------------------------------------------------
      ; ----------- EVENTTYPE ------------  DOUBLE CLICK GAUCHE
      ; --------------------------------------------------------------------------------------------   
       Case #PB_EventType_LeftDoubleClick

            Debug "ZBOB"   

          
      ; --------------------------------------------------------------------------------------------
      ; ----------- EVENT ------------ MENU (raccourcis clavier)
      ; --------------------------------------------------------------------------------------------
      Case #PB_Event_Menu
            Select EvMenu
                  Case #TOUCHE_ESC
                        Quite = 1
            EndSelect
            
      ; --------------------------------------------------------------------------------------------
      ; ----------- EVENT ------------  GADGETS
      ; --------------------------------------------------------------------------------------------
       Case #PB_Event_Gadget
            Select EvGAD
            
                  Case #ROOT

                  Case #EXP
;                   Debug "Chlabada "
;                        If EvTYPE = LeftDoubleClick
;                               Debug " Double clique "
;                        EndIf


                  Select EvTYPE ;EventType     
                    Case LeftDoubleClick
                      Debug " Double clique "
                  EndSelect      
            EndSelect
    ; ////////////////////////
EndSelect  

Until Quite = 1

RemoveKeyboardShortcut(#ARS, #TOUCHE_ESC)

CloseWindow(#ARS)
End

Re: Soucis de double click

Publié : dim. 16/juin/2013 12:45
par G-Rom
ton code est à revoir.

Code : Tout sélectionner

OpenWindow(0,0,0,800,600,"")

 ListIconGadget(0,10,10,400,580,"",100)


While(1)
  event       = WindowEvent()
  eventType   = #Null  ; On ne sait pas encore
  eventGadget = #Null  ; On ne sait pas encore
  
  If event 
    
    Select event
      Case #PB_Event_LeftDoubleClick
        
       Debug "Double click dans la fenetre"
        
      Case #PB_Event_Gadget
        EventGadget = EventGadget() ; appel au bon moment
        EventType   = EventType()   ; appel au bon moment 
                 
        If EventGadget = 0 And EventType = #PB_EventType_LeftDoubleClick
          Debug "Double click dans la liste"
        EndIf 
        
        
        
    EndSelect
    
    
  EndIf 
  
  
  
  
  
  
  If event = #PB_Event_CloseWindow
    Break
  EndIf 
Wend

Re: Soucis de double click

Publié : dim. 16/juin/2013 12:47
par Ar-S
MLD a écrit :@Ar-S

Tient comme ceci.

Code : Tout sélectionner


                  Select EvTYPE ;EventType     
                    Case LeftDoubleClick
                      Debug " Double clique "
                  EndSelect      
            EndSelect
    ; ////////////////////////
EndSelect
Je ne crois pas non.
Debug ton LeftDoubleClick

Re: Soucis de double click

Publié : dim. 16/juin/2013 12:51
par Ar-S
G-Rom a écrit :ton code est à revoir.

Code : Tout sélectionner

OpenWindow(0,0,0,800,600,"")

 ListIconGadget(0,10,10,400,580,"",100)


While(1)
  event       = WindowEvent()
  eventType   = #Null  ; On ne sait pas encore
  eventGadget = #Null  ; On ne sait pas encore
  
  If event 
    
    Select event
      Case #PB_Event_LeftDoubleClick
        
       Debug "Double click dans la fenetre"
        
      Case #PB_Event_Gadget
        EventGadget = EventGadget() ; appel au bon moment
        EventType   = EventType()   ; appel au bon moment 
                 
        If EventGadget = 0 And EventType = #PB_EventType_LeftDoubleClick
          Debug "Double click dans la liste"
        EndIf 
        
        
        
    EndSelect
    
    
  EndIf 
  
  
  
  
  
  
  If event = #PB_Event_CloseWindow
    Break
  EndIf 
Wend
oui ! :D
C'est tout de même bien abracadabrantesque pour gérer un double clique sur un pauvre gadget.
Merci en tout cas, ça fonctionne au poil ainsi, j'ai plus qu'à modifier ma boucle en conséquence.

Re: Soucis de double click

Publié : dim. 16/juin/2013 12:56
par MLD
c'est moi qui faut mettre au lit :mrgreen:

Re: Soucis de double click

Publié : dim. 16/juin/2013 13:05
par Ar-S
MLD a écrit :Je suis sous XP

Quand je clik avec le bouton gauche de la souris sur une ligne de liste J'ai dans la fenêtre débug une indication double clique.
Je t''assure que je rêve pas
Debug ta variable, ça affiche 0 chez moi. l'event doubleclick n'est pas 0
Ton code detecte le clic gauche, pas le double en tout cas chez ouam.

Re: Soucis de double click

Publié : dim. 16/juin/2013 13:14
par MLD
Oui Oui tu as raison. Je retourne me coucher :oops:

Re: Soucis de double click

Publié : lun. 17/juin/2013 14:28
par Ar-S
Non mais là je deviens marteau. g-ROM en reprenant ton agencement, ça ne marche pas.
Je ne vois pas ce que j'ai pu louper.

(ESC pour quitter)

Code : Tout sélectionner

UseJPEGImageEncoder()
UseJPEGImageDecoder()
UsePNGImageEncoder()
UsePNGImageDecoder()
UseTGAImageDecoder()
UseTIFFImageDecoder()
; UseJPEG2000ImageDecoder()
; UseJPEG2000ImageEncoder()

Declare Affiche()

Enumeration
  #ARS
EndEnumeration

Enumeration
  #Panel
  #ROOT
  #EXP
  #CANVAS
EndEnumeration

Enumeration
  #TOUCHE_ESC
EndEnumeration

Enumeration 
#T ; Timer
EndEnumeration

Structure Info
ID.i
imgID.i
IDpic.i
IDmin.i
imgIDpic.q
imgIDmin.q
Name.s
Path.s
L.i
H.i

Poids.q

EndStructure

Global.b Quite, ThreadLIST
Global NewMap img.info()
Global.i Hbarre, Lwin, Hwin, Lmin, Hmin, Lexp, Lcanvas, Hcanvas, LminPic, HminPic
Global.s RepEnCours, RepSelect, rep, OldROOT, Root, ROOTex
Global.s IMGpath  

;-----------------------------
; A MODIFIER
IMGpath.s = "F:\Pics\"
; -----------------------------


Lexp = 300 ; largeur de l'explorer
Quite = 0
ThreadLIST = 0      


; --------------------------------------------------------------------------------------------
; ----------- PROCE ------------ LISTAGE DES IMAGES
; --------------------------------------------------------------------------------------------


Procedure.i ListPics(*ZBOUB)
      
EndProcedure

; --------------------------------------------------------------------------------------------
; ----------- PROCE ------------ AFFICHAGE DES MINIATURES
; --------------------------------------------------------------------------------------------

Procedure Affiche()

EndProcedure


; --------------------------------------------------------------------------------------------
; ----------- PROCE ------------ FENETRE PRINCIPALE
; --------------------------------------------------------------------------------------------

  If OpenWindow(#ARS, #PB_Ignore, #PB_Ignore, #PB_Ignore, #PB_Ignore, "Ar-S VISIONEUSE test ",#PB_Window_BorderLess) = 0
      End
  EndIf    

      
    SetWindowState(#ars, #PB_Window_Maximize)
      Lwin = WindowWidth(#ars, #PB_Window_InnerCoordinate)
      Hwin = WindowHeight(#ars, #PB_Window_InnerCoordinate)
      Debug "fenêtre : " + Str(Lwin) + " x " +Str(Hwin)
       
       PanelGadget(#Panel, 0, 0, Lwin, Hwin)
       LCanvas = (GadgetWidth(#panel)) 
       HCanvas =  GadgetHeight(#panel) 
       
       ; Tab #1
       AddGadgetItem(#Panel, -1, "Choix du dossier")
            ExplorerComboGadget(#ROOT,0,0, Lexp,25, "F:\",#PB_Explorer_DrivesOnly)
           ExplorerListGadget(#EXP, 0, 25, Lexp, Hwin-25, IMGpath.s , #PB_Explorer_NoFiles |#PB_Explorer_AutoSort|#PB_Explorer_FullRowSelect|#PB_Explorer_GridLines)
           RepEnCours.s = GetGadgetText(#EXP)
           Debug "RepEnCours : " + RepEnCours
            CanvasGadget(#CANVAS, Lexp, 0, LCanvas-Lexp, Hcanvas)
        
      CloseGadgetList()

       AddKeyboardShortcut(#ARS, #PB_Shortcut_Escape, #TOUCHE_ESC)   
       AddWindowTimer(#ARS, #T, 50)
           

; --------------------------------------------------------------------------------------------
; ----------- BOUCLE ------------ PRINCIPALE
; --------------------------------------------------------------------------------------------
While(1)
      
      Event = WindowEvent() 
      EventType   = #Null  ; On ne sait pas encore 
	EventGadget = #Null  ; On ne sait pas encore 
	
	
      If Event
      
            Select Event
                  ; --------------------------------------------------------------------------------------------
                  ; ----------- EVENT ------------ WINDOW + dbleclic
                  ; --------------------------------------------------------------------------------------------
                  
                Case #PB_Event_LeftDoubleClick
                  Debug "double clic dans fenetre"
                        
                  ; --------------------------------------------------------------------------------------------
                  ; ----------- EVENT ------------  GADGETS
                  ; --------------------------------------------------------------------------------------------
                  Case #PB_Event_Gadget
                        EventGadget = EventGadget() ; appel au bon moment
                  	EventType   = EventType()   ; appel au bon moment 
                   
                   
                        If EventGadget = #EXP And EventType = #PB_EventType_LeftDoubleClick
                  
                              Debug "DOUBLE CLIC !"
;                          
                        EndIf 
                  

                  
                         If EventGadget = #ROOT
                  
                              OldROOT.s = GetGadgetText(#ROOT)
                                    If Left(GetGadgetText(#EXP),1) <> Left(GetGadgetText(#ROOT),1)
                                          SetGadgetText(#EXP, GetGadgetText(#ROOT))
                                    EndIf
                              
                         EndIf                 
                  
                  ; --------------------------------------------------------------------------------------------
                  ; ----------- EVENT ------------ MENU (raccourcis clavier)
                  ; --------------------------------------------------------------------------------------------
                  Case #PB_Event_Menu
                        Select EventMenu()
                              Case #TOUCHE_ESC
                              
                                    Quite = 1
                                    Break
                        EndSelect           
                       
            EndSelect
      EndIf 

Wend



RemoveKeyboardShortcut(#ARS, #TOUCHE_ESC)
CloseWindow(#ARS)
End
;
;}
Fuseau horaire sur UTC+01:00
Page 2 sur 3

Développé par phpBB® Forum Software © phpBB Limited

Traduction française officielle © Qiaeru