Радиокнопки

Программирование на Атлантисе (VIP, FCOM, ARD), FastReport

Модераторы: m0p3e, edward_K, Модераторы

Ответить
ApachiA
Постоянный гость
Сообщения: 58
Зарегистрирован: 29 мар 2005, 17:49
Откуда: -
Контактная информация:

Радиокнопки

Сообщение ApachiA »

Уважаемые галактисты.

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

(.) Первый пункт'
(.) Второи пункт'
(.) Третий пункт где кол-во дней' .@@@@

так вот как сделать так чтобы последнее текстовое поле высвечиволось только тогда когда выбран третий пункт

Знаю что можно сделать незнаю как....

Всем спасибо
ХОЧУ изучить правила написания ИНТЕРФЕЙСОВ, создание собственных контуров и компиляции ADF словарей :)
Deinis
Местный житель
Сообщения: 783
Зарегистрирован: 29 мар 2005, 17:49
Откуда: Москва
Контактная информация:

Re: Радиокнопки

Сообщение Deinis »

Напишу коряво, но хоть что-то...
Для скрытия по-моему используются 2 атрибута полей - Skip и/или NoStatic.
Думаю, что при описании твоей Fields (я имею в виду переменную KolVo_Dney ) в Browse (где ты описываешь атрибуты полей) следует использовать анализ:

... If Punkt = 3 tnen NoStatic, ????...

Также следует обрабатывать событие CheckField:
cmCheckField : Case CurField Of #Punkt :
{If Punkt <> 3
then set KolVo_Dney := 0;
else set KolVo_Dney := KolVo_Dney;
RescanPanel (#MyTable); // нужно ли???

}
Сам никогда не использовал. Использовал атрибуты только для выделения записей клавишей Insert (смена цветов синий/черный):

Browse br_tSaldoOrg;
Table tSaldoOrg;
Fields
tSaldoOrg.nRec 'Собственный nRec' : [ 10 ], Protect, { FONT = { COLOR = IF ( isValid ( tnPick ), ColorSysBlue, ColorSysBlack ) } };
tSaldoOrg.SaldoOrgKau1 'nRec организации' : [ 10 ], Protect, { FONT = { COLOR = IF ( isValid ( tnPick ), ColorSysBlue, ColorSysBlack ) } };
IF ( isValid ( tnPick ), 'V', '' ) : [ 1 ], Protect, Skip, { FONT = { COLOR = IF ( isValid ( tnPick ), ColorSysBlue, ColorSysBlack ) } };
tSaldoOrg.SaldoOrgKau1Name 'Название организации' : [ 25 ], Protect, { FONT = { COLOR = IF ( isValid ( tnPick ), ColorSysBlue, ColorSysBlack ) } };
tSaldoOrg.SaldoOrgKau1UNN 'ИНН организации' : [ 6 ], Protect, { FONT = { COLOR = IF ( isValid ( tnPick ), ColorSysBlue, ColorSysBlack ) } };
End;
ApachiA
Постоянный гость
Сообщения: 58
Зарегистрирован: 29 мар 2005, 17:49
Откуда: -
Контактная информация:

Re: Радиокнопки

Сообщение ApachiA »

Спасибо за ответ но я использовал другой способ, менять атрибуты непробывал :)

ClearFieldState(#DAYOPL1,sfVisible);
SetFieldState(#DAYOPL1,sfVisible);

первый оператор делает невидимым поле редактирования
а второе наоборот

а вот за событие спасибо!

cmCheckField:
{
Case CurField Of
#DOGOVOR.VIDOPL:
{ case DOGOVOR.VIDOPL of
0:{
......

:)
ХОЧУ изучить правила написания ИНТЕРФЕЙСОВ, создание собственных контуров и компиляции ADF словарей :)
Ответить