Browse Source

* Publish all available & needed properties

Michaël Van Canneyt 2 years ago
parent
commit
0a2447a955

+ 2 - 0
packages/fcl-web/src/base/fphtml.pp

@@ -514,6 +514,8 @@ type
     Property Actions;
     Property CreateSession;
     Property Session;
+    Property Kind;
+    Property AfterInitModule;
     Property OnCreateDocument;
     Property OnCreateWriter;
     Property OnGetContent;

+ 5 - 0
packages/fcl-web/src/base/fpwebfile.pp

@@ -45,6 +45,11 @@ Type
     // Overrides TCustomHTTPModule to implement file serving.
     Procedure HandleRequest(ARequest : TRequest; AResponse : TResponse); override;
     Property CacheControlMaxAge : Integer Read FCacheControlMaxAge Write FCacheControlMaxAge;
+  Published
+    Property CORS;
+    property Kind;
+    Property BaseURL;
+    Property AfterInitModule;
   end;
   TFPCustomFileModuleClass = Class of TFPCustomFileModule;
 

+ 5 - 0
packages/fcl-web/src/base/fpwebproxy.pp

@@ -66,6 +66,11 @@ Type
     procedure ReRouteRequest(L: TProxyLocation; ARequest: TRequest;  AResponse: TResponse);virtual;
   Public
     Procedure HandleRequest(ARequest : TRequest; AResponse : TResponse); override;
+  Published
+    Property CORS;
+    Property BaseURL;
+    Property AfterInitModule;
+    Property Kind;
   end;
 
    { TProxyManager }

+ 4 - 0
packages/fcl-web/src/jsonrpc/fpextdirect.pp

@@ -113,6 +113,10 @@ Type
     Property RouterPath;
     Property CreateSession;
     Property NameSpace;
+    Property BaseURL;
+    Property AfterInitModule;
+    Property Kind;
+    Property Session;
     Property OnNewSession;
     Property OnSessionExpired;
     Property CORS;

+ 6 - 0
packages/fcl-web/src/jsonrpc/webjsonrpc.pp

@@ -143,6 +143,12 @@ type
     Property CORS;
     Property APIRequestSources;
     Property APIRequestName;
+    Property Session;
+    Property OnNewSession;
+    Property OnSessionExpired;
+    Property Kind;
+    Property BaseURL;
+    Property AfterInitModule;
   end;
 
 implementation

+ 6 - 0
packages/fcl-web/src/restbridge/sqldbrestmodule.pp

@@ -37,7 +37,13 @@ Type
     Procedure HandleRequest(ARequest : TRequest; AResponse : TResponse); override;
   Published
     Property Dispatcher : TSQLDBRestDispatcher Read FDispatcher Write SetDispatcher;
+    Property CORS;
+    Property BaseURL;
+    Property AfterInitModule;
     Property Kind;
+    Property Session;
+    Property OnNewSession;
+    Property OnSessionExpired;
   end;
 
 implementation

+ 4 - 0
packages/fcl-web/src/webdata/fpwebdata.pp

@@ -490,6 +490,10 @@ type
 
   TFPWebProviderDataModule = Class(TFPCustomWebProviderDataModule)
   Published
+    Property Kind;
+    Property BaseURL;
+    Property AfterInitModule;
+    Property Session;
     Property CreateSession;
     Property InputAdaptor;
     Property ContentProducer;