From a5cff8099c763d77b39fe5c11b8682ca6f952416 Mon Sep 17 00:00:00 2001
From: michael <michael@freepascal.org>
Date: Sat, 8 Oct 2011 14:49:02 +0000
Subject: [PATCH] * Patch from Reinier Olieslagers to fix typo in property
git-svn-id: trunk@19417 -
---
packages/fcl-extra/src/win/ServiceManager.pas | 3 ++-
1 file changed, 2 insertions(+), 1 deletion(-)
diff --git a/packages/fcl-extra/src/win/ServiceManager.pas b/packages/fcl-extra/src/win/ServiceManager.pas
index 47bd1cc63b..af62487707 100644
--- a/packages/fcl-extra/src/win/ServiceManager.pas
+++ b/packages/fcl-extra/src/win/ServiceManager.pas
@@ -136,7 +136,8 @@ type
procedure GetServiceStatus(SHandle : THandle; Var Status : TServiceStatus); overload;
procedure GetServiceStatus(ServiceName : String; Var Status : TServiceStatus); overload;
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;
published
{ Published declarations }