Re: Drag et Drop ListWiew vers Editor
Publié : lun. 06/mars/2017 1:41
Supprimer by me.
Forums PureBasic - Français
http://forums.purebasic.com/french/
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
Je comprends, donc quoi, si mon programme à un EditorGadget ne pas utiliser la fonction: EnableGadgetDrop ?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.