[*]Profan

Español

Jörg
Sellmeyer

Tuve el Thema zwar schonmal en hecho gestzt aber tal vez kann Roland como todavía qué hacer, así dass el Treeview-Conttol se como algo windowskonformer verhält.

¡Hola,

Se puede una Treeview wunderbar con el Tastatur steuern. Leider kommt pero no la en el Programa a. El Tastaturnavigation funktioniert zwar aber WaitInput no es durchbrochen.
Sehr ligeramente al Ejemplo en el Ayuda nachzuvollziehen. Yo sólo el "Print %key,%message" eingefügt.
Treeview con Ratón aktivieren: Werte voluntad adecuado
Weiter con Tastatur: lo passiert sólo todavía qué en el Treeview

Kompilieren Marca Separación

CLS
var hToolBmp& = create("HPIC", 0, "TOOLBAR")
var hIL& = Crear("ImageList", 16, 16, hToolBmp&, rgb(192, 192, 192))
var hTV& = Crear("TreeView",%hwnd,hIL&,420,40,200,(height(%HWnd)-70))
DeleteObject hToolBmp&' no es mehr benötigt
imprimir "Profan-Kringel: ";ImageList("AddIcon", hIL&, create("hIcon", "A"));""
imprimir "Klassen: ";classof(hTV&);tab(24);classof(hIL&)
imprimir "Handles: ";hTV&;tab(24);hIL&
var HeaderEbene& = TreeView("InsertItem",hTV&, 0,0,"Includes/Header")
var ProcEbene& = TreeView("InsertItem",hTV&, 0,1,"Prozeduren")
var StrukturEbene& = TreeView("InsertItem",hTV&, 0,2,"Strukturen/Klassen")
var KommentarEbene& = TreeView("InsertItem",hTV&, 0,3,"Kommentare/Faltungen")
TreeView("InsertItem",hTV&, HeaderEbene&,4,"Text 1")
TreeView("InsertItem",hTV&, ProcEbene&,5,"Text 2")
TreeView("InsertItem",hTV&, StrukturEbene&,6,"Text 3")
TreeView("InsertItem",hTV&, KommentarEbene&,7,"Text 4")
TreeView("InsertItem",hTV&, KommentarEbene&,52,"Text 5")
var T6& = TreeView("InsertItem",hTV&, KommentarEbene&,9,"Text 6")
TreeView("InsertItem",hTV&, T6&,10,"Text 7")
TreeView("SetItemImage",hTV&, KommentarEbene&,10)
TreeView("SetChildren",hTV&, Procebene&,1)
TreeView("SetChildren",hTV&, HeaderEbene&,1)
TreeView("SetChildren",hTV&, StrukturEbene&,1)
TreeView("SetChildren",hTV&, KommentarEbene&,1)
TreeView("SetChildren",hTV&, T6&,1)
TreeView("Expand",hTV&, ProcEbene&, 2)
SetText hTV&, HeaderEbene&,"Includes/Encabezamiento (2)"
SetText hTV&, ProcEbene&,"Prozeduren (3)"
SetText hTV&, StrukturEbene&,"Strukturen/Klassen (4)"
SetText hTV&, KommentarEbene&,"Kommentare/Faltungen (99)"
TreeView("Select",hTV&, T6&)
imprimir "Anzahl:  ";GetCount(hTV&);tab(24);getCount(hIL&)
DrawIcon hIL&, 10, 420, 15
var ende% = 0
var item& = 0
usermessages Ord("p")

whilenot ende%

    waitinput
    Imprimir %key,%mensaje

    if %key = 27

        ende% = 1

    elseif clicked(hTV&)

        item& = TreeView("GetSelected", hTV&)
        imprimir GetText $(hTV&, item&);".";GetText $(hTV&, TreeView("GetParent", hTV&, item&))

    endif

endwhile