Browse Source

* Patch from Reinier Olieslagers to fix typo in property

git-svn-id: trunk@19417 -
michael 14 years ago
parent
commit
a5cff8099c
1 changed files with 2 additions and 1 deletions
  1. 2 1
      packages/fcl-extra/src/win/ServiceManager.pas

+ 2 - 1
packages/fcl-extra/src/win/ServiceManager.pas

@@ -136,7 +136,8 @@ type
     procedure GetServiceStatus(SHandle : THandle; Var Status : TServiceStatus); overload;
     procedure GetServiceStatus(SHandle : THandle; Var Status : TServiceStatus); overload;
     procedure GetServiceStatus(ServiceName : String; Var Status : TServiceStatus); overload;
     procedure GetServiceStatus(ServiceName : String; Var Status : TServiceStatus); overload;
     Property  Handle : THandle Read FHandle;
     Property  Handle : THandle Read FHandle;
-    Property  Acces : DWord read FAccess Write FAccess;
+    Property  Access : DWord read FAccess Write FAccess;    
+    Property  Acces : DWord read FAccess Write FAccess; deprecated; //Kept for compatibility
     Property  Services : TServiceEntries Read FServices;
     Property  Services : TServiceEntries Read FServices;
   published
   published
     { Published declarations }
     { Published declarations }