Различия
Здесь показаны различия между двумя версиями данной страницы.
| Предыдущая версия справа и слева Предыдущая версия Следующая версия | Предыдущая версия | ||
|
dev:scada:userex [2014/02/12 13:57] alexeyb |
dev:scada:userex [2014/02/12 14:01] (текущий) alexeyb |
||
|---|---|---|---|
| Строка 40: | Строка 40: | ||
| - добавить обработчик действия, отправляющий фильтруемое выражение в фильтр | - добавить обработчик действия, отправляющий фильтруемое выражение в фильтр | ||
| - пример обработка нажатия TAdvGlowButton | - пример обработка нажатия TAdvGlowButton | ||
| + | - данный код вернет true, когда пользователю разрешен тип действий (содержится в Caption) | ||
| + | - также нажатия кнопки будет записано в rpvisual.log | ||
| + | |||
| + | <code pascal> | ||
| + | procedure TwndData02Form.checkPermission(Sender: TObject; | ||
| + | var bCan: Boolean); | ||
| + | begin | ||
| + | if isModeUserEx then | ||
| + | bCan := isPermitted('~'+(Sender as TAdvGlowButton).Caption); | ||
| + | end; | ||
| + | </code> | ||
| - | procedure TwndData02Form.checkPermission(Sender: TObject; | ||
| - | var bCan: Boolean); | ||
| - | begin | ||
| - | if isModeUserEx then | ||
| - | bCan := isPermitted('~'+(Sender as TAdvGlowButton).Caption); | ||
| - | end; | ||
| - | |||
| - | - данный код вернет true, когда пользователю разрешен тип действий (содержится в Caption) | ||
