J'ai chercher comment faire pour Drag et Drop un élément d'une ListWiew vers un Editor
mais j'ai du mal chercher, pas trouvé, alors j'ai essayé et avancé un peut mais je bloque:
Voici mon début de code, je dois pas être très loins:
Code : Tout sélectionner
Enumeration 1
#Fenetre
#ListView
#Editor
EndEnumeration
Procedure Ma_Fenetre()
If OpenWindow(#Fenetre, 327, 177, 500, 300, "Exemple Drag et Drop Liste wiew 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 = 1 To 6
AddGadgetItem(#ListView, -1, "Element n°" + Str(I))
Next
EnableGadgetDrop(#Editor, #PB_Drop_Text, #PB_Drag_Copy)
Repeat
Event = WaitWindowEvent(1)
EventWindow = EventWindow()
EventGadget = EventGadget()
EventMenu = EventMenu()
EventType = EventType()
Select Event
Case #PB_Event_Gadget
Select EventGadget
Case #ListView
TexteDragEtDropListView$ = GetGadgetItemText(#ListView, GetGadgetState(#ListView))
DragText(TexteDragEtDropListView$)
Case #Editor
EndSelect
Case #PB_Event_Menu
Select EventMenu
Case 0
EndSelect
Case #PB_Event_GadgetDrop
Case #PB_Event_CloseWindow
EndSelect
Until Event = #PB_Event_CloseWindow
EndIf
EndProcedure
Ma_Fenetre()