Verfasst: 27.03.2005 00:07
leider nicht. Gibt es noch ein anderes beispiel das mir weiterhelfen könnte?DarkDragon hat geschrieben: http://freak.purearea.net/code/TreeDrag.html Vielleicht hilft dir das
leider nicht. Gibt es noch ein anderes beispiel das mir weiterhelfen könnte?DarkDragon hat geschrieben: http://freak.purearea.net/code/TreeDrag.html Vielleicht hilft dir das
Nein, das ist er definitiv nichtpogi02 hat geschrieben:Hallo
Dein Case #pb_event_gadget ist falsch das heisst: Case #PB_EventGadget
das könnte der Fehler sein
Code: Alles auswählen
Debug #PB_EventGadget
Debug #PB_Event_Gadget
Code: Alles auswählen
#WindowWidth = 640
#WindowHeight = 480
#WindowFlags = #PB_Window_MinimizeGadget | #PB_Window_TitleBar | #PB_Window_ScreenCentered | #PB_Window_SystemMenu
hWnd = OpenWindow(0, 0, 0, #WindowWidth, #WindowHeight, #WindowFlags, "Beispiel")
CreateGadgetList(WindowID())
ExplorerListGadget(0, 0, 0, #WindowWidth, #WindowHeight, "C:\")
Repeat
Select WaitWindowEvent()
Case #PB_Event_CloseWindow
Quit = 1
Case #pb_event_gadget
Select EventGadgetID()
Case 0
If EventType() = #PB_EventType_LeftDoubleClick
Debug "OK"
EndIf
EndSelect
EndSelect
Until Quit = 1
End