PureBoard

Verfasst: **08.05.2009 19:44**

Hallo,

ich habe ein Window mit einem ExplorerListGadget erstellt.
Das funktioniert auch alles super, doch es fehlt der Eintrag:

Verknüpfung [..] zum übergeordneten Ordner
Könnte mal jemand schauen, woran das liegt? Wäre toll.

Hier ist der Code:

Code: Alles auswählen

;- Window Constants
;
Enumeration
  #main
EndEnumeration

;- Gadget Constants
;
Enumeration
  #ExplorerTree0
EndEnumeration

Procedure Open_main()
  If OpenWindow(#main, 216, 0, 600, 250, "StartFenster",  #PB_Window_SystemMenu | #PB_Window_SizeGadget | #PB_Window_TitleBar | #PB_Window_ScreenCentered | #PB_Window_WindowCentered )
      SetWindowColor(#main,RGB(235,234,219)) 
      ExplorerListGadget(#ExplorerTree0, 20, 20, 450, 160, "*.xls",#PB_Explorer_AutoSort|#PB_EventType_LeftDoubleClick|#PB_Explorer_NoSort|#PB_Explorer_BorderLess)
      SetGadgetColor(#ExplorerTree0, #PB_Gadget_BackColor, RGB(235,234,219))
      RemoveGadgetColumn(#ExplorerTree0, 2)
      RemoveGadgetColumn(#ExplorerTree0, 1)
      SendMessage_(GadgetID(#ExplorerTree0), #LVM_SETCOLUMNWIDTH, column, #LVSCW_AUTOSIZE_USEHEADER)
  EndIf
  Repeat : Until WaitWindowEvent() = #PB_Event_CloseWindow
EndProcedure

Open_main()

Vielen Dank für Eure Hilfe.

Gruß
Michael

Verfasst: **08.05.2009 19:50**

Liegt am
"#PB_EventType_LeftDoubleClick"
Was auch immer ein Eventtype bei den Gadgetflags zu suchen hat...

Hätte man aber auch selber rausfinden können indem man die Flags einzeln rausnimmt und sich das Ergebnis anschaut...

Verfasst: **08.05.2009 19:55**

Hallo D@nte,

D@nte hat geschrieben:Liegt am
"#PB_EventType_LeftDoubleClick"
Was auch immer ein Eventtype bei den Gadgetflags zu suchen hat...

Bin leider Anfänger und dachte, das dieses Eventtype dort angegeben werden muss, damit ich einen Doppelklick ermitteln kann.

Kommt nicht wieder vor.

Vielen Dank für Deine Hilfe.

Gruß
Michael

Verfasst: **08.05.2009 19:58**

ein [F1] auf dem Befehl zeigt auch die Konstanten an, die als Flags verwendet
werden können

Verfasst: **08.05.2009 20:05**

Hallo Andesdaf,

Andesdaf hat geschrieben:ein [F1] auf dem Befehl zeigt auch die Konstanten an, die als Flags verwendet
werden können

Hatte ja auch in der Hilfe nachgesehen, aber... wohl nicht richtig gelesen oder verstanden.

Hatte das hier in der Hilfe gefunden:

ExplorerListGadget() unterstützt folgende Ereignisse, die von EventType() mitgeteilt werden:

#PB_EventType_LeftDoubleClick : Der Anwender hat einen Eintrag mit der linken Maustaste doppelt angeklickt.

Bin dann davon ausgegangen, das ich das dort anfügen muss.

Nochmals vielen Dank.

Gruß
Michael

Verfasst: **08.05.2009 20:16**

falsch verstehen ist auch was anderes als nicht nachgucken

Verfasst: **08.05.2009 20:18**

Andesdaf hat geschrieben:ein [F1] auf dem Befehl zeigt auch die Konstanten an, die als Flags verwendet
werden können

Was nützt das alles, wenns nicht funktioniert?
Ich bekomme keinen Doppelklick, also ist die Hilfe wohl eher falsch

Code: Alles auswählen

;- Window Constants
;
Enumeration
  #main
EndEnumeration

;- Gadget Constants
;
Enumeration
  #ExplorerTree0
EndEnumeration

Procedure Open_main()
  Protected Event
  
  If OpenWindow(#main, 216, 0, 600, 250, "StartFenster",  #PB_Window_SystemMenu | #PB_Window_SizeGadget | #PB_Window_TitleBar | #PB_Window_ScreenCentered | #PB_Window_WindowCentered )
      SetWindowColor(#main,RGB(235,234,219))
      ExplorerListGadget(#ExplorerTree0, 20, 20, 450, 160, "*.xls",#PB_Explorer_AutoSort|#PB_Explorer_NoSort|#PB_Explorer_BorderLess)
      SetGadgetColor(#ExplorerTree0, #PB_Gadget_BackColor, RGB(235,234,219))
      RemoveGadgetColumn(#ExplorerTree0, 2)
      RemoveGadgetColumn(#ExplorerTree0, 1)
      SendMessage_(GadgetID(#ExplorerTree0), #LVM_SETCOLUMNWIDTH, column, #LVSCW_AUTOSIZE_USEHEADER)
  EndIf
  Repeat
    Event = WaitWindowEvent()
    
    Select Event
      Case #PB_Event_Gadget
        
        If EventGadget() = #ExplorerTree0

          Select EventType()
            Case #PB_EventType_LeftDoubleClick
              Debug "Doppelklick auf ExplorerListGadget"
          EndSelect
        EndIf
    EndSelect
  
  Until Event = #PB_Event_CloseWindow
EndProcedure

Open_main()

Verfasst: **08.05.2009 20:24**

k.A. wieso das nicht geht auch wenn es gehen soll...

Verfasst: **08.05.2009 20:27**

Andesdaf hat geschrieben:k.A. wieso das nicht geht auch wenn es gehen soll...

Keine Ahnung, warum es gehen sollte, wo das Event doch vom Gadget
gebraucht wird. Das reagiert doch von alleine auf Doppelklick und ändert
die Darstellung. Die Hilfe hat leider ExplorerList und ListIcon gleichgestellt,
sind sie aber nicht

Verfasst: **08.05.2009 20:30**

ts-soft hat geschrieben:Keine Ahnung, warum es gehen sollte, wo das Event doch vom Gadget
gebraucht wird. Das reagiert doch von alleine auf Doppelklick und ändert
die Darstellung.

hm, wer hat sich denn da die scheinbare Unterstützung ausgedacht?
Sollte man mal im Hilfethread erwähnen.

PureBoard

ExplorerListGadget - Verknüpfung [..] Ordner fehlt ??

ExplorerListGadget - Verknüpfung [..] Ordner fehlt ??