Drag and Drop
BlitzMax Forums/BlitzMax Programming/Drag and Drop
| ||
| Hi I get a problem with drag and drop. It is possible to get each drag n dropped files one by one ? Actually i'm using this, the problem is that the returned information is ony one string. Is there a command to extract each filename ? Thanks |
| ||
SuperStrict
Local Window:TGadget = CreateWindow("Launcher", 40, 40, 320, 240, ,WINDOW_TITLEBAR | WINDOW_RESIZABLE | WINDOW_ACCEPTFILES)
While True
WaitEvent()
Select EventID()
Case EVENT_WINDOWCLOSE
End
Case EVENT_WINDOWACCEPT
If EventSource() = Window
Local files:String[] = (EventExtra().ToString()).Split("~n")
For Local file:String = EachIn files
Print "Filax Ficher: ~q"+file+"~q"
Next
'Useful code here
EndIf
End Select
Wend
End;) |
| ||
As fredborg said, although I thought I'd mention you don't need to create a variable for the separate array of files if you are just looping through them... If I remember correctly, the (EventExtra().ToString()).Split("~n") will only be evaluated once for the loop, so will be just as fast. I.e.SuperStrict
Local Window:TGadget = CreateWindow("Launcher", 40, 40, 320, 240, ,WINDOW_TITLEBAR | WINDOW_RESIZABLE | WINDOW_ACCEPTFILES)
Repeat
Select WaitEvent()
Case EVENT_WINDOWCLOSE, EVENT_APPTERMINATE;End
Case EVENT_WINDOWACCEPT
If EventSource() = Window Then
For Local strFile$ = EachIn (EventExtra().ToString()).Split("~n")
Print "Filax Ficher: ~q" + strFile + "~q"
Next
EndIf
End Select
Forever |
| ||
| Many thanks :) |
   |