WX :: Perl :: Virtualtreectrl Construa um controle de árvore sob demanda
Baixe Agora

WX :: Perl :: Virtualtreectrl Classificação e resumo

WX :: Perl :: Virtualtreectrl Tag

ao controle Módulo Perl. Árvore perl Controle de árvore

WX :: Perl :: Virtualtreectrl Descrição

Construa um controle de árvore sob demanda WX :: Perl :: VirtualTreectRL é um módulo Perl que implementa uma árvore como o WX :: Treectrl, exceto que ele preenche seus itens dinamicamente quando os nós na árvore são expandidos. Você pode preferir este controle sobre o controle padrão da árvore quando estiver preenchendo sua árvore de uma fonte remota, como um banco de dados, ou quando sua árvore é muito grande. Este módulo implementa a mesma interface como um padrão WX :: Treectrl.synopsis usa WX :: Perl :: VirtualTreecTrl 'evt_populate_tree_item'; Minha $ Tree = New WX :: Perl :: VirtualTreectRL ($ tree_ctrl); Evt_populate_tree_item ($ self, $ tree, addChardren); Minha $ Root = $ Tree-> Adroot ($ Nome, $ Data); $ tree-> expandir ($ raiz); Sub addChildren {My ($ Self, $ Event) = @_; minha $ tree = $ Event-> geteventobject; meu item $ item = $ Event-> getItem; meu $ Item_Data = $ tree-> getpldata ($ item); if ($ tree-> getchildrencount ($ item, 0)) {# Atualize as crianças existentes ... meu ($ filho, $ cookie) = $ tree-> getfirstchild ($ item); Enquanto ($ Child $ Child-> Isok) {My $ Child_Data = $ tree-> getpldata ($ filho); # Sincronizar deletions se (child_was_deleted ($ child_data)) {$ tree-> delete ($ filho); } ($ filho, $ cookie) = $ tree-> getnextchild ($ filho, $ cookie); }} else {# Adicionar crianças pela primeira vez meu @child_data = caros_process_to_get_children ($ item_data); foreach (@child_data) {my $ Child = $ tree-> AppendiTem ($ item, $ _-> {nome}); # Faça o item expansível se for uma pasta $ tree-> SetItItemhasChildren ($ filho, 1) se ...; }}} Requisitos: · Perl.

WX :: Perl :: Virtualtreectrl Software Relacionado