Ich möchte bitte Programme von einem ExplorerListGadget zu einem anderen ExplorerListGadget schieben.
Oder vom Windowsscreen in das ExplorerListGadget.
Beides funktioniert nicht.
Geht nur wenn ich das auf das Windowsfenster schiebe von beiden.
Danke.
Gruss
Code: Alles auswählen
Global files.s
Enumeration
#window_1
#expl_1
#expl_2
EndEnumeration
OpenWindow(#window_1, 1100, 5, 220, 400, "CPCT", #PB_Window_SystemMenu)
ExplorerListGadget(#expl_1, 10, 25, 200, 350, "d:\cygwin\home\pebi\pebi-cpct\*.txt;*.c;*.h")
SetGadgetAttribute(#expl_1,#PB_Explorer_DisplayMode,#PB_Explorer_List)
Repeat
Event = WaitWindowEvent()
Select Event
Case #PB_Event_Gadget
EventGadget = EventGadget()
EventType = EventType()
If EventGadget() = #expl_1 And EventType() = #PB_EventType_DragStart
Files = ""
For i = 0 To CountGadgetItems(#expl_1)-1
If GetGadgetItemState(#expl_1, i) & #PB_Explorer_Selected
Files + GetGadgetText(#expl_1) + GetGadgetItemText(#expl_1, i) + Chr(10)
EndIf
Next i
DragFiles(Files)
EndIf
If EventGadget() = #expl_2 And EventType() = #PB_EventType_DragStart
Files = ""
For i = 0 To CountGadgetItems(#expl_2)-1
If GetGadgetItemState(#expl_2, i) & #PB_Explorer_Selected
Files + GetGadgetText(#expl_2) + GetGadgetItemText(#expl_2, i) + Chr(10)
EndIf
Next i
DragFiles(Files)
EndIf
Case #PB_Event_CloseWindow
EventWindow = EventWindow()
If EventWindow = #Window_1
CloseWindow(#Window_1)
Break
EndIf
EndSelect
ReleaseDC_(WindowID(0), *DC)
ForEver