• Disney
  • Disney
  • Активный участник
  • Откуда: Сибирь / Новосибирск
  • На форуме с 28 февраля 2007г.
  • Сообщений: 471
  • Спасибо: 25

Тема: Включение\выключение edit_box по toggle

Помогите пожалуйста!
Есть диалог:

:toggle{label="dZ";key="p3";value="0";}
:edit_box{label="проектная Z"; key="ot"; value="0"; edit_width=6;}

как при value="1" у "p3" , сделать mode_tile "ot" 2, а при value="0" у "p3" сделать mode_tile "ot" 1

  • Disney
  • Disney
  • Активный участник
  • Откуда: Сибирь / Новосибирск
  • На форуме с 28 февраля 2007г.
  • Сообщений: 471
  • Спасибо: 25

Re: Включение\выключение edit_box по toggle

Спасибо ВСЕМ!
Ждал - ждал, да и сам разобрался

  
(action_tile "p3" " (if (= $value \"0\") (mode_tile \"ot\" 1)(progn (mode_tile \"ot\" 0) (mode_tile \"ot\" 2)))")

пол дня бился:
1. оказалось перед value надо ставить $
2. и с mode_tile \"ot\" 1 нельзя сразу на mode_tile \"ot\" 2

  • fixo
  • fixo
  • Активный участник
  • Откуда: СПб
  • На форуме с 7 февраля 2009г.
  • Сообщений: 869
  • Спасибо: 41

Re: Включение\выключение edit_box по toggle

Спасибо что поделился решением
Успехов

~'J'~

  • На форуме с 9 апреля 2009г.
  • Сообщений: 4
  • Спасибо: 0

Re: Включение\выключение edit_box по toggle

После не больших махинаций немного изменил этот способ, может кому и пригодится...

(action_tile "leaderkey" "(setq led (atoi $value)) (ledkey led)")

где leaderkey это функция из DSL файла и в программе ей присваивается имя целой переменной led

: toggle{key = "leaderkey"; value = "0"; fixed_height = true; alignment = center; label = "";}
: edit_box { key = "edit_B1"; value = ""; fixed_height = true; fixed_width = true;}

В дальнейшем Led передается функции ledkey которая непосредственно и изменяет парметр Mode_tile в edit_B1 который в дальнейшем и будет включен или выключен. 

(defun ledkey (fL1 / )

    (if (= fL1 0)
           (progn
         (mode_tile "edit_B1" 0)
     (mode_tile "edit_B1" 1)
     )
     (progn
         (mode_tile "edit_B1" 0)
         (mode_tile "edit_B1" 2)
         )
    )
)