Wx :: Perl :: Virtualtreectrl بناء تحكم شجرة عند الطلب
التحميل الان

Wx :: Perl :: Virtualtreectrl الترتيب والملخص

Wx :: Perl :: Virtualtreectrl العلامات

مراقبة الوحدة النمطية بيرل شجرة بيرل شجرة التحكم

Wx :: Perl :: Virtualtreectrl وصف

بناء تحكم شجرة عند الطلب Wx :: Perl :: Virtualtreectrl هو وحدة بييرل تنفذ شجرة مثل Wx :: Treectrl إلا أنها تملأ عناصرها بشكل حيوي عند توسيع العقد في الشجرة. قد تفضل التحكم في هذا التحكم فوق التحكم في الأشجار القياسية عند ملء شجرةك من مصدر بعيد مثل قاعدة بيانات، أو عندما تكون الشجرة كبيرة جدا. هذه الوحدة النمطية تنفذ نفس الواجهة كمعيار WX :: Treectrl.syopsis استخدام WX :: PERL :: Virtualtreectrl 'EVT_POPENT_TREE_ITEM'؛ بلدي شجرة $ = جديد wx :: perl :: virtualtreectrl ($ tree_ctrl)؛ EVT_POPULE_TREE_ITEM ($ الذاتي، شجرة $، أدمير)؛ بلدي الجذر = شجرة $-> adroot (اسم $، بيانات $)؛ شجرة $-> توسيع (جذر $)؛ Sub Addchildren {My (P $ الذاتي، الحدث $) =_؛ بلدي شجرة $ = حدث $-> geteventobject؛ بلدي البند $ = الحدث $-> getitem؛ بلدي item_data $ = tree tree-> getpldata (البند $)؛ إذا ($ tree-> getchildrencount (البند $، 0)) {# تحديث الأطفال الموجودين ... بلدي (طفل $، كوكي $) = $ tree-> getfirstchild ($ البند)؛ في حين أن ($ الطفل $ الطفل-> ISOK) {My Liftata Life_Data = $ Tree-> GetPlData (US $)؛ # مزامنة الحذف إذا (child_was_dleted (child_data_data)) {$ tree-> حذف ($ الطفل)؛ } ($ الطفل، كوكي $) = $ Tree-> Getnextchild ($ الطفل، ملف تعريف الارتباط $)؛ }} {# إضافة الأطفال لأول مرة mychild_data = _process_process_to_get_children ($ item_data)؛ foreach (child_data) {{child_data) {بلدي الطفل = $ tree-> abdititem (item item، $ _-> {name})؛ # جعل البند قابلة للتوسيع إذا كان مجلد $ شجرة -> setitemhaschildren ($ الطفل، 1) إذا ...؛ } } } متطلبات: perl.

Wx :: Perl :: Virtualtreectrl برامج ذات صلة