Soucis de double click

G-Rom · Message par **G-Rom** » dim. 16/juin/2013 10:26

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.

Ar-S · Message par **Ar-S** » dim. 16/juin/2013 11:24

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)

G-Rom · Message par **G-Rom** » dim. 16/juin/2013 11:26

while [ CONDITION ]

Tant que 1 , on est dans while()
je le casse avec un break.

Ar-S · Message par **Ar-S** » dim. 16/juin/2013 11:31

G-Rom a écrit :
while [ CONDITION ]
Tant que 1 , on est dans while()
je le casse avec un break.

Ok

Ar-S · Message par **Ar-S** » dim. 16/juin/2013 11:45

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

G-Rom · Message par **G-Rom** » dim. 16/juin/2013 11:49

Select EvWIN

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

La constante n'est pas bonne. utilise la bonne

Ar-S · Message par **Ar-S** » dim. 16/juin/2013 12:19

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

MLD · Message par **MLD** » dim. 16/juin/2013 12:43

@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

G-Rom · Message par **G-Rom** » dim. 16/juin/2013 12:45

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

Ar-S · Message par **Ar-S** » dim. 16/juin/2013 12:47

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

Ar-S · Message par **Ar-S** » dim. 16/juin/2013 12:51

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 !

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.

MLD · Message par **MLD** » dim. 16/juin/2013 12:56

c'est moi qui faut mettre au lit

Ar-S · Message par **Ar-S** » dim. 16/juin/2013 13:05

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.

MLD · Message par **MLD** » dim. 16/juin/2013 13:14

Oui Oui tu as raison. Je retourne me coucher

Ar-S · Message par **Ar-S** » lun. 17/juin/2013 14:28

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
;
;}

PureBasic

Soucis de double click

Re: Soucis de double click

Re: Soucis de double click

Re: Soucis de double click

Re: Soucis de double click

Re: Soucis de double click

Re: Soucis de double click

Re: Soucis de double click

Re: Soucis de double click

Re: Soucis de double click

Re: Soucis de double click

Re: Soucis de double click

Re: Soucis de double click

Re: Soucis de double click

Re: Soucis de double click

Re: Soucis de double click