TreeView Problem?

Übersicht BlitzMax, BlitzMax NG Beginners-Corner

Neue Antwort erstellen

Mathias-Kwiatkowski

Betreff: TreeView Problem?

BeitragSa, März 17, 2007 21:22
Antworten mit Zitat
Benutzer-Profile anzeigen
hi ich habe ein problem wie kann ich ausgeben was sich in einem treeview befindet? also

Code: [AUSKLAPPEN]
Local window:TGadget=CreateWindow("My Window",50,50,240,240)
Local treeview:TGadget=CreateTreeView(0,0,200,200,window)

SetGadgetLayout treeview,2,2,2,2

Local root:TGadget=TreeViewRoot(treeview)

Local help:TGadget=AddTreeViewNode("Help",root)
AddTreeViewNode "topic 1",help
AddTreeViewNode "topic 2",help
AddTreeViewNode "topic 3",help

Local projects:TGadget=AddTreeViewNode("Projects",root)
AddTreeViewNode "project 1",projects
AddTreeViewNode("project 2",projects)
AddTreeViewNode("project 3 is a big waste of time",projects)

While WaitEvent()
   Print CurrentEvent.ToString()
   Select EventID()
      Case EVENT_WINDOWCLOSE
         End
   End Select
Wend


wenn ich nun auf "topic 1" klicke das er mir das auch über print ausgibt genauso wenn ich auf "project 1" das er mir ausgibt project 1

FOODy

BeitragSa, März 17, 2007 21:29
Antworten mit Zitat
Benutzer-Profile anzeigen
Meinst du jetzt sowas:
Code: [AUSKLAPPEN]
SuperStrict
Framework BRL.Win32MaxGUI
Import BRL.EventQueue

Local window:TGadget=CreateWindow("My Window",50,50,240,240)
Local treeview:TGadget=CreateTreeView(0,0,200,200,window)

SetGadgetLayout treeview,2,2,2,2

Local root:TGadget=TreeViewRoot(treeview)

Local help:TGadget=AddTreeViewNode("Help",root)
AddTreeViewNode "topic 1",help
AddTreeViewNode "topic 2",help
AddTreeViewNode "topic 3",help

Local projects:TGadget=AddTreeViewNode("Projects",root)
AddTreeViewNode "project 1",projects
AddTreeViewNode("project 2",projects)
AddTreeViewNode("project 3 is a big waste of time",projects)

While WaitEvent()
'   Print CurrentEvent.ToString()
   Select EventID()
'##########################
      Case EVENT_GADGETACTION
         If EventSource()=root
            Print SelectedTreeViewNode(root).GetText()
         EndIf
'##########################
      Case EVENT_WINDOWCLOSE
         End
   End Select
Wend


Wenn nein dann versteh ich deine Frage nicht :/



Gruß,
FOODy
BlitzMax + MaxGUI, 64-bit Arch Linux: Intel Core² E8500 | 8 GB Ram | GeForce GTX 460 · 1024 MB

Mathias-Kwiatkowski

BeitragSa, März 17, 2007 21:41
Antworten mit Zitat
Benutzer-Profile anzeigen
jo danke genau das meinte ich

Neue Antwort erstellen


Übersicht BlitzMax, BlitzMax NG Beginners-Corner

Gehe zu:

Powered by phpBB © 2001 - 2006, phpBB Group