Системы автоматизированного конструирования. Толстоба Н.Д. - 40 стр.

UptoLike

ВУЗ: 

Университет ИТМО | Санкт-Петербург

Составители: 

Рубрика: 

39
label = "Кнопка 2";
: row {cancel_button;
}
}
Рис 7. Пример диалога для панели с кнопками
Программа
(defun dd_btn ( / dcl_id what_next)
; Загрузка диалога
(setq dcl_id (load_dialog "ot_tab.dcl"))
; Инициализация диалога
(if (not (new_dialog "dd_button" dcl_id)) (exit) )
(setq what_next 8)
(action_tile "btn1" "(done_dialog 1)")
(action_tile "btn2" "(done_dialog 2)")
(setq what_next (start_dialog))
(cond ((= what_next 2) (alert "Запуск по кнопке 2!"))
((= what_next 1) (alert "Запуск по кнопке 1!"))
)
(unload_dialog dcl_id)
)
Переключатели
Следующий пример отличается тем, что используется цикл. Для того, чтобы дать
возможность пользователю кликать/щелкать переключателями сколь угодно раз до нажатия
ОК, необходимо процесс обработки данных заключить в цикл. Пока не будет what_next=1,
цикл будет крутиться. Функция ok_tab формирует данные для выхода.
Диалог
dd_radio : dialog {label = "Тестирование переключателей";
fixed_height = true;
: boxed_column { label = "Выберите вариант";
: radio_column {
: radio_button {key = "radio1"; label = "Radio1"; value = 1;}
: radio_button {key = "radio2"; label = "Radio2"; }
: radio_button {key = "radio3"; label = "Radio3"; }}
}
: row { ok_button; cancel_button; }
}

Страницы