ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Класс и сохранение формы...
1 сообщений из 1, страница 1 из 1
Класс и сохранение формы...
    #34298997
IgorProgrammer
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
IgorProgrammer
Гость
Лис 9
Вин 2000

Создал свой класс(vcx) в котором есть формы текст-боксы и т.д.
На основе этих компонент создаю свою форму...
У некоторых компонент есть свойства которые надо изменитЪ...

1) Можно ли как-то программно достучатЪся к обЪекту формы на стадии Modify Form что б в зависимости от условий поменять некоторые свойства(изменение в самом классе не подходит так как у каждой компоненты на форме например порядковый номер свой...)

Не хотелось бы открывать форму как use my_form.scx in 0
и мучатЪся с перечнем свойств меняя их...

2) При выгрузке формы работает сохранение расположения формы и ее объектов.
Если при инстале проги поставить на старое место, то добавленого объекта в форму нет в файле сохранения(файл-пример прилагается)
можно ли как-то организовать перед построением exe
Как у меня добавляются все объекты проекта
класс _proekt Метод BeforeBuild:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
LPARAMETERS cOutputName, nBuildAction, lRebuildAll, lShowErrors, lBuildNewGuids
LOCAL my_error, my_file, my_oFile
m.my_error = ON("ERROR")
IF USED('_spis_file')
	USE IN _spis_file
ENDIF
CREATE TABLE .\DATA\_spis_file FREE (name C( 30 ), Type C( 1 ), Descript C( 5 ))
INDEX ON name TAG name OF .\DATA\_spis_file
INDEX ON Type TAG Type OF .\DATA\_spis_file
INDEX ON Descript TAG Descript OF .\DATA\_spis_file
ON ERROR m.my_a_error_est= 1 
WITH Application.ActiveProject
	m.my_file = .Files.Add('.\DATA\_spis_file.dbf')
	.Files.Item[.Files.Count].Exclude=.F.
	FOR EACH m.my_oFile IN .Files
		m.my_file = RIGHT(m.my_oFile.Name,LEN(m.my_oFile.Name)-RAT('\',m.my_oFile.Name))
		INSERT INTO _spis_file(name,Type) VALUES (my_file,m.my_oFile.Type)
	ENDFOR
ENDWITH
USE IN _spis_file
ON ERROR &my_error.
класс _proekt Метод AfterBuild:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
LPARAMETERS nError
IF USED('_spis_file')
	USE IN _spis_file
ENDIF
m.my_error = ON("ERROR")
ON ERROR m.my_a_error_est= 1 
WITH Application.ActiveProject
	FOR EACH m.my_oFile IN .Files
		m.my_file = RIGHT(m.my_oFile.Name,LEN(m.my_oFile.Name)-RAT('\',m.my_oFile.Name))
		IF UPPER(m.my_file)='_SPIS_FILE.DBF'
			m.my_oFile.Remove
		ENDIF
	ENDFOR
ENDWITH
ON ERROR &my_error.
в каждую форму добавлять невидимый компонент листБокс с перечнем объектов формы и под-Объектов->Объектов и при не совпадении не запускать прогу восстановления расположения...
Сохранять количество компонент ControlCount не подходит так-как может быть замена одной компоненты на другую... Надо полное сравнение (названия,класса) объекта

Заранее сенкс
...
Рейтинг: 0 / 0
01.02.2007, 13:16
| Ответить | Цитировать | Написать  
1 сообщений из 1, страница 1 из 1
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Класс и сохранение формы...
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=41&msg=34298997&tid=1589959]:
 0ms
get settings:
 9ms
get forum list:
 23ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 88ms
get topic data:
 14ms
get forum data:
 4ms
get page messages:
 40ms
get tp. blocked users:
 2ms
others: 245ms
total:  433ms
созд. / загр.: 433ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]