Подозреваю, что ты один такой в мире. Иначе бы сделалиgopstop2007 писал(а):Проблема в том, что мне не надо сохранять-восстанавливать параметры позиции окна, но надо сохранять локальные параметры. Может есть кто может донести это велосипедистам ?!
![iDied :idied:](./images/smilies/mouse.gif)
Модератор: Дед Пахом
Подозреваю, что ты один такой в мире. Иначе бы сделалиgopstop2007 писал(а):Проблема в том, что мне не надо сохранять-восстанавливать параметры позиции окна, но надо сохранять локальные параметры. Может есть кто может донести это велосипедистам ?!
окно сразу максимально по размеру фрейма, и зачем мне записывать в данном случае положение? Я про то, что не вижу взаимосвязи между положением окна и записью временных параметров.kreator писал(а): А окно, естественно, не по центру?
Связи точно нет. Но в Вашем случае галка на сохранение положения не должна мешать, в смысле дополнительно ничего писать руками не надо. В следующем билде поправят и выдадут за супер новый функционалgopstop2007 писал(а):окно сразу максимально по размеру фрейма, и зачем мне записывать в данном случае положение? Я про то, что не вижу взаимосвязи между положением окна и записью временных параметров.
Дайте народу, если не жалко. Что, где подправить? Действительно, эту ерунду два года ждать надо.gopstop2007 писал(а):а вдруг... понятное дело, исправил
Код: Выделить всё
INIMgr.Update(...)
Код: Выделить всё
INIMgr.TryFetch(...)
Код: Выделить всё
#IF(%INISaveWindow AND ~%DisableINISaveWindow)
IF SELF.Opened
INIMgr.Update('%Procedure',%Window) #<! Save window data to non-volatile store
END
#IF(ITEMS(%PreserveVarsLoc))
! Save preserved local variables in non-volatile store
#ENDIF
#FOR(%PreserveVarsLoc)
#FIX(%LocalData,%PreserveVarLoc)
#IF(%LocalData)
#IF(INSTRING('QUEUE',%LocalDataStatement))
INIMgr.UpdateQueue('%Procedure_PreservedVars','%PreserveVarLoc',%PreserveVarLoc)
#ELSE
INIMgr.Update('%Procedure_PreservedVars','%PreserveVarLoc',%PreserveVarLoc)
#ENDIF
#ENDIF
#ENDFOR
#ENDIF
Код: Выделить всё
#IF(%INISaveWindow AND ~%DisableINISaveWindow)
IF SELF.Opened
INIMgr.Update('%Procedure',%Window) #<! Save window data to non-volatile store
END
#ENDIF
#IF(ITEMS(%PreserveVarsLoc))
! Save preserved local variables in non-volatile store
#ENDIF
#FOR(%PreserveVarsLoc)
#FIX(%LocalData,%PreserveVarLoc)
#IF(%LocalData)
#IF(INSTRING('QUEUE',%LocalDataStatement))
INIMgr.UpdateQueue('%Procedure_PreservedVars','%PreserveVarLoc',%PreserveVarLoc)
#ELSE
INIMgr.Update('%Procedure_PreservedVars','%PreserveVarLoc',%PreserveVarLoc)
#ENDIF
#ENDIF
#ENDFOR