Page 2 sur 2

Re: Drag et Drop ListWiew vers Editor

Publié : lun. 06/mars/2017 1:41
par nico
Supprimer by me.

Re: Drag et Drop ListWiew vers Editor

Publié : lun. 06/mars/2017 2:00
par Shadow
Merci à vous deux, j'ai peine à comprendre et je suis comfus :?
Sur ton code Falsam, pas de EnableGadgetDrop :?: :?: :?:
Et ça fonctionne 8O

Sur celui de nico ya bien un EnableGadgetDrop
et ça marche aussi !

Alors merci beaucoup à vous deux 8)

Re: Drag et Drop ListWiew vers Editor

Publié : lun. 06/mars/2017 2:14
par nico
Le code de Falsam est le bon, je n'y avais pas fait attention, il était tellement court que je croyais qu'il manquait quelque chose.

et ta réflexion Shadow était pertinente, en effet le drag drop est activé par défaut sur le gadget editeur d'où le problème rencontré en l'activant, en croyant bien faire, cette spécificité devrait être spécifié dans l'aide.

En reprenant ton code, ça donne ça:

Code : Tout sélectionner

Enumeration 1
  #Fenetre
  #ListView
  #Editor
EndEnumeration


If OpenWindow(#Fenetre, 327, 177, 500, 300, "Exemple Drag et Drop ListeWiew vers Editor Gadget...",  #PB_Window_SystemMenu | #PB_Window_MinimizeGadget | #PB_Window_ScreenCentered | #PB_Window_TitleBar)
  EditorGadget(#Editor, 2, 2, 496, 147)
  ListViewGadget(#ListView, 2, 151, 496, 147)
  
  For I = 0 To 5
    AddGadgetItem(#ListView, -1, "Élément n°" + Str(I))
  Next
  
  Repeat
    Event = WaitWindowEvent()
    
    Select Event 
      Case #PB_Event_Gadget
        Select EventGadget() 
            
          Case #ListView
            If EventType() = #PB_EventType_DragStart
              DragText(GetGadgetItemText(#ListView, GetGadgetState(#ListView)), #PB_Drag_Copy)
            EndIf
            
        EndSelect
        
        
      Case #PB_Event_GadgetDrop
        Select EventGadget() 
          Case #Editor
            SendMessage_(GadgetID(#Editor), #EM_REPLACESEL, 1, EventDropText())
            
        EndSelect
        
    EndSelect   
  Until Event = #PB_Event_CloseWindow
EndIf

Re: Drag et Drop ListWiew vers Editor

Publié : lun. 06/mars/2017 3:19
par Shadow
Je vous remercie beaucoup à vous deux 8)
et ta réflexion Shadow était pertinente, en effet le drag drop est activé par défaut sur le gadget editeur d'où le problème rencontré en l'activant, en croyant bien faire, cette spécificité devrait être spécifié dans l'aide.
Je comprends, donc quoi, si mon programme à un EditorGadget ne pas utiliser la fonction: EnableGadgetDrop ?
Oui se serais pertinent de le noté dans l'aide :)