Mehrere Dateien per Drag and Drop
Verfasst: 15.08.2008 16:47
Hi.. ich programmiere zur Zeit nen kleinen Musikplayer in der Art wie Winamp nur weit nicht so komplex versteht sich...Nunja ich bin bei dem Playlist Editor angelangt und habe mir mal ein Beispiel aus dem Code Archiv angeschaut... Ich habs ein bisschen abgeändert und jetzt frage ich mich wie man denn mehrere Dateien per Drag and Drop in das Gadget ziehen kann...
Hier mal mein Source...
Hoffe ihr könnt mir helfen...
Danke im Vorraus
Fox
Hier mal mein Source...
Code: Alles auswählen
Enumeration
#PlaylistEditor
EndEnumeration
;- Gadget Constants
;
Enumeration
#Playlist
#Offnen
#Speichern
EndEnumeration
#BufferLength = 1000
#MEM_DROPFILES = 10000
*Buffer = AllocateMemory(#BufferLength)
hWnd = OpenWindow(#PlaylistEditor, 415, 85, 440, 558, "Playlist Editor", #PB_Window_SystemMenu | #PB_Window_SizeGadget | #PB_Window_TitleBar )
If CreateGadgetList(WindowID(#PlaylistEditor))
If hWnd
DragAcceptFiles_(WindowID(#PlaylistEditor), 1)
ListViewGadget(#Playlist, 5, 5, 430, 515)
ButtonGadget(#Offnen, 15, 530, 95, 25, "Öffnen")
ButtonGadget(#Speichern, 130, 530, 95, 25, "Speichern")
SetGadgetColor(#Playlist, #PB_Gadget_BackColor,$000000)
SetGadgetColor(#Playlist, #PB_Gadget_FrontColor,RGB(0,255,0))
Repeat
Event= WaitWindowEvent()
Select Event
Case #Offnen
OpenFileRequester("Öffnen","Playlist.dat","*.*",0)
Case #Speichern
SaveFileRequester("Speichern","Playlist.dat","*.*",0)
Case #PB_Event_CloseWindow
Quit = 1
Case #WM_DROPFILES
*DropHandle = EventwParam()
*DropHandle
If *DropHandle
NbDroppedFiles = DragQueryFile_ (*DropHandle, $FFFFFFFF, *Buffer, #BufferLength)
DragQueryFile_(*DropHandle, k, *Buffer, #BufferLength)
DragFinish_(*DropHandle)
File$=PeekS(*Buffer)
AddGadgetItem(#Playlist, -1, File$)
EndIf
EndSelect
Until Quit = 1
EndIf
End
EndIfHoffe ihr könnt mir helfen...
Danke im Vorraus
Fox
... Danke euch allen 