Составители:
Рубрика:
40
Рис 8. Пример диалога для панели с переключателями
Программа
(defun dd_radio ( / ret_value1 dcl_id what_next on_rad)
; функция, вызываемая по OK
(defun ok_tab ( / )
; формирование списка данных на выход
(setq ret_value1 (list "radio" on_rad))
)
; загрузка диалога
(set_tile "radio1" "1")
(setq on_rad "radio1")
(setq dcl_id (load_dialog "ot_tab.dcl"))
; инициализация диалога
(if (not (new_dialog "dd_radio" dcl_id))
; Exit if this doesn't work
(exit)
)
(setq what_next 8)
(while (< 2 what_next)
(action_tile "radio1" "(setq on_rad $key)")
(action_tile "radio2" "(setq on_rad $key)")
(action_tile "radio3" "(setq on_rad $key)")
(action_tile "accept" "(done_dialog 1) (ok_tab)")
(setq what_next (start_dialog))
)
(unload_dialog dcl_id) ; Unload the DCL file
(setq relst ret_value1)
)
Поля
В примере с полями особенностью является задание значений полей заранее - в тексте
программы.
Диалог
Страницы
- « первая
- ‹ предыдущая
- …
- 39
- 40
- 41
- 42
- 43
- …
- следующая ›
- последняя »
