Drag&Drop »»» auch für Anfänger geeignet (mit Anleitung)

[AND51]

> dass wenn sich z.B. ein für Drag & Drop vorgesehenes ListIconGadget innerhalb eines FrameGadgets befindet die Message den Empfänger nicht erreicht.
Das liegt daran, dass ein Frame3DGadget() keine Einträge empfangen kann. Das scheinst du aber hinzukriegen, indem du
> mit SetParent_() das FrameGadget als Parent des ListIconGadget zu setzen.
Interessant!

Wäre es in DOCs auch akzeptabel für dich ? Die AboutBox wollte ich eigentlich nicht mehr weiter auffüllen

Das kannst du machen, wie du willst! (Ist ja dein Projekt, nicht meines).

[ts-soft]

Hat einer meinen Code mal mit Frame3D Gadget getestet?
Funktioniert ohne Änderungen
Entweder erst das ListIcon erstellen oder das Frame3D als Dropclienten
angeben. Warum immer so kompliziert?

[dysti]

Wieso funktioniert das hier nicht?

Code: Alles auswählen

Procedure OpenWindow_Window_0()
  If OpenWindow(0, 585, 213, 283, 234, "#Window_0", #PB_Window_SystemMenu|#PB_Window_SizeGadget|#PB_Window_MinimizeGadget|#PB_Window_TitleBar)
    If CreateGadgetList(WindowID(0))
      ListIconGadget(0, 15, 10, 255, 210, "Gadget_0", 100, #PB_ListIcon_AlwaysShowSelection|#PB_ListIcon_GridLines|#PB_ListIcon_FullRowSelect)
    EndIf
  EndIf
EndProcedure

Procedure OpenWindow_Window_1()
  If OpenWindow(1, 0, 213, 283, 234, "#Window_1", #PB_Window_SystemMenu|#PB_Window_SizeGadget|#PB_Window_MinimizeGadget|#PB_Window_TitleBar)
    If CreateGadgetList(WindowID(1))
      ListIconGadget(1, 15, 10, 255, 210, "Gadget_1", 100, #PB_ListIcon_AlwaysShowSelection|#PB_ListIcon_GridLines|#PB_ListIcon_FullRowSelect)
    EndIf
  EndIf
EndProcedure
OpenWindow_Window_1()
OpenWindow_Window_0()
DragAcceptFiles_(GadgetID(0), 1)
AddGadgetItem (1, -1,"Test1")
AddGadgetItem (0, -1,"Test")
Define.l Buffer = AllocateMemory(1000)
Define *DropHandle

Repeat
  Event = WaitWindowEvent()
  Select Event
 
    Case #WM_DROPFILES
      *DropHandle = EventwParam()
      If *DropHandle
        DragQueryFile_(*DropHandle, 0, Buffer, 1000)
        DragFinish_(*DropHandle)
        Debug PeekS(Buffer)
      EndIf
     
     
    Case #PB_Event_Gadget
      EventGadget = EventGadget()
      EventType = EventType()
      If EventGadget = 0
      EndIf

    Case #PB_Event_CloseWindow
      EventWindow = EventWindow()
      If EventWindow = 0
        Break
      EndIf
  EndSelect
ForEver

FreeMemory(Buffer)