Различия

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

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