From 5ca0f5cdf6f42f4622da68d798af5646a001fef9 Mon Sep 17 00:00:00 2001
From: Alexey Kulakov <panda75@bk.ru>
Date: Mon, 15 Dec 2014 18:55:29 +0000
Subject: pascal units: [de]capitalization Actman 30: small-small fix

git-svn-id: http://svn.miranda-ng.org/main/trunk@11439 1316c22d-e87f-b044-9b9b-93d7a3e3ba9c
---
 plugins/Utils.pas/srvblock.pas | 14 ++++++++++----
 1 file changed, 10 insertions(+), 4 deletions(-)

(limited to 'plugins/Utils.pas/srvblock.pas')

diff --git a/plugins/Utils.pas/srvblock.pas b/plugins/Utils.pas/srvblock.pas
index d8e4465f0b..6bfaff37b7 100644
--- a/plugins/Utils.pas/srvblock.pas
+++ b/plugins/Utils.pas/srvblock.pas
@@ -9,8 +9,8 @@ uses
   windows;
 
 const
-  ACF_SCRIPT_SERVICE = $01000000; // high byte of dword
-  ACF_SCRIPT_EXPAND  = $10000000; // all subblocks are visible
+  ACF_SCRIPT_SERVICE = $00800000; // high bit in low byte of hight word (lower uses in actions
+  ACF_SCRIPT_EXPAND  = $10000000; // all subblocks are visible (block creation only)
 
 type
   pServiceValue = ^tServiceValue;
@@ -153,9 +153,15 @@ begin
       GetClientRect(lpar,rc);
       SetWindowPos(res,HWND_TOP,pt.x,pt.y+rc.bottom+10,0,0,SWP_NOZORDER or SWP_NOSIZE);
     end;
+  else
+    wnd:=0;
+    wndb:=0;
+  end;
+  if wnd<>0 then
+  begin
+    EnableWindow(wnd ,false);
+    ShowWindow  (wndb,SW_SHOW);
   end;
-  EnableWindow(wnd ,false);
-  ShowWindow  (wndb,SW_SHOW);
 end;
 
 procedure ReloadService(Dialog:HWND;srv:pAnsiChar;setvalue:boolean);
-- 
cgit v1.2.3