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

UptoLike

ВУЗ: 

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

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

Рубрика: 

42
Флаги
Рассматривая пример с флагами, необходимо отметить, что в данном случае мы
инициализируем заранее значения. Функция on_type_os изменяет элементы окна на заданные
в параметрах функции. В зависимости от параметров, с помощью оператора set_tile
устанавливаем значения флагов.
Диалог
// Описание диалога для панели с флагами
dd_toggle : dialog {label = "Тестирование флагов";
fixed_height = true;
: toggle { key = "tog1"; value = "0"; fixed_height = true; alignment = center; label = "Флаг1"; }
: toggle { key = "tog2"; value = "0"; fixed_height = true; alignment = center; label = "Флаг2"; }
: row { ok_button; cancel_button; }
}
Рис 10. Пример диалога для панели с флагами
Программа
;--------------------------------------------
; функция вызова окна диалога
(defun dd_toggle (type_os / ret_value1 dcl_id what_next on_tog1 on_tog2)
; функция, вызываемая по OK
(defun ok_tab ( / ) ; формирование списка данных на выход
(setq ret_value1 (list (list "tog1" on_tog1) (list "tog2" on_tog2)))
)
; выбор включенных-выключенных ключей в зависимости от введенных параметров
(defun on_type_os( / )
(cond
((= type_os "A") (setq on_tog1 "1" on_tog2 "0") (set_tile "tog1" "1") (set_tile "tog2" "0"))
((= type_os "B") (setq on_tog1 "1" on_tog2 "1") (set_tile "tog1" "1") (set_tile "tog2" "1"))
(t)
)
)
(on_type_os)
(setq dcl_id (load_dialog "ot_tab.dcl"))
; инициализация диалога
(if (not (new_dialog "dd_toggle" dcl_id))
(exit)

Страницы