StatusDlg.Show
Описание
Показывает встроенное диалоговое окно состояния.
ПараметрыIcon
(число) Иконка отображаемая на диалоговом окне:
Cancelled
(логический) Была ли нажата кнопка Отмена (Cancel):
Возврат
Ничего. Можно использовать действие Application.GetLastError для определения случился ли отказ в работе этого действия и почему.
Смотрите также: Связанные действия
ПримерыПример 1StatusDlg.Show(MB_ICONINFORMATION, false);Показываем встроенное диалоговое окно состояния с информационной иконкой. Параметр "false" показывает, что кнопка Отмена (Cancel) не будет нажата. Пример 2StatusDlg.Show(MB_ICONNONE, true);Показываем встроенное диалоговое окно состояния без иконки. Параметр "true" показывает, что кнопка Отмена (Cancel) будет нажата. Пример 3-- Allow the user to select a directory to unzip the files. -- Предоставляем пользователю выбрать папку для распаковки файлов. target_folder = Dialog.FolderBrowse("Select a Folder", "C:\\"); -- Check to see if the user cancelled or an error occurred. -- Смотрим, не отменил ли действие пользователь и не произошло ли ошибки. if (target_folder ~= "CANCEL") and (target_folder ~= "") then -- Gets a list of the contents of a zip file. zip_contents = Zip.GetContents("AutoPlay\\Docs\\Info.zip", true); -- Get the error code of the last action. -- Получаем код ошибки последнего действия. error = Application.GetLastError(); -- If an error occurred, display the error code message. -- Если случилась ошибка, показываем сообщение с кодом ошибки. if (error ~= 0) then Dialog.Message("Error", _tblErrorMessages[error], MB_OK, MB_ICONEXCLAMATION); else -- Take the table and turn it into a string with newlines for displaying. -- Берем таблицу и превращаем её в строковое значение для отображения в новых строках. zip_contents_display = Table.Concat(zip_contents, "\r\n", 1, TABLE_ALL); -- Ask the user if they are sure they would like to unzip the contents. -- Спрашиваем пользователя, точно ли он хочет распаковать содержимое. result = Dialog.Message("Information", "The following files will be unzipped:\r\nClick the Cancel button to abort the process.\r\n\r\n" .. zip_contents_display, MB_OKCANCEL) -- If the user clicked Ok, unzip the files. -- Если пользователь кликает Ok, распаковываем файлы. if (result == IDOK) then -- Show the status dialog. -- Показываем диалоговое окно состояния. StatusDlg.Show(); -- Extract the contents of the Zip file. -- Извлекаем содержимое Zip файла. Zip.Extract("AutoPlay\\Docs\\Info.zip", {"*.*"}, target_folder, true, true, "", ZIP_OVERWRITE_NEVER, nil); -- Check the error code for the last action. -- Проверяем код ошибки последнего действия. error = Application.GetLastError(); -- Hide the status dialog. -- Скрываем диалоговое окно состояния. StatusDlg.Hide(); -- If an error occurred, display the error code message. -- Если была ошибка, показываем сообщение с кодом ошибки. if (error ~= 0) then Dialog.Message("Errror", tblErrorMessages[error], MB_OK, MB_ICONEXCLAMATION); else Dialog.Message("Success", "The unzipping was successful.", MB_OK, MB_ICONINFORMATION); end end end endВначале этого примера с использованием действия Dialog.FolderBrowse пользователю предлагается выбрать папку. В эту папку будут распаковываться файлы. Затем пользователю предоставляется диалоговое окно содержащее имена файлов, которые будут распаковываться и позволяется прервать процесс. Если пользователь кликает Ok, файлы распаковываются в папку, которую он выбрал. Уведомление, что будет дано по окончанию процесса, покажет была процедура успешной или нет.
Смотрите также: Связанные действия
|