FoxPro Club Главная

Конференция Решения Фотоальбом Сайт М.Дроздова Статьи Файловый архив Книга Visual FoxPro 9.0 Русский Help для Visual FoxPro
Пользователей: 9268
Вход
Программа-построитель дерева из меню проекта

Программа берет файл *.MPR меню проекта, и заносит его структуру в таблицу. Эта таблица пригодна для прорисовки дерева в treeview контроле, что идет с примерами. На этой основе у меня работают права доступа к пунктам меню программы, тоесть назначение прав из работающего приложения.


 
Прислал: koskgb   Категория: Интерфейс

Сделайте оценку этого решения Плохо Удовлетворительно Так себе Хорошо Отлично Текущая оценка: (1.667) Вложение [35.14]kb
Дополнения пользователей
Программа-построитель дерева из меню проекта
[+][?]
Snick
22.10.07 14:18:55

Ну, что, можно только посмотреть форму, больше ничего - ошибки не хочется исправлять, попробуйте
запустить то, что здесь выложено, у себя.
koskgb
25.10.07 07:46:55

Ну, что, можно только посмотреть форму, больше ничего. Это у вас. А у нас все работает. SET DEFA
TO ? - каталог, куда положили все, что в архиве. А в нем еще и таблицы есть, с данными, что бы все
было понятно как работает. Форма не главное. Menustru.prg - это она строит структурированное
дерево из вашего *.mpr файла.
Короче, смотреть нужно лучше. А если будет просить классы, то дайте ей классы из каталога VFP.
Удачи.
Влад Колосов
28.10.07 13:37:30

Неужели нельзя было выложить полноценное решение, а не какой-то наборосок, в котором надо еще и
разбираться?
Форма не работает, какого-то индекса нехватает. Так что дерева не видно.
koskgb
01.11.07 07:24:57

test
koskgb
02.11.07 07:06:07

Это и есть готовое решение.Просто откройте форму в среде VFP, запустите форму, нажмите на кнопку
LoadStru. Работа по дереву - двойной клик. Все. Удачи.
346
31.01.08 09:47:36

Форма не работает!
открывая use (dostfile) подразумевается что таблица с индексом но индекса нет! 
IF TAGCOUNT()>0
 set order to tag name_u
ELSE
 =MESSAGEBOX('файл не индексиpован!',16,'индекс')
ENDIF
в init формы ищем
IF TYPE("THIS.oleTree") # "O" OR ISNULL(THIS.oleTree)
 RETURN .F.
ENDIF
но его тоже нет.
[Дополнить]



© 2000-2017 Fox Club 
При размещении любых материалов с сайта на других ресурсах- прямая ссылка на www.foxclub.ru обязательна
Яндекс.Метрика