Hallo,
gibt es in VO beim TreeView eine Methode zum Expandieren aller Nodes? In der Doku finde ich nichts und ExpandAll existiert nicht.
LG Franz
TreeView:ExpandAll()
Moderator: wriedmann
Re: TreeView:ExpandAll()
Hallo Franz,
das muss man selbst in die Hand nehmen:
Karl
das muss man selbst in die Hand nehmen:
Code: Select all
METHOD ExpandAll() CLASS MyTreeView
LOCAL oItem AS TreeViewItem
oItem := SELF:getRootItem()
SELF:expand(oItem:NameSym)
WHILE(TRUE)
oItem := SELF:GetNextItem(oItem)
IF oItem = NULL_OBJECT
EXIT
ENDIF
SELF:expand(oItem:NameSym)
ENDDO
RETURN SELF
METHOD GetNextItem(oStartItem) CLASS MyTreeView
LOCAL oItem AS TreeViewItem
oItem := SELF:GetFirstChildItem(oStartItem)
IF oItem = NULL_OBJECT
oItem := SELF:GetNextSiblingItem(oStartItem)
ENDIF
WHILE(oItem = NULL_OBJECT)
oStartItem := SELF:GetParentItem(oStartItem)
IF oStartItem = NULL_OBJECT
EXIT
ENDIF
oItem := SELF:GetNextSiblingItem(oStartItem)
ENDDO
RETURN oItem
Re: TreeView:ExpandAll()
Super, vielen Dank für den Code!
Hast du auch eine CollapseAll Methode?
LG
Hast du auch eine CollapseAll Methode?
LG
Re: TreeView:ExpandAll()
Logisch,
Code: Select all
METHOD CollapseAll(lRoot) CLASS MyTreeView
LOCAL oItem AS TreeViewItem
Default(@lRoot,FALSE)
oItem := SELF:getRootItem()
IF lRoot
SELF:Collapse(oItem:NameSym)
ENDIF
WHILE(TRUE)
oItem := SELF:GetNextItem(oItem)
IF oItem = NULL_OBJECT
EXIT
ENDIF
SELF:Collapse(oItem:NameSym)
ENDDO
RETURN SELF
Re: TreeView:ExpandAll()
Danke dir, ExpandAll funktioniert prima.
Bei CollapseAll bleibt mir vom obersten Node das erste Child offen.
Habe ich ev. den TreeView falsch aufgebaut?
--> Habe ich durch ein Anhängen von SELF:oDCTreeView:Collapse(SELF:oDCTreeView:GetFirstVisibleItem()) geschlossen
Bei CollapseAll bleibt mir vom obersten Node das erste Child offen.
Habe ich ev. den TreeView falsch aufgebaut?
--> Habe ich durch ein Anhängen von SELF:oDCTreeView:Collapse(SELF:oDCTreeView:GetFirstVisibleItem()) geschlossen
- Attachments
-
- Collapse.jpg (14.37 KiB) Viewed 617 times
-
- Expand.jpg (54.56 KiB) Viewed 617 times
Re: TreeView:ExpandAll()
Franz,
Ich habe bei meinen Treeviews immer ein Root-Element, an dem alle hängen. Daher funktioniert das bei mir wie gewollt. Evtl. klappt es bei dir auch, wenn du Default(@lRoot,True) verwendest oder True als Parameter übergibst...
Karl
Ich habe bei meinen Treeviews immer ein Root-Element, an dem alle hängen. Daher funktioniert das bei mir wie gewollt. Evtl. klappt es bei dir auch, wenn du Default(@lRoot,True) verwendest oder True als Parameter übergibst...
Karl
Re: TreeView:ExpandAll()
True funktioniert und schließt alle.
Danke dir!
LG Franz
Danke dir!
LG Franz