Видимость колонки браузера.

[vadm]

Подскажите пжста, как показать(спрятать)
колонку browser в фейсе.. ???

[Deinis]

Конфигуратором

[mik]

cfsSetProp (aObjName : string | longInt;
aPropName : string | longInt;
aValue : anyType ) : longInt;

aObjName - имя твоей колонки. посмотришь в конфигураторе
aPropName - название свойства. в данном случае
aPropName = 'Visible'

AValue - значение свойства.
пример:
cfsSetProp ('c_BR_TBLACT.MOL_МОЛ', 'Visible' ,False);

[vadm]

спасибо

[Maverick]

ну зачем огород городить?
все гораздо проще
8.8.2. Процедура ClearFieldState (Integer, Word)
Назначение
Очистить state-флаги поля (stVisible).
Описание
procedure ClearFieldState (поле : Integer; iState : Word);
Параметры
Поле : Integer - номер поля в логической таблице Integer
iState : Word - флаг (stVisible).
Замечание
Доступны константы с идентификаторами fn<имя поля>, значения которых равны номерам полей.
Пример
Interface Example;
create view as select Table1.aFieldIsVisible,
Table1.aField from Table1;
screen Table1Viewer;
Fields aField;
<<
aField .@@@@@@@@@@@@@
>>
end;
HandleEvent
cmPositionChanged: if (aFieldIsVisible)
SetFieldState(#aField,sfVisible);
else
ClearFieldState(#aField,sfVisible);
end;
end.//Interface

8.8.18. Процедура SetFieldState (Integer, Word)
Назначение
Установить state-флаги поля (stVisible).
Описание
procedure SetFieldState (поле : Integer; iState : Word)
Параметры
поле : Integer - номер поля в логической таблице Integer
iSate : Word - флаг (stVisible).

[mik]

а я и не знал. :-/
спасиб. теперь буду -:)

[mik]

тогда в догонку вопрос к Maverick:
Поле или столбец мы скроем этими функциями.
но как скрыть в таком случае надпись(label которая) перед полем?
screen Table1Viewer;
Fields aField;
<<
`aField(это надо скрыть)` .@@@@@@@@@@@@@
>>
end;

[Deinis]

Вместо:
screen Table1Viewer;
Fields aField;
<<
`aField(это надо скрыть)` .@@@@@@@@@@@@@
>>
end;

сделать
screen Table1Viewer;
Fields aField;
<<
.@@@@@@@@@@@@@@@ .@@@@@@@@@@@@@
>>
end;
и делать ClearFieldState и SetFieldState по обоим полям-переменным

[mik]

хочешь сказать - вместо label использовать edit?

[Deinis]

Сорьки, был не прав, проглядел...

сделать
screen Table1Viewer;
Fields aField;
Fields Name_aField : Skip ;
<<
.@@@@@@@@@@@@@@@ .@@@@@@@@@@@@@
>>
end;
Вот теперича вроде правильно

[Deinis]

Оппс... опять я не прав...
Вот, вроде так будет правильно (поменять местами строки в разделе Fields

screen Table1Viewer;
Fields Name_aField : Skip ;
Fields aField;
<<
.@@@@@@@@@@@@@@@ .@@@@@@@@@@@@@
>>
end;

[mik]

не прошло и года. добрался.
даже не верится! работает!