ExamineDraggedItems()

Syntaxe

ExamineDraggedItems()

Examine les éléments à déplacés.

Valeur de retour

Aucune.

Remarques

L'examen des éléments à déplacer nécessitera l'utilisation des fonctions NextDraggedItem() et DraggedItemIndex().
Il doit être utilisé après un #PB_Event_DragStart.

Cette fonction est prise en charge pour les gadgets suivants : ExplorerListGadget(), ExplorerTreeGadget(), ListIconGadget(), ListViewGadget() et TreeGadget().

Exemple

  Procedure DragStartHandler()
    
    ; Examine les éléments à déplacer. Doit être après un événement #PB_EventType_DragStart
    ;
    ExamineDraggedItems()
    
    ; Itérer les éléments à déplacer
    ;
    While NextDraggedItem()
      Debug "Eléments à déplacer : " + GetGadgetText(0) + GetGadgetItemText(0, DraggedItemIndex())
    Wend
  EndProcedure

  ; Sélectionner des fichiers ou des dossiers et faites-les glisser vers une autre application.
  ;
  If OpenWindow(0, 200, 200, 400, 400, "Cliquer-glisser")
    ExplorerListGadget(0, 10, 10, 380, 380, GetHomeDirectory(), #PB_Explorer_MultiSelect)
    
    ; BindGadgetEvent() est requis pour gérer l'événement de démarrage par glisser-déposer
    BindGadgetEvent(0, @DragStartHandler(), #PB_EventType_DragStart)
    
    Repeat
      Event = WaitWindowEvent()  
    Until Event = #PB_Event_CloseWindow
  EndIf

Voir aussi

NextDraggedItem(), DraggedItemIndex()

OS Supportés

Tous