Преглед на файлове

* Patch from Reinier Olieslagers to fix typo in property

git-svn-id: trunk@19417 -
michael преди 14 години
родител
ревизия
a5cff8099c
променени са 1 файла, в които са добавени 2 реда и са изтрити 1 реда
  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 }