автор
В приват Дата Сессион сбрасываются настройки.
Для многих настроек область видимости ограничивается сессией, что есть разумно и отмечено в докуметации.
Напишите класс, скажем Environment со следующей структурой:
методы:
- SetOptions
- SaveOptions
- RestoreOptions
плюс по свойству на каждую настройку, которую вы хотите устанавливать.
В общем так:
Метод SetOptions ():
1.
2.
3.
4.
5.
this.SaveOptions () && сохранение настроек
SET TALK OFF
SET NEAR OFF
SET EXACT OFF
*--етс...
Метод SaveOptions ():
1.
2.
3.
4.
this.cTalk = SET ("TALK")
this.cNear = SET ("NEAR")
this.cExact = SET ("EXACT")
Метод RestoreOptions ():
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
local leOption
if !IsNull (this.cTalk)
leOption = this.cTalk
SET TALK &leOption
endif
if !IsNull (this.cNear)
leOption = this.cNear
SET NEAR &leOption
endif
*--etc...
В методе Load формы:
1.
2.
3.
4.
5.
6.
7.
local loEnv as Object
loEnv = CreateObject ("Environment")
loEnv.SetOptions ()
*-- oEnv можно сохранить в свойстве формы (предположим свойство oEnv уже *-- сужествует):
Thisform.oEnv = loEnv
В методе Unload формы:
1.
2.
Thisform.oEnv.RestoreOptions ()
Thisform.oEnv = .NULL.
В подавляющем большинстве случаев в методе Unload достаточно просто написать:
поскольку с закрытием формы приватная сессия также закрывается.
Скачайте книжку про построение фреймворка на VFP. Там это все есть плюс много больше интересного и нужного.
Успехов.
