[DANZZ]

Как сделать чтоб второе поле в окне было не активным если в первом поле пусто???

[VVA]

(mode_tile код_поля 1) ;-выключить поле
(mode_tile код_поля 0) ;-включить поле

[DANZZ]

(setq dcl_id (load_dialog "vnsk_Danzz.dcl"))
(if (not (new_dialog "vnsk_dialog" dcl_id))
(exit)
)

(defun ok_tab ( / h NumPol NumMark NumVstrok)
(setq h "edit1" NumPol "edit2" NumMark "edit3" NumVstrok "edit4")
)

(set_tile "edit1" "3.5")
(set_tile "edit2" "1")
(set_tile "edit3" "0")
(mode_tile "edit4" 1)
(set_tile "edit4" "0")
(setq h "3.5" NumPol "1" NumMark "0" NumVstrok "0")
(setq what_next 8)
(while (< 2 what_next)
(action_tile "edit1" "(setq h $value)")
(action_tile "edit2" "(setq NumPol $value)")
(action_tile "edit3" "(setq NumMark $value)")
(action_tile "edit4" "(setq NumVstrok $value)")
(action_tile "accept" "(done_dialog 1) (ok_tab)")
(setq what_next (start_dialog))
)
(unload_dialog dcl_id)

а как включить "edit4" если (> (atoi "edit3") 2)

[VVA]

Код:

[Выделить все]

(if (> (atoi (get_tile "etit3")) 2)
  (mode_tile "edit4" 0)
  (mode_tile "edit4" 1)
  )

[VVA]

Если имеется ввиду действия, то
1. Пишем ф-цию

Код:

[Выделить все]

(defun check_edit3 ()
(if (> (atoi (get_tile "etit3")) 2)
  (mode_tile "edit4" 0)
  (mode_tile "edit4" 1)
  )
  )

И вешаем ее на дейсвие поля

Код:

[Выделить все]

(action_tile "edit3" "(progn (setq NumMark $value)(check_edit3))")

[DANZZ]

спасиб

[vic153]

Здраствуйте, коллеги
Подскажи, если возможность создания диалогового окна без использования стандартных кнопок ОК, Cancel
Что-нибудь типа:

Код:

[Выделить все]

test: dialog {label="Работа с исходными данными";
:row {
:button {label="Создать"; key="create"; action="(setq reply \"Create\")";}
:button {label="Считать"; key="read"; action="(setq reply \"Read\")";}
} //end of row
ok_button;
} //end of dialog

только без кнопки ОК

[Евгений А.]

Так например:

Код:

[Выделить все]

test: dialog {label="Работа с исходными данными"; 
:row { 
:button {label="Создать"; key="create"; action="(setq reply \"Create\")";is_default = true;}// Enter
:button {label="Считать"; key="read"; action="(setq reply \"Read\")"; is_cancel  = true;}// ESC
} //end of row 
} //end of dialog

Достаточно одной кнопки со свойством is_cancel (по нажатию ESC) или is_default (по нажатию Enter) со значением true

[ShaggyDoc]

Сообщение от vic153 Здраствуйте, коллеги Подскажи, если возможность создания диалогового окна без использования стандартных кнопок ОК, Cancel Что-нибудь типа: Код: [Выделить все] test: dialog {label="Работа с исходными данными"; :row { :button {label="Создать"; key="create"; action="(setq reply \"Create\")";} :button {label="Считать"; key="read"; action="(setq reply \"Read\")";} } //end of row ok_button; } //end of dialog только без кнопки ОК

Так сотри ok_button и все.

[vic153]

Сообщение от ShaggyDoc [Так сотри ok_button и все.

Тогда при запуске пишет:
Dialog has neither an OK nor a CANCEL button
и отказывается работать

[Pilot]

Пример (в сокращенном виде) диалога без Ok - в качестве Оk-кнопок выступают иконки:

Код:

[Выделить все]

BDE : dialog {
label = "------- Pig Equipment";
: row {fixed_width=true;
   : image_button {key = "BD_logo"; is_cancel = true;
      color=graphics_background; width=12; height=4; fixed_height=true; fixed_width=true;}
//..................
   : image_button {key = "rebristaja_plita"; is_cancel = true;
      color=graphics_background; width=12; height=4; fixed_height=true; fixed_width=true;}
}
: row {fixed_width=true;
   : image_button {key = "Farrowing1800_p"; is_cancel = true;
      color=graphics_background; width=12; height=4; fixed_height=true; fixed_width=true;}
//..................
   : image_button {key = "Boars_semen_p"; is_cancel = true;
      color=graphics_background; width=12; height=4; fixed_height=true; fixed_width=true;}
}
: row {fixed_width=true;
   : image_button {key = "PigNic_p"; is_cancel = true;
      color=graphics_background; width=12; height=4; fixed_height=true; fixed_width=true;}
//..................
   : image_button {key = "Rohrautomat1_s"; is_cancel = true;
      color=graphics_background; width=12; height=4; fixed_height=true; fixed_width=true;}
}
: row {fixed_width=true;
   : image_button {key = "Simultan500_p"; is_cancel = true;
      color=graphics_background; width=12; height=4; fixed_height=true; fixed_width=true;}
//..................
   : image_button {key = "Silo"; is_cancel = true;
      color=graphics_background; width=12; height=4; fixed_height=true; fixed_width=true;}

}
: row {fixed_width=true;
   : image_button {key = "JetMaster_p"; is_cancel = true;
      color=graphics_background; width=12; height=4; fixed_height=true; fixed_width=true;}
//..................
   : image_button {key = "CL600_s"; is_cancel = true;
      color=graphics_background; width=12; height=4; fixed_height=true; fixed_width=true;}
}
: row {fixed_width=true;
   : image_button {key = "Wallinlet_s"; is_cancel = true;
      color=graphics_background; width=12; height=4; fixed_height=true; fixed_width=true;}
//..................
   : image_button {key = "DiffAir"; is_cancel = true;
      color=graphics_background; width=12; height=4; fixed_height=true; fixed_width=true;}
}
: row {fixed_width=true;
   : image_button {key = "ManureTubes1"; is_cancel = true;
      color=graphics_background; width=12; height=4; fixed_height=true; fixed_width=true;}
//..................
   : image_button {key = "ManurePipeExtention_s"; is_cancel = true;
      color=graphics_background; width=12; height=4; fixed_height=true; fixed_width=true;}
}
spacer_1;
cancel_button;
}//BDE

А вот его скриншот:
[ATTACH]1181741316.jpg[/ATTACH]

[Евгений А.]

Сообщение от vic153 Тогда при запуске пишет: Dialog has neither an OK nor a CANCEL button и отказывается работать

Мой-то вариант хоть работает?
Вот для разнообразия диалог вообще без кнопок

Код:

[Выделить все]

test: dialog {label="Окно без кнопок!"; is_cancel = true;
	:list_box {key="list1";list = "Выход\nНичего";
		action = "(if (= \"0\" $value) (done_dialog 0))";}
	}

->Pilot не годится - читай вопрос

без использования стандартных кнопок ОК, Cancel

[vic153]

Евгений А. да спасибо заработало не сразу, конечно, но удалось запустить по твоему варианту.

[Pilot]

Сообщение от Евгений А. ->Pilot не годится - читай вопрос без использования стандартных кнопок ОК, Cancel

Тут я привел пример реальной работающей программы.
Кнопку Cancel можно убрать. Диалог будет работать и без нее.

[Евгений А.]

Сообщение от Pilot Тут я привел пример реальной работающей программы. Кнопку Cancel можно убрать. Диалог будет работать и без нее.

Не спорю, но человек помощи просил...