Browse Source

* Move public section of TDAUserInfo

michael 6 years ago
parent
commit
de8d28c369
1 changed files with 1 additions and 1 deletions
  1. 1 1
      packages/dataabstract/dasdk.pas

+ 1 - 1
packages/dataabstract/dasdk.pas

@@ -170,11 +170,11 @@ Type
   end;
   end;
 
 
   TDAUserInfo = class external name 'RemObjects.DataAbstract.Server.UserInfo' (TROStructType)
   TDAUserInfo = class external name 'RemObjects.DataAbstract.Server.UserInfo' (TROStructType)
+  Public
     constructor new;
     constructor new;
     procedure fromObject(aItem : TDAUserInfo);reintroduce; overload;
     procedure fromObject(aItem : TDAUserInfo);reintroduce; overload;
     procedure fromObject(aItem : TJSObject);reintroduce; overload;
     procedure fromObject(aItem : TJSObject);reintroduce; overload;
     function toObject : TDAUserInfoData;reintroduce;
     function toObject : TDAUserInfoData;reintroduce;
-  Public
     Attributes : TROValue;
     Attributes : TROValue;
     Privileges : TROValue;
     Privileges : TROValue;
     SessionID : TROValue;
     SessionID : TROValue;