[*]Profan

Deutsch

Jörg
Sellmeyer

Ich hatte das Thema zwar schonmal auf erledigt gestzt aber vielleicht kann Roland da noch was machen, so dass das Treeview-Conttol sich da etwas windowskonformer verhält.

Hallo,

Man kann ja ein Treeview wunderbar mit der Tastatur steuern. Leider kommt das aber nicht im Programm an. Die Tastaturnavigation funktioniert zwar aber WaitInput wird nicht durchbrochen.
Sehr leicht am Beispiel in der Hilfe nachzuvollziehen. Ich hab nur das "Print %key,%message" eingefügt.
Treeview mit Maus aktivieren: Werte werden angezeigt
Weiter mit Tastatur: es passiert nur noch was im Treeview

Kompilieren Markieren Separieren

CLS
var hToolBmp& = create("hPic", 0, "TOOLBAR")
var hIL& = Create("ImageList", 16, 16, hToolBmp&, rgb(192, 192, 192))
var hTV& = Create("TreeView",%hwnd,hIL&,420,40,200,(height(%HWnd)-70))
DeleteObject hToolBmp&' wird nicht mehr benötigt
print "Profan-Kringel: ";ImageList("AddIcon", hIL&, create("hIcon", "A"));""
print "Klassen: ";classof(hTV&);tab(24);classof(hIL&)
print "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/Header (2)"
SetText hTV&, ProcEbene&,"Prozeduren (3)"
SetText hTV&, StrukturEbene&,"Strukturen/Klassen (4)"
SetText hTV&, KommentarEbene&,"Kommentare/Faltungen (99)"
TreeView("Select",hTV&, T6&)
print "Anzahl:  ";GetCount(hTV&);tab(24);getCount(hIL&)
DrawIcon hIL&, 10, 420, 15
var ende% = 0
var item& = 0
usermessages Ord("p")

whilenot ende%

    waitinput
    Print %key,%message

    if %key = 27

        ende% = 1

    elseif clicked(hTV&)

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

    endif

endwhile