QTreeView

QTreeView exibe uma lista hierárquica de itens.
Os itens são ordenados por seu índice.

QTreeView Tipo Interno

   TYPE TreeNodeType           ' ie. TreeView.Item(0).Text
     Text AS STRING
     ImageIndex AS INTEGER
     StateIndex AS INTEGER
     SelectedIndex AS INTEGER
     Count AS INTEGER          ' Apenas leitura
     Level AS INTEGER           ' Apenas leitura
     IsVisible AS INTEGER      ' Apenas leitura
     Handle AS INTEGER        ' Apenas leitura
     HasChildren AS INTEGER
     Selected AS INTEGER
   END TYPE

Propriedades de QTreeView

Campo	Tipo	R/W+	Padrão
Align	INTEGER	RW	alNone
BorderStyle	INTEGER	RW	bsSingle
Color	INTEGER	RW
Cursor	INTEGER	RW	crDefault
Enabled	INTEGER	RW	True
Font	QFONT	W
Handle	INTEGER	RW
Height	INTEGER	RW
HideSelection	INTEGER	RW	False
Hint	STRING	RW
Images	QIMAGELIST	W
Indent	INTEGER	RW	19
Item	ARRAY of TreeNodeType	RW
ItemCount	INTEGER	RW
ItemIndex	INTEGER	RW
Left	INTEGER	RW	0
Parent	QFORM/QPANEL/QTABCONTROL	W
PopupMenu	QPOPUPMENU	W
ReadOnly	INTEGER	RW	False
ShowButtons	INTEGER	RW	True
ShowHin	INTEGER	RW	False
ShowLines	INTEGER	RW	True
ShowRoot	INTEGER	RW	True
SortType	INTEGER	RW	stText
StateImages	QIMAGELIST	W
TabOrder	INTEGER	RW
Tag	INTEGER	RW
Top	INTEGER	RW	0
TopIndex	INTEGER	RW
Width	INTEGER	RW
Visible	INTEGER	RW	True

+ R = Propriedade de leitura W = Propriedade de escrita

Métodos de QTreeView

Método	Tipo	Descrição	Parâmetros
AddItems	SUBI	Adiciona itens ao treeview.	STRING, Infinite
AddChildItems	SUB (Index%, S1$, S2$, ...)	Adiciona item filho ao Index%.	Minimum 2
Clear	SUB	Limpa todos itens em treeview.	0
Collapse	SUB (Index%, Recurse%)	Colapsa nódulo.	2
DelItems	SUBI	Apaga itens do treeview.	INTEGER, Infinite
Expand	SUB (Index%, Recurse%)	Expande nódulo, revelando filhos.	2
FullCollapse	SUB	Colapsa todos os nódulos.	0
FullExpand	SUB	Expande todos os nódulos.	0
GetItemAt	FUNCTION (X%, Y%) AS LONG	Obtém índice do nódulo em X,Y.	2
InsertItem	SUB (Index%, String$)	Insere item em Index%.	2
LoadFromFile	SUB (Filename AS STRING)	Carrega itens de arquivo.	1
SaveToFile	SUB (Filename AS STRING)	Salva itens para arquivo.	1
Sort	SUB	Classifica todos itens de A-Z.	0

Eventos de QTreeView

Evento	Tipo	Ocorre quando...	Parâmetros
OnClick	VOID	TreeView foi clicado.	0
OnChange	SUB (Index%)	Seleção (não modificação) foi alterada de um item para outro.	1
OnChanging	SUB (Index%, AllowChange%)	Seleção está prestes a ser mudada.	2
OnCollapse	SUB (Index%)	Logo após um nódulo ser recolhido.	1
OnCollapsing	SUB (Index%, AllowChange%)	Um nódulo está prestes a ser recolhido.	2
OnDblClick	VOID	TreeView clicado duas vezes.	0
OnDeletion	SUB (Index%)	Um nódulo na árvore foi apagado.	1
OnEdited	SUB (Index%, BYREF S$)	Após o usuário editar um texto de um nó.	2
OnEditing	SUB (Index%, AllowEdit%)	O usuário começa a editar o texto.	2
OnExpand	SUB (Index%)	Após um nódulo ser expandido.	1
OnExpanding	SUB (Index%, AllowExpansion%)	Um nódulo está para ser expandido.	2
OnGetImageIndex	SUB (Index%)	O treeview procura o ImageIndex de um nódulo.	1
OnGetSelectedIndex	SUB (Index%)	O treeview procura o SelectedIndex de um nódulo.	1
OnKeyDown	SUB (Key AS Word, Shift AS INTEGER)	Tecla pressionada.	2
OnKeyPress	SUB (Key AS BYTE)	Usuário pressiona uma tecla.	1
OnKeyUp	SUB (Key AS Word, Shift AS INTEGER)	Usuário solta uma tecla.	2
OnMouseDown	SUB (Button%, X%, Y%, Shift%)	Botão do mouse pressionado.	4
OnMouseMove	SUB (X%, Y%, Shift%)	Mouse se move.	3
OnMouseUp	SUB (Button%, X%, Y%, Shift%)	Botão do mouse é solto.	4

QTreeView exemplo:

' Tree view exemplo, rastreamento quente através de itens

SUB TreeViewChange (Node AS INTEGER, AllowChange AS INTEGER, Sender AS QTREEVIEW)
    IF Node = 8 THEN AllowChange = 0
END SUB

SUB TreeViewMouseMove (X AS INTEGER, Y AS INTEGER, Shift AS INTEGER, Sender AS QTREEVIEW)
    I = Sender.GetItemAt(X,Y)
    IF I >= 0 THEN Sender.ItemIndex = I
END SUB

CREATE Form AS QFORM
    Center
    CREATE TreeView AS QTREEVIEW
        Align = 5
        AddItems "1","2","3"
        AddChildItems 0, "Sub 1", "Sub 2", "Sub 3"
        AddChildItems 4, "Sub 1", "Sub 2", "Sub 3"
        FullExpand
        OnChanging = TreeViewChange
        OnMouseMove = TreeViewMouseMove
    END CREATE
END CREATE

'-- Nenhum propósito real, apenas alterar todos os itens

FOR I = 0 TO TreeView.ItemCount-1
    TreeView.Item(I).Text = STR$(I)
NEXT

Form.ShowModal

Sinta-se à vontade para dar sugestões e fazer críticas construtivas.

Anterior Alto da página Página Inicial Próxima