Pascal-style type correction

Letter case correction
small fixes
Actman UA part dialog slightly changed

git-svn-id: http://svn.miranda-ng.org/main/trunk@8473 1316c22d-e87f-b044-9b9b-93d7a3e3ba9c

1 files changed, 14 insertions, 1 deletions

diff --git a/plugins/Actman30/ua/ua.pas b/plugins/Actman30/ua/ua.pas
index 4aad8e1793..9c9554e1c0 100644
--- a/plugins/Actman30/ua/ua.pas
+++ b/plugins/Actman30/ua/ua.pas
@@ -6,7 +6,7 @@ implementation
 

 uses

   windows, commctrl, messages,

-  mirutils, common, dbsettings, io, m_api, wrapper,

+  mirutils, common, dbsettings, io, m_api, wrapper, editwrapper,

   global;

 

 {$R ua.res}

@@ -49,6 +49,19 @@ var
 

 // ------------ base interface functions -------------

 

+procedure CheckPlacesAbility;

+var

+  i:integer;

+begin

+  for i:=0 to NumTypes-1 do

+  begin

+    with NamesArray[i] do

+    begin

+      enable:=(service=nil) or (ServiceExists(service)<>0);

+    end;

+  end;

+end;

+

 procedure Init;

 begin

   GetModuleFileNameW(hInstance,szMyPath,MAX_PATH);