ну логически подумайте, какие операции для этого надо проделать? ладно, думаю за вас, отмечено в комментариях:
Code
If (run1=0) Then
**открываем файл
OpenFile("JPEG Files (*.JPG)|*.jpg|BMP Files (*.BMP)|*.bmp|All Files|*.*||","*.jpg")
If (OpenFile$<>'') Then
** если выбор сделан, применяем
SetProjectParam("PAGEBG","IMAGE=OpenFile$")
** запоминаем выбор
bg$='IMAGE=OpenFile$'
SaveVariable("Pagebkg","bg$")
run1=1
End
Return()
End
**при старте проекта (или где там у вас проверка фона идет) применяем сохраненный фон
**проверяем, он уже есть или еще не задан
LoadVariable("Pagebkg","bg$")
**тут я не помню что будет когда Pagebkg в реестре еще не существует
**но думаю что переменная bg$ будет пустой, либо надо будет ошибку обработать
if (bg$='') Then
** ставим фон по умолчанию или отправляем к условию выбору файла (сначала проставив run1=0)
SetProjectParam("PAGEBG","IMAGE=default.jpg")
Else
**если фон уже задан, то применяем
SetProjectParam("PAGEBG","bk$")
End
Добавлено (03 Октябрь 2010, 18:53)
---------------------------------------------
Quote (DEMBEL)
bg$='IMAGE=OpenFile$'
проверьте, заменяется ли OpenFile$ при сохранении на реальный путь. если сомневаетесь в участке кода, лучше вывести сообщение с содержимым
Code
bg$='IMAGE=OpenFile$'
Message("Debug","bg$")
SaveVariable("Pagebkg","bg$")
тогда вы будете точно уверены например, какое содержимое bg$ будет писаться в реестр скорее всего, придется:
Code
bg$='IMAGE='+OpenFile$
Добавлено (03 Октябрь 2010, 18:57)
---------------------------------------------
все, я футбик смотреть Челси-Арсенал, пока до свидания...