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

UptoLike

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

44
; загрузка диалога
(setq dcl_id (load_dialog "ot_tab.dcl"))
; инициализация диалога
(if (not (new_dialog "dd_imgbutton" dcl_id))
(exit)
)
(start_image "btn1")
(slide_image 0 0 (dimx_tile "btn1") (dimy_tile "btn1") "btn1" )
(end_image)
(start_image "btn2")
(slide_image 0 0 (dimx_tile "btn2") (dimy_tile "btn2") "btn2" )
(end_image)
(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)
)
Списки
В работе со списками основная сложность - составление самого списка. Он
составляется как символьная строка, через знак "\n" - перевод каретки.
Диалог
dd_list : dialog {
label = "Тестирование списков";
:popup_list{label = "1s&t: "; key = "lst1";
list = "None \nDatum Triangle Filled \nDatum Triangle \nIntegral \nUser Arrow...";
edit_width = 20;
}
:popup_list{label = "2s&t: "; key = "lst2"; list = "None \nDatum Triangle Filled \nDatum Triangle
\nIntegral \nUser Arrow..."; edit_width = 20;}
: row {ok_button;cancel_button;}
}
Рис 12. Пример диалога со списками