Различия

Здесь показаны различия между двумя версиями данной страницы.

--- dev:scada:userex [2014/02/12 13:52]
alexeyb
+++ dev:scada:userex [2014/02/12 14:01] (текущий)
alexeyb
@@ Строка 34: / Строка 34: @@
     - Разр. "нет", значит запрет данной группе.
     - Разр. "-" ??? не знаю пока.
+**Обработка действий для работы :**
+    - в нужный модуль добавить в раздел "uses" добавить   UserControlEx
+    - добавить обработчик действия, отправляющий фильтруемое выражение в фильтр
+    - пример обработка нажатия 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>