ExamineDraggedItems()

Syntax

ExamineDraggedItems()

Start to examine the dragged items with the functions NextDraggedItem() and DraggedItemIndex(). It has to be used after a #PB_Event_DragStart. This function is supported for the following gadgets: ExplorerListGadget(), ExplorerTreeGadget(), ListIconGadget(), ListViewGadget() and TreeGadget().

Return value

None.

Example

  Procedure DragStartHandler()
    
    ; Start to examine the dragged items. Have to be after a #PB_EventType_DragStart event
    ;
    ExamineDraggedItems()
    
    ; Iterate over the dragged items
    ;
    While NextDraggedItem()
      Debug "Dragged item: " + GetGadgetText(0) + GetGadgetItemText(0, DraggedItemIndex())
    Wend
  EndProcedure

  ; Select some files or folders and drag them to another application
  ;
  If OpenWindow(0, 200, 200, 400, 400, "Drag & Drop")
    ExplorerListGadget(0, 10, 10, 380, 380, GetHomeDirectory(), #PB_Explorer_MultiSelect)
    
    ; BindGadgetEvent() is required to handle the drag start event
    BindGadgetEvent(0, @DragStartHandler(), #PB_EventType_DragStart)
    
    Repeat
      Event = WaitWindowEvent()  
    Until Event = #PB_Event_CloseWindow
  EndIf

See Also

NextDraggedItem(), DraggedItemIndex()

Supported OS

All