• Jekki
  • Восстановленный участник
  • На форуме с 27 февраля 2003г.
  • Сообщений: 116
  • Спасибо: 0

Тема: Поле list_box

У меня проблемка!
Дело в том , я написал диалоговое окно С применением типа основного поля list_box ( т.е. список) Вот выражение:
:list_box {label = "Список слоёв:" ; key= "v1" ;height=5; width=30;
list="Слой1 \nСлой2 \nСлой3 \nСлой4 \nСлой5";
fixed_width_font=true;}
Так же сделал кнопку "Добавить слой" при нажатии которого пишешь название слоя и программа должна автоматически кидать в список!
Как мне сделать?
За ранее спасибо!

  • FFF
  • Восстановленный участник
  • На форуме с 30 октября 2002г.
  • Сообщений: 74
  • Спасибо: 0

Re: Поле list_box

вот начало программы, демонструющей механизм загрузки списка list_box в DCL-окно. Потребуется небольшая переделка, но нужные функции здесь присутствуют.

(setq NAMES '("Monday" "Tuesday" "Wednesday" "Thursday"
                "Friday" "Saturday" "Sunday")
  ;define list
  );setq
  (setq dcl_id (load_dialog "lisp48i.dcl"))
  ;load dialog
  (if (not (new_dialog "lisp48i" dcl_id)
  ;test for dialog
      );not
    (exit)
    ;exit if no dialog
  );if
  (start_list "selections")
  ;start the list box
  (mapcar 'add_list NAMES)
  ;fill the list box
  (end_list)
  ;end list