FoxClub Forums > Visual Foxpro, Foxpro for DOS > Альтернатива компоненту OleTree. Может кому понадобится. ::

• Войти

Альтернатива компоненту OleTree. Может кому понадобится.
Sergey_K Автор Сообщений: 15 Дата регистрации: 07.05.2018	Sergey_K 01.11.22 16:59:53 Доброго времени суток уважаемые коллеги. Ужа давно было желание перейти на VFP Advanced (x64), но никак не могли решить проблему с весьма популярным компонентом OleTree, из за проблем с файлами MSComct2.ocx и MSComCtl.ocx. Ответ (идею) подсмотрел в Task Pane. Генератор файла написал сам, так что не судите строго. Может кому понадобится. Смотрите вложение. Удачи.

Альтернатива компоненту OleTree. Может кому понадобится.

Sergey_K
Автор

Сообщений: 15
Дата регистрации: 07.05.2018

Sergey_K

01.11.22 16:59:53

Доброго времени суток уважаемые коллеги.
Ужа давно было желание перейти на VFP Advanced (x64), но никак не могли решить проблему с весьма популярным компонентом OleTree, из за проблем с файлами MSComct2.ocx и MSComCtl.ocx.
Ответ (идею) подсмотрел в Task Pane. Генератор файла написал сам, так что не судите строго.
Может кому понадобится. Смотрите вложение.
Удачи.

Re: Альтернатива компоненту OleTree. Может кому понадобится.
Taran Сообщений: 13624 Откуда: Красноярск Дата регистрации: 16.01.2008	Taran 01.11.22 17:18:52 Привет. main.prg Строка 30. m._Name_File="c:\program files (x86)\microsoft visual foxpro 9\samples\solution\solution.dbf" && Èìÿ ôàéëà äëÿ îáðàáîòêè ôîðìàò - solution.dbf Исправь на m._Name_File = _samples + "\solution\solution.dbf"

Re: Альтернатива компоненту OleTree. Может кому понадобится.
Taran Сообщений: 13624 Откуда: Красноярск Дата регистрации: 16.01.2008	Taran 01.11.22 17:24:13 Я маленько отошел от дел. Детально не смотрел. Но идея здравая и может быть полезная. Дерево работает, пункты выбираются. Спасибо! Исправлено 1 раз(а). Последнее : Taran, 01.11.22 17:25

Re: Альтернатива компоненту OleTree. Может кому понадобится.
AndyNigmatec Сообщений: 1573 Откуда: Волгоград Дата регистрации: 28.06.2015	AndyNigmatec 01.11.22 17:29:27 Для небольшого дерева давно сделал себе класс на только фоксе ... закинул класс Treeview из этой библ на форму, в ее ините заполнил это дерево из специально подготовленного курсора: IF USED('cFeatures') IF thisform.oTree.AddNodesFromCursor('cFeatures')>0 && все Ok thisform.oTree.SelectNodeExpand(3) thisform.oTree.SelectNodeExpand(this.nCurrentNode) ELSE IF thisform.oTree.NodesCount=0 && ваще ниче не импортировали ELSE && импортировали, но не все thisform.oTree.SelectFirstNode() ENDIF ENDIF ENDIF выглядит так: [attachment 36430 .png]

Re: Альтернатива компоненту OleTree. Может кому понадобится.

AndyNigmatec

Сообщений: 1573
Откуда: Волгоград
Дата регистрации: 28.06.2015

AndyNigmatec

01.11.22 17:29:27

Для небольшого дерева давно сделал себе класс на только фоксе ...

закинул класс Treeview из этой библ на форму, в ее ините заполнил это дерево из специально подготовленного курсора:


IF USED('cFeatures')
    IF thisform.oTree.AddNodesFromCursor('cFeatures')>0
        && все Ok
        thisform.oTree.SelectNodeExpand(3)
        thisform.oTree.SelectNodeExpand(this.nCurrentNode)
    ELSE 
        IF thisform.oTree.NodesCount=0
            && ваще ниче не импортировали
        ELSE
            && импортировали, но не все
            thisform.oTree.SelectFirstNode()
        ENDIF 
    ENDIF 
ENDIF

выглядит так:
[attachment 36430 .png]

Re: Альтернатива компоненту OleTree. Может кому понадобится.
Taran Сообщений: 13624 Откуда: Красноярск Дата регистрации: 16.01.2008	Taran 01.11.22 17:35:54 Ну так накидай демо-форму и проект и выложи красиво. Или 10 минут жалко?

Re: Альтернатива компоненту OleTree. Может кому понадобится.
AndyNigmatec Сообщений: 1573 Откуда: Волгоград Дата регистрации: 28.06.2015	AndyNigmatec 01.11.22 17:54:44 Taran Ну так накидай демо-форму и проект и выложи красиво. Или 10 минут жалко? Да не вопрос ...

Re: Альтернатива компоненту OleTree. Может кому понадобится.
Ydin Сообщений: 7648 Откуда: Киев Дата регистрации: 16.12.2005	Ydin 02.11.22 01:19:11 Решение Тарасова было (в решениях)

:: Список Форумов•Список тем•Поиск•Войти

Извините, только зарегистрированные пользователи могут оставлять сообщения в этом форуме.

On-line: 23 (Гостей: 23)