[*]Profan

Français

Jörg
Sellmeyer

je hatte cela Thema zwar Schonmal sur erledigt gestzt mais peut-être peux Roland là encore quoi faire, so dass cela Treeview-Conttol sich là quelque chose windowskonformer verhält.

Salut,

On peut un Treeview wunderbar avec qui clavier steuern. malheureusement venez cela mais pas im Programme à. qui Tastaturnavigation funktioniert zwar mais WaitInput wird pas durchbrochen.
très léger am Beispiel dans qui Aider nachzuvollziehen. je hab seulement cela "Print %clé,%message" eingefügt.
Treeview avec souris aktivieren: Werte volonté angezeigt
Weiter avec clavier: es passiert seulement encore quoi im Treeview

Kompilieren Marque Séparation

CLS
var hToolBmp& = create(«PCSI», 0, "TOOLBAR")
var hIL& = Créer("ImageList", 16, 16, hToolBmp&, rgb(192, 192, 192))
var hTV& = Créer("TreeView",%hwnd,hIL&,420,40,200,(height(%HWnd)-70))
DeleteObject hToolBmp&' wird pas plus nécessaire
imprimer "Profan-Kringel: ";ImageList("AddIcon", hIL&, create("hIcon", "A"));»
imprimer "Klassen: ";classof(hTV&);tab(24);classof(hIL&)
imprimer "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/En-tête (2)"
SetText hTV&, ProcEbene&,"Prozeduren (3)"
SetText hTV&, StrukturEbene&,"Strukturen/Klassen (4)"
SetText hTV&, KommentarEbene&,"Kommentare/Faltungen (99)"
TreeView("Select",hTV&, T6&)
imprimer "Anzahl:  ";GetCount(hTV&);tab(24);getCount(hIL&)
DrawIcon hIL&, 10, 420, 15
var ende% = 0
var item& = 0
usermessages Ord("p")

whilenot ende%

    waitinput
    Imprimer %clé,%message

    si %clé = 27

        ende% = 1

    elseif clicked(hTV&)

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

    endif

endwhile