Различия

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

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