Difference between revisions of "SelectFormSettingsFile"
(Created page with "{{infobox function |name=SelectFormSettingsFile |object=Функции общего назначения |caption=Визуальные функции |type=1 |status=2 |db...") |
m (1 revision imported) |
(No difference)
|
Latest revision as of 07:52, 7 February 2021
SelectFormSettingsFile (Визуальные функции) | |||||||||||||
---|---|---|---|---|---|---|---|---|---|---|---|---|---|
|
Функция показывает диалог сохранения или загрузки установок формы. Если пользователь выбрал файл установок (для загрузки или сохранения), будут заполнены переменные путь к файлу или имя файла установок, и функция возвратится с результатом 1.
Синтаксис
SelectFormSettingsFile(<Загрузка установок (INT)>,<Путь файла установок (STRING)>,<Имя файла установок (STRING)>):<Пользователь осуществил выбор 1 или 0 (INT)>
Аргументы
<Загрузка установок (INT)>
- Режим выводимого диалога. 0 -- диалог загрузки установок, 1 -- диалог сохранения установок.<Путь файла установок (STRING)>
- (возможен аргумент-переменная (ByRef)) Переменная, получающая путь к файлу установок, который пользователь выбрал для загрузки или сохранения<Имя файла установок (STRING)>
- (возможен аргумент-переменная (ByRef)) Переменная, получающая имя файла установок, который пользователь выбрал для загрузки или сохранения
Возвращаемое значение
Возвращает 1, если пользователь выбрал файл установок (для загрузки или сохранения) и нажал на "ОК", иначе возвращает 0.
Примеры
//Данный блок располагается в обработчике визуального события OnSaveSettings //Пользователю предлагается выбрать файл сохранения установок, после чего, вместо обычных установок формы, // в файл записывается особый список спОтбор, содержащий нужные установки. //Переменные FolderName и SetName создаются автоматически при вызове события Result:=1; if isEmpty(SetName) Then If not SelectFormSettingsFile(1,FolderName,SetName) Then Exit; EndIf; EndIf; ObjectToFile(спОтбор,AddBackSlash(FolderName)+SetName);
//Данный блок располагается в обработчике визуального события OnLoadSettings //Пользователю предлагается выбрать файл для загрузки установок, после чего, вместо обычных установок формы, // файл, содержащий нужные установки, загружается в список спОтбор. //Переменные FolderName и SetName создаются автоматически при вызове события Result:=1; if not Form.IsFullyInitialized() then Exit; EndIf; if isEmpty(SetName) Then If not SelectFormSettingsFile(0,FolderName,SetName) Then Exit; EndIf; EndIf; спОтбор:=ObjectFromFile(AddBackSlash(FolderName)+SetName); //Далее следует применение загруженных установок ...