• anpol
  • Восстановленный участник
  • На форуме с 1 января 2004г.
  • Сообщений: 3
  • Спасибо: 0

Тема: Исчезает image_button при передаче фокуса

Если в action_tile для image_button вставить функцию передачи фокуса другому элементу (mode_tile x 2), то image_button исчезает. При повторном клике появляется обычная кнопка. Проблема как в R14,  так и в Acad2000. Есть ли решение?

  • GNL
  • Восстановленный участник
  • На форуме с 5 сентября 2004г.
  • Сообщений: 4
  • Спасибо: 0

Re: Исчезает image_button при передаче фокуса

Время прошло много со времени вопроса,ответов не было ,однако если кого интересует решение проблемы могу поделиться своим решением.

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

Re: Исчезает image_button при передаче фокуса

Думаю, что будет интересно обсудить этот вопрос

  • GNL
  • Восстановленный участник
  • На форуме с 5 сентября 2004г.
  • Сообщений: 4
  • Спасибо: 0

Re: Исчезает image_button при передаче фокуса

Например имеем 4 image_button со значениями ключей "1","2",
"3","4".
Состовляем список ключей:

(setq button-list '(nil "1" '2' "3" "4"))
 Обработка ключей:
(action_tile "1" "(pick $key)")
(action_tile "2" "(pick $key)")
(action_tile "3" "(pick $key)")
(action_tile "4" "(pick $key)")

Функция pick:

(defun pick (key)
    (if (null (car button-list))
        (progn
             (mode_tile key 4)
             (setq button-list (cons key (vl-remove key (cdr button-list))))
       )
       (progn
            (mode_tile key 4)
            (mode_tile (car button-list) 4)
            (setq button-list (cons key (vl-remove key button-list)))
       )
)
)