Seite 2 von 2

Verfasst: 27.03.2005 00:07
von zigapeda
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?

Verfasst: 27.03.2005 10:38
von DarkDragon
pogi02 hat geschrieben:Hallo

Dein Case #pb_event_gadget ist falsch das heisst: Case #PB_EventGadget

das könnte der Fehler sein ;)
Nein, das ist er definitiv nicht ;) Ich habs mit #PB_Event_Gadget gelernt und habs immer so benutzt, aber nie #PB_EventGadget. Hier der beweis:

Code: Alles auswählen

Debug #PB_EventGadget
Debug #PB_Event_Gadget
[EDIT]
Achja:
http://forums.purebasic.com/english/vie ... hp?t=14553

Verfasst: 27.03.2005 11:12
von ts-soft
In der Hilfe wird nur #PB_Event_Gadget verwendet. Die andere Möglichkeit ist zwar Deklariert, aber nicht Dokumentiert

Verfasst: 27.03.2005 12:04
von zigapeda
es geht bei mir nicht egal ob #pb_event_gadget oder #pb_eventgadget

Verfasst: 27.03.2005 12:44
von DarkDragon
Funktioniert bei mir einwandtfrei:

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
Allerdings ja nur wenn man auf ne Datei klickt und nicht auf ein Ordner wie im englischen Forum ja schon beschrieben wurde ;) .

Verfasst: 27.03.2005 14:13
von zigapeda
es geht bei mir trotzdem nicht egal ob ich einen ordner oder datei anklicke.

Das einzigste was anderst ist das das gadget die ID 102 hat. kann das daran liegen das ist nämmlich der einzigste unterschied