Различия

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

--- dev:scada:userex [2014/02/12 14:00]
alexeyb
+++ dev:scada:userex [2014/02/12 14:01] (текущий)
alexeyb
@@ Строка 41: / Строка 41: @@
     - пример обработка нажатия TAdvGlowButton
     - данный код вернет true, когда пользователю разрешен тип действий (содержится в Caption)
+    - также нажатия кнопки будет записано в rpvisual.log
-     <code>
+<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>