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
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
Originalthread: [...] |
|