Wx :: perl :: virtualtreectrl construir un control de árbol a pedido
Descargar ahora

Wx :: perl :: virtualtreectrl Clasificación y resumen

Wx :: perl :: virtualtreectrl Etiquetas

control Módulo perl Árbol perla control de árbol

Wx :: perl :: virtualtreectrl Descripción

Construir un control de árbol a pedido WX :: Perl :: VirtualTreectrl es un módulo Perl que implementa un árbol como el WX :: Treectrl, excepto que lliva sus artículos dinámicamente cuando se expanden los nodos en el árbol. Puede preferir este control sobre el control de árbol estándar cuando se está relatando su árbol desde una fuente remota, como una base de datos, o cuando su árbol es muy grande. Este módulo implementa la misma interfaz que un WX estándar :: Treectrl.Synopsis usa wx :: Perl :: VirtualTreectrl 'Evt_populate_tree_item'; My $ TREA = NUEVO WX :: PERL :: VirtualTreectrl ($ TREA_CTRL); Evt_populate_tree_item ($ yo, $ árbol, addchildren); My $ root = $ árbol-> Addroot ($ nombre, $ datos); $ árbol-> expandir ($ raíz); Sub Pedchildren {My ($ Self, $ event) = @_; My $ TREA = $ EVENT-> getEventObject; My $ item = $ event-> getitem; My $ item_data = $ TREE-> Getpldata ($ artículo); if ($ TREE-> GetChildTreencount ($ artículo, 0)) {# Actualizar a los niños existentes ... mi ($ hijo, $ cookie) = $ árbol-> getfirstchild ($ artículo); mientras ($ hijo $ hijo-> isok) {My $ Child_Data = $ Tree-> GetPldata ($ hijo); # Sincronizar las eliminaciones if (Child_was_Deleted ($ Child_Data)) {$ TREE-> Eliminar ($ hijo); } ($ hijo, $ cookie) = $ árbol-> getNextChild ($ hijo, $ cookie); }} otra cosa {# agregue niños por primera vez mi @child_data = caro_process_to_get_children ($ item_data); foreach (@child_data) {My $ Child = $ Tree-> Apenditem ($ artículo, $ _-> {nombre}); # Haz que el artículo sea expandible si es una carpeta $ árbol-> setitemhaschildren ($ hijo, 1) si ...; }}} Requisitos: · Perl

Wx :: perl :: virtualtreectrl Software relacionado